easyrepldlg.pas.svn-base

来自「支持自定义语法高亮显示的编辑器控件」· SVN-BASE 代码 · 共 109 行

{*****************************************************}
{                                                     }
{ Replace dialog                                      }
{                                                     }
{  Copyright (c) 1992-2002 Altium Limited             }
{  All rights reserved.                               }
{                                                     }
{  http://www.dream-com.com                           }
{  [e-mail]                              }
{                                                     }
{*****************************************************}

unit EasyReplDlg;

interface
{$I Easy.inc}
uses
  {$IFNDEF EASY_CLX}
  Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
  {$ELSE}
  QForms, QControls, QStdCtrls, QExtCtrls,
  {$ENDIF}
  SysUtils, Classes,
  EasySearchDlg, EasyControls, EasySettings, EasyBox;

type
  TFrmReplDlg = class(TFrmFindDlg)
    lbReplaceWith: TLabel;
    chbPromptOnReplace: TCheckBox;
    btReplaceAll: TButton;
    cbReplaceWith: TEasyHistoryEditor;
    procedure btOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    {$IFNDEF EASY_CLX}
    procedure BeforeLoadDialogSettings; override;
    {$ENDIF}
  public
    procedure LoadSettings; override;
    procedure SaveSettings; override;
    { Public declarations }
  end;

var
  FrmReplDlg: TFrmReplDlg;

implementation
{$IFNDEF EASY_CLX}
{$R *.DFM}
{$ELSE}
{$R *.xfm}
{$ENDIF}

{--------------------------------------------}

procedure TFrmReplDlg.LoadSettings;
begin
  inherited;
  with SearchSettings do
  begin
    cbReplaceWith.Text := ReplaceWith;
    chbPromptOnReplace.Checked := PromptOnReplace;
  end;
end;

{--------------------------------------------}

{$IFNDEF EASY_CLX}
procedure TFrmReplDlg.BeforeLoadDialogSettings;
begin
  DialogSettings.Key := 'ReplaceDlg';
end;
{$ENDIF}
{--------------------------------------------}

procedure TFrmReplDlg.SaveSettings;
begin
  inherited;
  with SearchSettings do
  begin
    ReplaceWith := cbReplaceWith.Text;
    PromptOnReplace := chbPromptOnReplace.Checked;
  end;
end;

{--------------------------------------------}

procedure TFrmReplDlg.btOKClick(Sender: TObject);
begin
  inherited;
  SearchSettings.ReplaceAll := Sender = btReplaceAll;
end;

{--------------------------------------------}

procedure TFrmReplDlg.FormCreate(Sender: TObject);
begin
  inherited;
  cbReplaceWith.TabOrder := 1;
  cbReplaceWith.FileName := cbTextToFind.FileName; 
end;

initialization
  GlobalReplaceDialogClass := TFrmReplDlg;

end.