79 lines
1.9 KiB
ObjectPascal
Executable File
79 lines
1.9 KiB
ObjectPascal
Executable File
unit UnitfrmReplace;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
|
StdCtrls, ExtCtrls, Forms, TntStdCtrls, SpTBXEditors, SpTBXDkPanels,
|
|
TBXDkPanels;
|
|
|
|
type
|
|
TfrmReplace = class(TForm)
|
|
lblSearchFor: TLabel;
|
|
cboSearchFor: TSpTBXComboBox;
|
|
lblReplaceWith: TLabel;
|
|
cboReplaceWith: TSpTBXComboBox;
|
|
pnlOptions: TSpTBXGroupBox;
|
|
chkCaseSensivity: TSpTBXCheckBox;
|
|
chkWholeWordsOnly: TSpTBXCheckBox;
|
|
chkSearchFromCaret: TSpTBXCheckBox;
|
|
chkSelectedTextOnly: TSpTBXCheckBox;
|
|
chkRegularExpression: TSpTBXCheckBox;
|
|
pnlDirection: TSpTBXGroupBox;
|
|
chkForward: TSpTBXCheckBox;
|
|
chkBackward: TSpTBXCheckBox;
|
|
cmdOK: TSpTBXButton;
|
|
cmdCancel: TSpTBXButton;
|
|
bvlReplaceAll: TBevel;
|
|
chkReplaceAll: TSpTBXCheckBox;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure OnDirectionChange(Sender: TObject);
|
|
procedure cmdOKClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
public
|
|
eChange: Boolean;
|
|
end;
|
|
|
|
var
|
|
frmReplace: TfrmReplace;
|
|
|
|
implementation
|
|
|
|
uses UnitLanguages;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmReplace.FormCreate(Sender: TObject);
|
|
begin
|
|
eChange := True;
|
|
end;
|
|
|
|
procedure TfrmReplace.OnDirectionChange(Sender: TObject);
|
|
begin
|
|
if not eChange then exit;
|
|
eChange := False;
|
|
chkForward.Checked := Sender = chkForward;
|
|
chkBackward.Checked := Sender = chkBackward;
|
|
eChange := True;
|
|
end;
|
|
|
|
procedure TfrmReplace.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);
|
|
if (cboReplaceWith.Text <> '') and (cboReplaceWith.Items.IndexOf(cboReplaceWith.Text) = -1) then
|
|
cboReplaceWith.Items.Add(cboReplaceWith.Text);
|
|
ModalResult := mrOK;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmReplace.FormShow(Sender: TObject);
|
|
begin
|
|
cboSearchFor.SetFocus;
|
|
end;
|
|
|
|
end.
|