Class TDLGLocate (unit Dbslocat) |
Inherits from
TForm
**********************************************************************} {Locate Dialog box class} {
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.
function GetLocateInfo: TLocateInfo;
Called from DBsearch.
procedure SetLocateInfo(Info: TLocateInfo);
Called from DBsearch.
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
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
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