Class TSuperList (unit super) |
Inherits from
TCustomControl
constructor Create(AOwner : TComponent);
procedure Delete;
destructor Destroy;
function GetCurrentString : String;
procedure AddBtnClick(Sender : TObject);
procedure CreateButtons;
procedure CreatePanel;
procedure DeleteBtnClick(Sender : TObject);
procedure EnableButtons;
function GetListBoxFont : TFont;
call resize to realign everything
function GetListBoxItemIndex : Integer;
function GetListBoxItems : TStrings;
procedure ListBoxDoubleClick(Sender : TObject);
procedure SetAlignment(value : TListBoxAlignment);
procedure SetListBoxFont(value : TFont);
procedure SetListBoxItemIndex(value : integer);
procedure SetListBoxItems(value : TStrings);
procedure WMSize(var Message: TWMSize);
property AddCaption : string
property AddPrompt : string
property Align :
property AllowBlanks : boolean
property EditCaption : string
property EditPrompt : string
property ListBoxAlignment : TListBoxAlignment
property ListBoxFont : TFont
property ListBoxItems : TStrings
property MaxCount : Integer
property MaxLength : Integer
property ListBox : TListBox
property ListBoxChanged : boolean
property ListBoxItemIndex : Integer
event OnAddClick : TNotifyEvent
event OnDeleteClick : TNotifyEvent
event OnListBoxDoubleClick : TNotifyEvent
FAddButton : TSpeedButton;
the add and delete buttons
FAddCaption : string;
FAddString : string;
FAllowBlanks : boolean;
max number of entries allowed in listbox
FDeleteButton : TSpeedButton;
FDialogBox : TComponent;
are blanks allowed in the listbox
FEditCaption : string;
FEditString : string;
FListBox : TListBox;
the list box
FListBoxAlignment : TListBoxAlignment;
FListBoxChanged : Boolean;
FMaxCount : Integer;
max length of string in listbox
FMaxLength : Integer;
FOnAddButtonClick : TNotifyEvent;
the events
FOnDeleteButtonClick : TNotifyEvent;
FOnListBoxDoubleClick : TNotifyEvent;
FPanel : TPanel;
panel for holding the buttons
constructor Create(AOwner : TComponent);
procedure Delete;
destructor Destroy;
function GetCurrentString : String;
procedure AddBtnClick(Sender : TObject);
procedure CreateButtons;
procedure CreatePanel;
procedure DeleteBtnClick(Sender : TObject);
procedure EnableButtons;
function GetListBoxFont : TFont;
call resize to realign everything
function GetListBoxItemIndex : Integer;
function GetListBoxItems : TStrings;
procedure ListBoxDoubleClick(Sender : TObject);
procedure SetAlignment(value : TListBoxAlignment);
procedure SetListBoxFont(value : TFont);
procedure SetListBoxItemIndex(value : integer);
procedure SetListBoxItems(value : TStrings);
procedure WMSize(var Message: TWMSize);
property AddCaption : string
property AddPrompt : string
property Align :
property AllowBlanks : boolean
property EditCaption : string
property EditPrompt : string
property ListBoxAlignment : TListBoxAlignment
property ListBoxFont : TFont
property ListBoxItems : TStrings
property MaxCount : Integer
property MaxLength : Integer
property ListBox : TListBox
property ListBoxChanged : boolean
property ListBoxItemIndex : Integer
event OnAddClick : TNotifyEvent
event OnDeleteClick : TNotifyEvent
event OnListBoxDoubleClick : TNotifyEvent
FAddButton : TSpeedButton;
the add and delete buttons
FAddCaption : string;
FAddString : string;
FAllowBlanks : boolean;
max number of entries allowed in listbox
FDeleteButton : TSpeedButton;
FDialogBox : TComponent;
are blanks allowed in the listbox
FEditCaption : string;
FEditString : string;
FListBox : TListBox;
the list box
FListBoxAlignment : TListBoxAlignment;
FListBoxChanged : Boolean;
FMaxCount : Integer;
max length of string in listbox
FMaxLength : Integer;
FOnAddButtonClick : TNotifyEvent;
the events
FOnDeleteButtonClick : TNotifyEvent;
FOnListBoxDoubleClick : TNotifyEvent;
FPanel : TPanel;
panel for holding the buttons