Class TPGCaptionBarGlyphBase (unit PGDsgFrm)

Inherits from

TPGCaptionBarComponent

Constructors


constructor Create(AOwner:TComponent);

TPGCaptionBarGlyphBase


Functions

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;


Properties

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


Events

Variables

FGlyphEngine : TPGGlyphEngine;



Constructors


constructor Create(AOwner:TComponent);

TPGCaptionBarGlyphBase


Functions


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;


Properties


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


Events


Variables


FGlyphEngine : TPGGlyphEngine;