unit Search;

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
interface

uses
  //------------------------------------------------------------------
  //-
  //------------------------------------------------------------------
  GenDefs, Options, Language,
  //------------------------------------------------------------------
  //-
  //------------------------------------------------------------------
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Utilities, ExtCtrls;

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
type
  TSearchReplace = class(TForm)
    Naechstes: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Label4: TLabel;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
    procedure FormOK(Key: integer);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure showSearchDialogue(Add:String);
    procedure showReplaceDialogue();
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  public
    origheight:integer;
    lastlist:1..2;
    lastfund:TPoint;
    Search:String;
  end;

  //------------------------------------------------------------------
  //-
  //------------------------------------------------------------------
var
  Form2: TSearchReplace;

  //------------------------------------------------------------------
  //-
  //------------------------------------------------------------------
implementation

{$R *.dfm}

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.FormOK(Key: integer);
begin
  Close();
  modalresult := mrok;
end;


//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.Edit1Change(Sender: TObject);
begin
  search:=Edit1.Text;
end;

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.FormCreate(Sender: TObject);
begin
  origheight:=height;
  lastlist:=1;
  with lastfund do begin x:=0; y:=0 end;
  Search:='';
end;

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_RETURN) then
    FormOK(Key)
  else
    Close();
end;

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.showSearchDialogue(Add:String);
begin
  caption:=trans(392,'Suchen/Ersetzen')+' '+Add;
  Label4.width := (width - 4 * Naechstes.width) div 6;
  Naechstes.Caption:=trans(322,'nächstes') ;
  height := origheight- Panel2.Height;
end;

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.showReplaceDialogue();
begin
  Label4.width := (width - 3 * Naechstes.width) div 3;
  Naechstes.Caption:=trans(176,'ersetzen');
  height := origheight;
end;

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.FormShow(Sender: TObject);
begin
  edit1.Text:=Search;
  setfocus();
end;

//------------------------------------------------------------------
//-
//-   Ende dieser Quelle
//-
//------------------------------------------------------------------
end.