Class TPGCaptionBarGlyphBase (unit PGDsgFrm) |
Inherits from
TPGCaptionBarComponent
constructor Create(AOwner:TComponent);
- TPGCaptionBarGlyphBase
destructor Destroy;
procedure GetMinSize(var MinWidth, MinHeight: Integer);
Returns the minimum size that this component is allowed to be.
procedure Refresh;
If the button is being autosized, set the min allowed } { size to the size of the glyph, caption and button margins.
procedure AfterLoaded;
procedure FontChanged(Sender: TObject);
Adjust the height and width of the component, and the caption bar } { if it is needed to display the new glyph.
function GetBevelWidth: Integer;
function GetButton: Boolean;
function GetCaption: string;
function GetFont: TFont;
function GetGlyph: TBitmap;
function GetLayout: TButtonLayout;
function GetMargin: Integer;
function GetNumGlyphs: Integer;
function GetSpacing: Integer;
function GetTransparent: Boolean;
function GetTransparentColor: TColor;
procedure GlyphChanged(Sender: TObject);
procedure InitializePropertiesAtCreation;
function IsTransparent: Boolean;
Refresh the drawings of each of the currently created glyph states.
procedure Paint(ARect: TRect);
procedure RefreshAfterRedrawing;
procedure RefreshDrawings;
procedure RefreshOnMouseInput;
procedure SetBevelWidth(Value: Integer);
procedure SetButton(Value: Boolean);
procedure SetCaption(Value: string);
procedure SetFont(Value: TFont);
procedure SetGlyph(Value: TBitmap);
procedure SetLayout(Value: TButtonLayout);
procedure SetMargin(Value: Integer);
procedure SetNumGlyphs(Value: Integer);
procedure SetSpacing(Value: Integer);
procedure SetState(Value: TPGGlyphState);
procedure SetTransparent(Value: Boolean);
procedure SetTransparentColor(Value: TColor);
function ShouldNotifyTransparentColorProblem: Boolean;
property AllowDragging :
property BevelWidth : Integer
property Button : Boolean
property ButtonType : TPGCaptionBarComponentButtonType
property Caption : string
property Font : TFont
property Glyph : TBitmap
property Layout : TButtonLayout
property Margin : Integer
property NumGlyphs : Integer
property Spacing : Integer
property Transparent : Boolean
property TransparentColor : TColor
property GlyphEngine : TPGGlyphEngine
FGlyphEngine : TPGGlyphEngine;
constructor Create(AOwner:TComponent);
TPGCaptionBarGlyphBase
destructor Destroy;
procedure GetMinSize(var MinWidth, MinHeight: Integer);
Returns the minimum size that this component is allowed to be. } { Note that this is calculated on an individual basis, and does } { not take into consideration the size of the other caption bar } { components.
procedure Refresh;
If the button is being autosized, set the min allowed } { size to the size of the glyph, caption and button margins.
procedure AfterLoaded;
procedure FontChanged(Sender: TObject);
Adjust the height and width of the component, and the caption bar } { if it is needed to display the new glyph.
function GetBevelWidth: Integer;
function GetButton: Boolean;
function GetCaption: string;
function GetFont: TFont;
function GetGlyph: TBitmap;
function GetLayout: TButtonLayout;
function GetMargin: Integer;
function GetNumGlyphs: Integer;
function GetSpacing: Integer;
function GetTransparent: Boolean;
function GetTransparentColor: TColor;
procedure GlyphChanged(Sender: TObject);
procedure InitializePropertiesAtCreation;
function IsTransparent: Boolean;
Refresh the drawings of each of the currently created glyph states.
procedure Paint(ARect: TRect);
procedure RefreshAfterRedrawing;
procedure RefreshDrawings;
procedure RefreshOnMouseInput;
procedure SetBevelWidth(Value: Integer);
procedure SetButton(Value: Boolean);
procedure SetCaption(Value: string);
procedure SetFont(Value: TFont);
procedure SetGlyph(Value: TBitmap);
procedure SetLayout(Value: TButtonLayout);
procedure SetMargin(Value: Integer);
procedure SetNumGlyphs(Value: Integer);
procedure SetSpacing(Value: Integer);
procedure SetState(Value: TPGGlyphState);
procedure SetTransparent(Value: Boolean);
procedure SetTransparentColor(Value: TColor);
function ShouldNotifyTransparentColorProblem: Boolean;
property AllowDragging :
property BevelWidth : Integer
property Button : Boolean
property ButtonType : TPGCaptionBarComponentButtonType
property Caption : string
property Font : TFont
property Glyph : TBitmap
property Layout : TButtonLayout
property Margin : Integer
property NumGlyphs : Integer
property Spacing : Integer
property Transparent : Boolean
property TransparentColor : TColor
property GlyphEngine : TPGGlyphEngine
FGlyphEngine : TPGGlyphEngine;