82 lines
1.9 KiB
ObjectPascal
Executable File
82 lines
1.9 KiB
ObjectPascal
Executable File
unit UnitfrmSearch;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
|
StdCtrls, ExtCtrls, Forms, TntStdCtrls, SpTBXEditors, SpTBXDkPanels,
|
|
TBXDkPanels, Dialogs;
|
|
|
|
type
|
|
TfrmSearch = class(TForm)
|
|
pnlOptions: TSpTBXGroupBox;
|
|
lblSearchFor: TLabel;
|
|
cboSearchFor: TSpTBXComboBox;
|
|
pnlDirection: TSpTBXGroupBox;
|
|
chkCaseSensivity: TSpTBXCheckBox;
|
|
chkWholeWordsOnly: TSpTBXCheckBox;
|
|
chkSearchFromCaret: TSpTBXCheckBox;
|
|
chkSelectedTextOnly: TSpTBXCheckBox;
|
|
chkRegularExpression: TSpTBXCheckBox;
|
|
cmdOK: TSpTBXButton;
|
|
cmdCancel: TSpTBXButton;
|
|
chkForward: TSpTBXCheckBox;
|
|
chkBackward: TSpTBXCheckBox;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure OnDirectionClick(Sender: TObject);
|
|
procedure cmdOKClick(Sender: TObject);
|
|
procedure cboSearchForKeyPress(Sender: TObject; var Key: Char);
|
|
procedure FormShow(Sender: TObject);
|
|
public
|
|
eChange: Boolean;
|
|
end;
|
|
|
|
var
|
|
frmSearch: TfrmSearch;
|
|
|
|
implementation
|
|
|
|
uses UnitLanguages, UnitPlugins;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmSearch.FormCreate(Sender: TObject);
|
|
begin
|
|
eChange := True;
|
|
end;
|
|
|
|
procedure TfrmSearch.OnDirectionClick(Sender: TObject);
|
|
begin
|
|
if not eChange then exit;
|
|
eChange := False;
|
|
chkForward.Checked := Sender = chkForward;
|
|
chkBackward.Checked := Sender = chkBackward;
|
|
eChange := True;
|
|
end;
|
|
|
|
procedure TfrmSearch.cmdOKClick(Sender: TObject);
|
|
begin
|
|
if cboSearchFor.Text = '' then
|
|
MessageBox(Handle, PChar(lEnterSearchText), PChar(Application.Title), MB_ICONERROR)
|
|
else begin
|
|
if cboSearchFor.Items.IndexOf(cboSearchFor.Text) = -1 then
|
|
cboSearchFor.Items.Add(cboSearchFor.Text);
|
|
ModalResult := mrOK;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSearch.cboSearchForKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if Key = #13 then begin
|
|
cmdOk.Click;
|
|
Key := #0;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSearch.FormShow(Sender: TObject);
|
|
begin
|
|
cboSearchFor.SetFocus;
|
|
end;
|
|
|
|
end.
|