david
ef415fa856
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.FastReport@9 475b051d-3a53-6940-addd-820bf0cfe0d7
57 lines
1.1 KiB
ObjectPascal
57 lines
1.1 KiB
ObjectPascal
|
|
{******************************************}
|
|
{ }
|
|
{ FastReport v3.0 }
|
|
{ Password form }
|
|
{ }
|
|
{ Copyright (c) 1998-2006 }
|
|
{ by Alexander Tzyganenko, }
|
|
{ Fast Reports Inc. }
|
|
{ }
|
|
{******************************************}
|
|
|
|
unit frxPassw;
|
|
|
|
interface
|
|
|
|
{$I frx.inc}
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls
|
|
{$IFDEF Delphi6}
|
|
, Variants
|
|
{$ENDIF};
|
|
|
|
|
|
type
|
|
TfrxPasswordForm = class(TForm)
|
|
OkB: TButton;
|
|
CancelB: TButton;
|
|
PasswordE: TEdit;
|
|
PasswordL: TLabel;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
public
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses frxRes;
|
|
|
|
|
|
procedure TfrxPasswordForm.FormCreate(Sender: TObject);
|
|
begin
|
|
Caption := frxGet(5000);
|
|
PasswordL.Caption := frxGet(5001);
|
|
OkB.Caption := frxGet(1);
|
|
CancelB.Caption := frxGet(2);
|
|
end;
|
|
|
|
end.
|
|
|
|
|
|
//<censored> |