Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Search.pas Sprache: Delphi

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.

¤ Dauer der Verarbeitung: 0.15 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.