fuqimport2replacementedit.pas

EMS Advanced.Import.Component.Suite.v2.43

unit fuQImport2ReplacementEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TfmQImport2ReplacementEdit = class(TForm)
    bOk: TButton;
    bCancel: TButton;
    laTextToFind: TLabel;
    laReplaceWith: TLabel;
    chIgnoreCase: TCheckBox;
    edTextToFind: TEdit;
    edReplaceWith: TEdit;
    Bevel: TBevel;
    procedure bOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function ReplacementEdit(var TextToFind, ReplaceWith: string;
  var IgnoreCase: boolean): boolean;

implementation

{$R *.DFM}

uses {$IFDEF WIN32}QImport2StrIDs{$ENDIF}
     {$IFDEF LINUX}QImport2Consts{$ENDIF}, QImport2;

function ReplacementEdit(var TextToFind, ReplaceWith: string;
  var IgnoreCase: boolean): boolean;
begin
  with TfmQImport2ReplacementEdit.Create(nil) do
    try
      edTextToFind.Text := TextToFind;
      edReplaceWith.Text := ReplaceWith;
      chIgnoreCase.Checked := IgnoreCase;

      Result := ShowModal = mrOk;

      if Result then begin
        TextToFind := edTextToFind.Text;
        ReplaceWith := edReplaceWith.Text;
        IgnoreCase := chIgnoreCase.Checked;
      end;
    finally
      Free;
    end;
end;

procedure TfmQImport2ReplacementEdit.bOkClick(Sender: TObject);
begin
  if edTextToFind.Text = EmptyStr then
    raise Exception.Create({$IFDEF WIN32}QImportLoadStr(QIE_NeedDefineTextToFind){$ENDIF}
                           {$IFDEF LINUX}QIE_NeedDefineTextToFind{$ENDIF});
  ModalResult := mrOk;
end;

procedure TfmQImport2ReplacementEdit.FormCreate(Sender: TObject);
begin
  Caption := {$IFDEF WIN32}QImportLoadStr(QIWDF_RE_Title){$ENDIF}
             {$IFDEF LINUX}QIWDF_RE_Title{$ENDIF};
  laTextToFind.Caption := {$IFDEF WIN32}QImportLoadStr(QIWDF_RE_TextToFind){$ENDIF}
                          {$IFDEF LINUX}QIWDF_RE_TextToFind{$ENDIF};
  laReplaceWith.Caption := {$IFDEF WIN32}QImportLoadStr(QIWDF_RE_ReplaceWith){$ENDIF}
                           {$IFDEF LINUX}QIWDF_RE_ReplaceWith{$ENDIF};
  chIgnoreCase.Caption := {$IFDEF WIN32}QImportLoadStr(QIWDF_RE_IgnoreCase){$ENDIF}
                          {$IFDEF LINUX}QIWDF_RE_IgnoreCase{$ENDIF};
end;

end.