Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/Delphi/Bille 0.71/ (Columbo Version 0.7^©) Datei vom 14.0.2013 mit Größe 3 kB

SSL SearchReplace.pas Interaktion und
PortierbarkeitDelphi

unit SearchReplace;

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

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

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
type
  TSearchReplace = class(TForm)
    Label1: TLabel;
    Naechstes: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel4: TPanel;
    Button4: TButton;
    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;
    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;
  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') ;
  Button4.Visible := true;
  height := origheight- Panel2.Height;
  Voriges.Show();
end;

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

//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TSearchReplace.FormShow(Sender: TObject);
begin
  setfocus();
end;

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

quality98%

¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.13Angebot Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können ¤

*Eine klare Vorstellung vom Zielzustand

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.