frxsearchdialog.pas

来自「报表源码 FastReport 3 is new generation of t」· PAS 代码 · 共 71 行

{******************************************}
{ }
{ FastReport v3.0 }
{ Search dialog }
{ }
{ Copyright (c) 1998-2005 }
{ by Alexander Tzyganenko, }
{ Fast Reports Inc. }
{ }
{******************************************}

unit frxSearchDialog;

interface

{$I frx.inc}

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

type
  TfrxSearchDialog = class(TForm)
    ReplacePanel:TPanel;
    ReplaceL:TLabel;
    ReplaceE:TEdit;
    Panel2:TPanel;
    TextL:TLabel;
    TextE:TEdit;
    Panel3:TPanel;
    OkB:TButton;
    CancelB:TButton;
    SearchL:TGroupBox;
    CaseCB:TCheckBox;
    TopCB:TCheckBox;
    procedure FormCreate(Sender:TObject);
    procedure FormHide(Sender:TObject);
    procedure FormShow(Sender:TObject);
  private
  public
  end;

implementation

uses frxRes;

{$R *.DFM}

var
  LastText:String;

procedure TfrxSearchDialog.FormCreate(Sender:TObject);
begin
  frxResources.LocalizeForm(Self);
end;

procedure TfrxSearchDialog.FormShow(Sender:TObject);
begin
  TextE.Text:= LastText;
  TextE.SetFocus;
  TextE.SelectAll;
end;

procedure TfrxSearchDialog.FormHide(Sender:TObject);
begin
  if ModalResult = mrOk then
    LastText:= TextE.Text;
end;

end.