Haftungsausschluß.~4~ KontaktCS {CS[112] Ada[137] Abap[1500]}diese Dinge liegen außhalb unserer Verantwortung
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;
Voriges: TButton;
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);
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.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;
Voriges.Show();
end;
//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.showReplaceDialogue();
begin
Label4.width := (width - 3 * Naechstes.width) div 3;
Naechstes.Caption:=trans(176,'ersetzen');
height := origheight;
Voriges.Hide();
end;
//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.FormShow(Sender: TObject);
begin
edit1.Text:=Search;
setfocus();
end;
//------------------------------------------------------------------
//-
//- Ende dieser Quelle
//-
//------------------------------------------------------------------
end.
[ Seitenstruktur0.85Drucken
]
