| Class TFontComboBox (unit sCombos) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure BuildList;
procedure Change;
procedure Click;
procedure CreateWnd;
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure CMFontChanged(var Message: TMessage);
function GetFontName: string;
function GetTrueTypeOnly: Boolean;
procedure Reset;
procedure ResetItemHeight;
procedure SetDevice(Value: TFontDevice);
procedure SetFontName(const NewFontName: string);
procedure SetOptions(Value: TFontListOptions);
procedure SetTrueTypeOnly(Value: Boolean);
procedure WMFontChange(var Message: TMessage);| Properties |
property Color :
property Ctl3D :
property DefaultDraw :
property Device : TFontDevice
property DragCursor :
property DragMode :
property Enabled :
property Font :
property FontName : string
property Options : TFontListOptions
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property TrueTypeOnly : Boolean
property Visible :
property Text : | Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDropDown :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnStartDrag : | Variables |
DeviceBMP : TBitmap;
FDevice : TFontDevice;
FOnChange : TNotifyEvent;
FOptions : TFontListOptions;
FUpdate : Boolean;
TrueTypeBMP : TBitmap;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure BuildList;
procedure Change;
procedure Click;
procedure CreateWnd;
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure CMFontChanged(var Message: TMessage);
function GetFontName: string;change selected item
function GetTrueTypeOnly: Boolean;
procedure Reset;
procedure ResetItemHeight;
procedure SetDevice(Value: TFontDevice);
procedure SetFontName(const NewFontName: string);
procedure SetOptions(Value: TFontListOptions);
procedure SetTrueTypeOnly(Value: Boolean);
procedure WMFontChange(var Message: TMessage);uses DrawText instead of TextOut in order to get clipping against the combo box button } {TextOut(Rect.Left + bmpWidth + 6, Rect.Top, Items[Index]
| Properties |
property Color :
property Ctl3D :
property DefaultDraw :
property Device : TFontDevice
property DragCursor :
property DragMode :
property Enabled :
property Font :
property FontName : string
property Options : TFontListOptions
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property TrueTypeOnly : Boolean
property Visible : obsolete, use Options instead
property Text : | Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDropDown :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnStartDrag : | Variables |
DeviceBMP : TBitmap;
FDevice : TFontDevice;
FOnChange : TNotifyEvent;
FOptions : TFontListOptions;
FUpdate : Boolean;
TrueTypeBMP : TBitmap;