Class TDualListForm (unit FDualLst)

Inherits from

TForm

Constructors



Functions

procedure DstListDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure DstListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure DstListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure ExclAllBtnClick(Sender: TObject);


procedure ExclBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure HelpBtnClick(Sender: TObject);


procedure IncAllBtnClick(Sender: TObject);


procedure IncBtnClick(Sender: TObject);


procedure ListClick(Sender: TObject);


procedure SrcListDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure SrcListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure SrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure SetButtons;

Public declarations

procedure CreateParams(var Params: TCreateParams);

TDualListForm

function GetShowHelp: Boolean;

Private declarations

procedure SetShowHelp(Value: Boolean);


Properties

property ShowHelp : Boolean


Events

Variables

Bevel1 : TBevel;


CancelBtn : TButton;


DstLabel : TLabel;


DstList : TTextListBox;


ExclAllBtn : TButton;


ExclBtn : TButton;


HelpBtn : TButton;


IncAllBtn : TButton;


IncBtn : TButton;


OkBtn : TButton;


SrcLabel : TLabel;


SrcList : TTextListBox;



Constructors


Functions


procedure DstListDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure DstListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure DstListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure ExclAllBtnClick(Sender: TObject);


procedure ExclBtnClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure HelpBtnClick(Sender: TObject);


procedure IncAllBtnClick(Sender: TObject);


procedure IncBtnClick(Sender: TObject);


procedure ListClick(Sender: TObject);


procedure SrcListDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure SrcListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure SrcListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure SetButtons;

Public declarations


procedure CreateParams(var Params: TCreateParams);

TDualListForm


function GetShowHelp: Boolean;

Private declarations


procedure SetShowHelp(Value: Boolean);


Properties


property ShowHelp : Boolean


Events


Variables


Bevel1 : TBevel;


CancelBtn : TButton;


DstLabel : TLabel;


DstList : TTextListBox;


ExclAllBtn : TButton;


ExclBtn : TButton;


HelpBtn : TButton;


IncAllBtn : TButton;


IncBtn : TButton;


OkBtn : TButton;


SrcLabel : TLabel;


SrcList : TTextListBox;