| Class TFormPropsDlg (unit PresrDsn) |
TForm
TFormPropsDlg
| Constructors |
| Functions |
procedure AddButtonClick(Sender: TObject);
procedure ClearButtonClick(Sender: TObject);
procedure DeleteButtonClick(Sender: TObject);
procedure DownBtnClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ListClick(Sender: TObject);
procedure PropertiesListDblClick(Sender: TObject);
procedure StoredListClick(Sender: TObject);
procedure StoredListDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure StoredListDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure UpBtnClick(Sender: TObject);
procedure AddItem(IdxComp, IdxProp: Integer; AUpdate: Boolean);
procedure BuildLists(StoredProps: TStrings);
procedure CheckAddItem(const CompName, PropName: string);
procedure CheckButtons;
procedure ClearLists;
procedure DeleteProp(I: Integer);
function FindProp(const CompName, PropName: string; var IdxComp,
IdxProp: Integer): Boolean;
procedure ListToIndex(List: TCustomListBox; Idx: Integer);
procedure SetStoredList(AList: TStrings);
procedure UpdateCurrent;| Properties |
| Events |
| Variables |
ActiveCtrlBox : TCheckBox;
AddButton : TButton;
Bevel1 : TBevel;
CancelBtn : TButton;
ClearButton : TButton;
ComponentsList : TTextListBox;
DeleteButton : TButton;
DownBtn : TSpeedButton;
FormBox : TGroupBox;
Label2 : TLabel;
Label30 : TLabel;
Label31 : TLabel;
OkBtn : TButton;
PositionBox : TCheckBox;
PropertiesList : TTextListBox;
StateBox : TCheckBox;
StoredList : TTextListBox;
UpBtn : TSpeedButton;
FCompOwner : TComponent;
FDesigner : TDesigner;| Constructors |
| Functions |
procedure AddButtonClick(Sender: TObject);
procedure ClearButtonClick(Sender: TObject);
procedure DeleteButtonClick(Sender: TObject);
procedure DownBtnClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ListClick(Sender: TObject);
procedure PropertiesListDblClick(Sender: TObject);
procedure StoredListClick(Sender: TObject);
procedure StoredListDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure StoredListDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure UpBtnClick(Sender: TObject);
procedure AddItem(IdxComp, IdxProp: Integer; AUpdate: Boolean);
procedure BuildLists(StoredProps: TStrings);
procedure CheckAddItem(const CompName, PropName: string);
procedure CheckButtons;
procedure ClearLists;
procedure DeleteProp(I: Integer);
function FindProp(const CompName, PropName: string; var IdxComp,
IdxProp: Integer): Boolean;I := ComponentsList.ItemIndex;
procedure ListToIndex(List: TCustomListBox; Idx: Integer);TFormPropsDlg
procedure SetStoredList(AList: TStrings);
procedure UpdateCurrent;| Properties |
| Events |
| Variables |
ActiveCtrlBox : TCheckBox;
AddButton : TButton;
Bevel1 : TBevel;
CancelBtn : TButton;
ClearButton : TButton;
ComponentsList : TTextListBox;
DeleteButton : TButton;
DownBtn : TSpeedButton;
FormBox : TGroupBox;
Label2 : TLabel;
Label30 : TLabel;
Label31 : TLabel;
OkBtn : TButton;
PositionBox : TCheckBox;
PropertiesList : TTextListBox;
StateBox : TCheckBox;
StoredList : TTextListBox;
UpBtn : TSpeedButton;
FCompOwner : TComponent;Private declarations
FDesigner : TDesigner;