| Class TDLGLocate (unit Dbslocat) |
TForm
**********************************************************************} {Locate Dialog box class} {
| Constructors |
| Functions |
procedure bCancelClick(Sender: TObject);
procedure FindFirstButtonClick(Sender: TObject);
procedure FindNextButtonClick(Sender: TObject);
procedure GoToEndButtonClick(Sender: TObject);
procedure GoToTopButtonClick(Sender: TObject);
procedure txtSearchStringChange(Sender: TObject);
procedure AddLocateField(FieldName: string);
function GetLocateInfo: TLocateInfo;
procedure SetLocateInfo(Info: TLocateInfo);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
cbxCaseSensitive : TCheckBox;
cbxFields : TComboBox;
FindFirstButton : TButton;
FindNextButton : TButton;
GoToEndButton : TButton;
GoToTopButton : TButton;
GroupBox2 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
rbExactMatch : TRadioButton;
rbPatternMatch : TRadioButton;
txtSearchString : TEdit;
HelpFile : string;| Constructors |
| Functions |
procedure bCancelClick(Sender: TObject);
procedure FindFirstButtonClick(Sender: TObject);
procedure FindNextButtonClick(Sender: TObject);
procedure GoToEndButtonClick(Sender: TObject);
procedure GoToTopButtonClick(Sender: TObject);
procedure txtSearchStringChange(Sender: TObject);
procedure AddLocateField(FieldName: string);*****************************************************************} { AddLocateField(FieldName): Field to be added to searchable field list. It adds fields to the combobox listing fields that can be searched. } {
function GetLocateInfo: TLocateInfo;Called from DBsearch.pas AFTER showing dialog box
procedure SetLocateInfo(Info: TLocateInfo);Called from DBsearch.pas BEFORE showing dialog box
| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
cbxCaseSensitive : TCheckBox;
cbxFields : TComboBox;
FindFirstButton : TButton;
FindNextButton : TButton;
GoToEndButton : TButton;
GoToTopButton : TButton;
GroupBox2 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
rbExactMatch : TRadioButton;
rbPatternMatch : TRadioButton;
txtSearchString : TEdit;
HelpFile : string;Public declarations