| Class TDualListForm (unit Dllstdlg) |
TForm
DllstDlg.pas (c) 1996 Dwayne Mercredi and Borland International declares classes TDualListForm and TDualListDialog TDualListForm is the dual list form created with the form template, with the following added behaviour: Double clicking on a list moves that element to the other list. TDualListDialog is a component that wraps the TDualListForm
| Constructors |
| Functions |
procedure ExcAllBtnClick(Sender: TObject);
procedure ExcludeBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
function GetFirstSelection(List: TCustomListBox): Integer;
procedure IncAllBtnClick(Sender: TObject);
procedure IncludeBtnClick(Sender: TObject);
procedure ListBoxDblClick(Sender: TObject);
procedure MoveSelected(List: TCustomListBox; Items: TStrings);
procedure SetButtons;
procedure SetItem(List: TListBox; Index: Integer);| Properties |
| Events |
| Variables |
CancelBtn : TBitBtn;
DstLabel : TLabel;
DstListBox : TListBox;
ExAllBtn : TSpeedButton;
ExcludeBtn : TSpeedButton;
HelpBtn : TBitBtn;
IncAllBtn : TSpeedButton;
IncludeBtn : TSpeedButton;
OKBtn : TBitBtn;
SrcLabel : TLabel;
SrcListBox : TListBox;| Constructors |
| Functions |
procedure ExcAllBtnClick(Sender: TObject);
procedure ExcludeBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);sync buttons with self
function GetFirstSelection(List: TCustomListBox): Integer;
procedure IncAllBtnClick(Sender: TObject);
procedure IncludeBtnClick(Sender: TObject);------------------------------------------------------------------ class TDualListForm ------------------------------------------------------------------
procedure ListBoxDblClick(Sender: TObject);
procedure MoveSelected(List: TCustomListBox; Items: TStrings);
procedure SetButtons;
procedure SetItem(List: TListBox; Index: Integer);| Properties |
| Events |
| Variables |
CancelBtn : TBitBtn;
DstLabel : TLabel;
DstListBox : TListBox;
ExAllBtn : TSpeedButton;
ExcludeBtn : TSpeedButton;
HelpBtn : TBitBtn;
IncAllBtn : TSpeedButton;
IncludeBtn : TSpeedButton;
OKBtn : TBitBtn;
SrcLabel : TLabel;
SrcListBox : TListBox;