Class TSelectComboBox (unit SelCombo)

Inherits from

TComboBox

Constructors


constructor Create ( AOwner : TComponent );



Functions

procedure CheckAll;


procedure Checked( Index: integer );


procedure ClosePopUp( Sender : TObject );

Assign Form coordinate and show

procedure DeSelectAll( Sender: TObject );


destructor Destroy;

Create PopUp

function IsChecked ( Index: integer ) : boolean;


procedure ListBoxDrawItem( Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState );


procedure ListBoxMouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );


function NonSelectedList : TStringList;


procedure SelectAll( Sender: TObject );

procedure TSelectComboBox.

function SelectedList : TStringList;


function SelectedString : string;


procedure UnCheckAll;


procedure UnChecked( Index: integer );


procedure DropDown;


function IfChecked( Index: integer ) : boolean;


procedure OwnerDrawCheck ( Index: integer );


procedure OwnerDrawRect ( Index: integer );


procedure Toggle( Index : integer );


Properties

property HorzScrollBar : boolean


Events

Variables

FDDForm : TForm;


FDeSelectAll : TMenuItem;


FHorzScrollBar : boolean;


FListBox : TListBox;


FPopup : TPopupMenu;


FSelectAll : TMenuItem;



Constructors


constructor Create ( AOwner : TComponent );


Functions


procedure CheckAll;


procedure Checked( Index: integer );


procedure ClosePopUp( Sender : TObject );

Assign Form coordinate and show


procedure DeSelectAll( Sender: TObject );


destructor Destroy;

Create PopUp


function IsChecked ( Index: integer ) : boolean;


procedure ListBoxDrawItem( Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState );


procedure ListBoxMouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );


function NonSelectedList : TStringList;


procedure SelectAll( Sender: TObject );

procedure TSelectComboBox.SelectAll( Sender: TObject );


function SelectedList : TStringList;


function SelectedString : string;


procedure UnCheckAll;


procedure UnChecked( Index: integer );


procedure DropDown;


function IfChecked( Index: integer ) : boolean;


procedure OwnerDrawCheck ( Index: integer );


procedure OwnerDrawRect ( Index: integer );


procedure Toggle( Index : integer );


Properties


property HorzScrollBar : boolean


Events


Variables


FDDForm : TForm;


FDeSelectAll : TMenuItem;


FHorzScrollBar : boolean;


FListBox : TListBox;


FPopup : TPopupMenu;


FSelectAll : TMenuItem;