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

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;



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;