Class TDualListForm (unit Dllstdlg) |
Inherits from
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
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);
CancelBtn : TBitBtn;
DstLabel : TLabel;
DstListBox : TListBox;
ExAllBtn : TSpeedButton;
ExcludeBtn : TSpeedButton;
HelpBtn : TBitBtn;
IncAllBtn : TSpeedButton;
IncludeBtn : TSpeedButton;
OKBtn : TBitBtn;
SrcLabel : TLabel;
SrcListBox : TListBox;
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);
CancelBtn : TBitBtn;
DstLabel : TLabel;
DstListBox : TListBox;
ExAllBtn : TSpeedButton;
ExcludeBtn : TSpeedButton;
HelpBtn : TBitBtn;
IncAllBtn : TSpeedButton;
IncludeBtn : TSpeedButton;
OKBtn : TBitBtn;
SrcLabel : TLabel;
SrcListBox : TListBox;