Class TPGGlyph (unit PGGlyph)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure CMFontChanged(var Message: TMessage);


procedure GlyphChanged(Sender: TObject);


procedure Loaded;

Refresh the drawings of each of the currently created glyph states.

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure RefreshAll;


destructor Destroy;


function GetBevelWidth: Integer;


function GetButton: Boolean;


function GetCaption: string;


function GetGlyph: TBitmap;


function GetLayout: TButtonLayout;


function GetMargin: Integer;


function GetNumGlyphs: Integer;


function GetSpacing: Integer;


function GetState: TPGGlyphState;


function GetTransparent: Boolean;


function GetTransparentColor: TColor;


procedure OnRefreshDrawings(Sender: TObject);


procedure Paint;


procedure SetBevelWidth(Value: Integer);


procedure SetButton(Value: Boolean);


procedure SetCaption(Value: string );


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);


Properties

property BevelWidth : Integer


property Button : Boolean


property Caption : string


property Font :


property Glyph : TBitmap


property Layout : TButtonLayout


property Margin : Integer


property NumGlyphs : Integer


property ParentFont :


property Spacing : Integer


property State : TPGGlyphState


property Transparent : Boolean


property TransparentColor : TColor


property GlyphEngine : TPGGlyphEngine


Events

event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FGlyphEngine : TPGGlyphEngine;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure CMFontChanged(var Message: TMessage);


procedure GlyphChanged(Sender: TObject);


procedure Loaded;

Refresh the drawings of each of the currently created glyph states.


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure RefreshAll;


destructor Destroy;


function GetBevelWidth: Integer;


function GetButton: Boolean;


function GetCaption: string;


function GetGlyph: TBitmap;


function GetLayout: TButtonLayout;


function GetMargin: Integer;


function GetNumGlyphs: Integer;


function GetSpacing: Integer;


function GetState: TPGGlyphState;


function GetTransparent: Boolean;


function GetTransparentColor: TColor;


procedure OnRefreshDrawings(Sender: TObject);


procedure Paint;


procedure SetBevelWidth(Value: Integer);


procedure SetButton(Value: Boolean);


procedure SetCaption(Value: string );


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);


Properties


property BevelWidth : Integer


property Button : Boolean


property Caption : string


property Font :


property Glyph : TBitmap


property Layout : TButtonLayout


property Margin : Integer


property NumGlyphs : Integer


property ParentFont :


property Spacing : Integer


property State : TPGGlyphState


property Transparent : Boolean


property TransparentColor : TColor


property GlyphEngine : TPGGlyphEngine


Events


event OnClick :


event OnDblClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FGlyphEngine : TPGGlyphEngine;