Class TSuperList (unit super)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner : TComponent);



Functions

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


Properties

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


Events

event OnAddClick : TNotifyEvent


event OnDeleteClick : TNotifyEvent


event OnListBoxDoubleClick : TNotifyEvent


Variables

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


Constructors


constructor Create(AOwner : TComponent);


Functions


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


Properties


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


Events


event OnAddClick : TNotifyEvent


event OnDeleteClick : TNotifyEvent


event OnListBoxDoubleClick : TNotifyEvent


Variables


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