home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
sibylft1.zip
/
DOC.DAT
/
DOC
/
SPCC
/
DUALLIST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-04-07
|
2KB
|
78 lines
UNIT DualList;
INTERFACE
USES
SysUtils,Classes,Forms,Buttons,StdCtrls;
TYPE
TDualList=CLASS(TControl)
PRIVATE
FSrcLabel:TLabel;
FDstLabel:TLabel;
FSrcList:TListBox;
FDstList:TListBox;
FAddBtn:TSpeedButton;
FAddAllBtn:TSpeedButton;
FDelBtn:TSpeedButton;
FDelAllBtn:TSpeedButton;
FOnChange:TNotifyEvent;
FUNCTION GetSrcName:STRING;
PROCEDURE SetSrcName(Value:STRING);
FUNCTION GetSrcItems:TStrings;
PROCEDURE SetSrcItems(Value:TStrings);
FUNCTION GetDstName:STRING;
PROCEDURE SetDstName(Value:STRING);
FUNCTION GetDstItems:TStrings;
PROCEDURE SetDstItems(Value:TStrings);
PROCEDURE UpdateButtons;
PROCEDURE EvItemSelect(Sender:TObject;Index:LONGINT);
PROCEDURE EvAdd(Sender:TObject);
PROCEDURE EvAddAll(Sender:TObject);
PROCEDURE EvDel(Sender:TObject);
PROCEDURE EvDelAll(Sender:TObject);
PROTECTED
PROCEDURE SetupComponent;OVERRIDE;
PROCEDURE SetupShow;OVERRIDE;
PROCEDURE Resize;OVERRIDE;
PROCEDURE SetFocus;OVERRIDE;
PROCEDURE FontChange;OVERRIDE;
PROPERTY Hint;
PUBLIC
FUNCTION WriteSCUResource(Stream:TResourceStream):BOOLEAN;OVERRIDE;
PROCEDURE ReadSCUResource(CONST ResName:TResourceName;VAR Data;DataLen:LONGINT);OVERRIDE;
PROPERTY SrcListBox:TListBox read FSrcList;
PROPERTY DstListBox:TListBox read FDstList;
PROPERTY XAlign;
PROPERTY XStretch;
PROPERTY YAlign;
PROPERTY YStretch;
PUBLISHED
PROPERTY Align;
PROPERTY PenColor;
PROPERTY DstItems:TStrings read GetDstItems write SetDstItems;
PROPERTY DstName:STRING read GetDstName write SetDstName;
PROPERTY Enabled;
PROPERTY Font;
PROPERTY ParentPenColor;
PROPERTY ParentFont;
PROPERTY SrcItems:TStrings read GetSrcItems write SetSrcItems;
PROPERTY SrcName:STRING read GetSrcName write SetSrcName;
PROPERTY TabOrder;
PROPERTY Visible;
PROPERTY ZOrder;
PROPERTY OnChange:TNotifyEvent read FOnChange write FOnChange;
PROPERTY OnFontChange;
PROPERTY OnSetupShow;
END;
FUNCTION InsertDualList(Parent:TControl;Left,Bottom,Width,Height:LONGINT;
CONST SrcName,DstName:STRING):TDualList;
IMPLEMENTATION