Class TsCustomComboBox (unit sCombos)

Inherits from

TCustomComboBox

Constructors


constructor Create(AOwner: TComponent);

TsCustomComboBox


Functions

destructor Destroy;


procedure ComboWndProc(var Message: TMessage; ComboWnd: HWnd; ComboProc: Pointer);


procedure CreateParams(var Params: TCreateParams);


procedure DropDown;


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure TrackButton(X, Y: Integer);


procedure CMEnabledChanged(var Msg: TMessage);


procedure CMEnter(var Message: TCMEnter);


procedure CMExit(var Message: TCMExit);


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure DrawButton(DC: HDC);


procedure DrawDisabled(DC: HDC);


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


function NeedBorderRedraw: Boolean;


procedure RedrawBorder(DC: HDC);


procedure RedrawBorders;


procedure RedrawButtonBorder(DC: HDC);


procedure SetDefaultDraw(const Value: Boolean);


procedure SetDisabledFont(Value: TFont);


procedure SetFlat(const Value: Boolean);


procedure WMPaint(var Message: TWMPaint);


Properties

property DefaultDraw : Boolean


property DisabledFont : TFont


property Flat : Boolean


Events

Variables

FButtonWidth : Integer;


FColor : TColor;


FDefaultDraw : Boolean;


FDisabledFont : TFont;


FEditState : TsComboState;


FFlat : Boolean;


FOldFont : TFont;


FParentColor : Boolean;



Constructors


constructor Create(AOwner: TComponent);

TsCustomComboBox


Functions


destructor Destroy;


procedure ComboWndProc(var Message: TMessage; ComboWnd: HWnd; ComboProc: Pointer);


procedure CreateParams(var Params: TCreateParams);


procedure DropDown;


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure TrackButton(X, Y: Integer);


procedure CMEnabledChanged(var Msg: TMessage);


procedure CMEnter(var Message: TCMEnter);


procedure CMExit(var Message: TCMExit);


procedure CMMouseEnter(var Message: TMessage);


procedure CMMouseLeave(var Message: TMessage);


procedure DrawButton(DC: HDC);


procedure DrawDisabled(DC: HDC);


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


function NeedBorderRedraw: Boolean;


procedure RedrawBorder(DC: HDC);


procedure RedrawBorders;


procedure RedrawButtonBorder(DC: HDC);


procedure SetDefaultDraw(const Value: Boolean);


procedure SetDisabledFont(Value: TFont);


procedure SetFlat(const Value: Boolean);


procedure WMPaint(var Message: TWMPaint);


Properties


property DefaultDraw : Boolean


property DisabledFont : TFont


property Flat : Boolean


Events


Variables


FButtonWidth : Integer;


FColor : TColor;


FDefaultDraw : Boolean;


FDisabledFont : TFont;


FEditState : TsComboState;


FFlat : Boolean;


FOldFont : TFont;


FParentColor : Boolean;