david
3b72eb27ca
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.FastReport@22 475b051d-3a53-6940-addd-820bf0cfe0d7
142 lines
3.5 KiB
ObjectPascal
142 lines
3.5 KiB
ObjectPascal
|
|
{******************************************}
|
|
{ }
|
|
{ FastReport v4.0 }
|
|
{ About window }
|
|
{ }
|
|
{ Copyright (c) 1998-2008 }
|
|
{ by Alexander Tzyganenko, }
|
|
{ Fast Reports Inc. }
|
|
{ }
|
|
{******************************************}
|
|
|
|
unit frxAbout;
|
|
|
|
interface
|
|
|
|
{$I frx.inc}
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
ExtCtrls, StdCtrls;
|
|
|
|
type
|
|
TfrxAboutForm = class(TForm)
|
|
Button1: TButton;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Image1: TImage;
|
|
Bevel2: TBevel;
|
|
Label5: TLabel;
|
|
Shape1: TShape;
|
|
Label1: TLabel;
|
|
Label4: TLabel;
|
|
Label6: TLabel;
|
|
Label7: TLabel;
|
|
Label8: TLabel;
|
|
Label9: TLabel;
|
|
Label10: TLabel;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure LabelClick(Sender: TObject);
|
|
procedure FormKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
procedure FormDestroy(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
{$IFDEF FR_COM}
|
|
LabelVer: Tlabel;
|
|
{$ENDIF}
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses frxClass, frxUtils, frxRes, ShellApi
|
|
{$IFDEF FR_COM}, Registry{$ENDIF};
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrxAboutForm.FormCreate(Sender: TObject);
|
|
{$IFDEF FR_COM}
|
|
var
|
|
r: TRegistry;
|
|
s: String;
|
|
{$ENDIF}
|
|
begin
|
|
Caption := frxGet(2600);
|
|
Label4.Caption := frxGet(2601);
|
|
Label6.Caption := frxGet(2602);
|
|
Label8.Caption := frxGet(2603);
|
|
Label2.Caption := 'Version ' + FR_VERSION;
|
|
Label10.Caption := #174;
|
|
{$IFDEF FR_COM}
|
|
LabelVer := TLabel.Create(Self);
|
|
LabelVer.AutoSize := False;
|
|
LabelVer.Alignment := taRightJustify;
|
|
LabelVer.Left := 93;
|
|
LabelVer.Top := 70;
|
|
LabelVer.Width := 148;
|
|
LabelVer.Parent := Self;
|
|
LabelVer.Font.Name := 'Tahoma';
|
|
LabelVer.Font.Size := 8;
|
|
LabelVer.Caption := 'Studio';
|
|
r := TRegistry.Create;
|
|
try
|
|
r.RootKey := HKEY_CURRENT_USER;
|
|
if r.OpenKeyReadOnly('Software\Fast Reports\Studio') then
|
|
begin
|
|
s := Copy(r.ReadString('Serial'), 12, 3);
|
|
if s = 'TSN' then
|
|
LabelVer.Caption := LabelVer.Caption + ' Business';
|
|
if s = 'TTM' then
|
|
LabelVer.Caption := LabelVer.Caption + ' Team';
|
|
if s = 'TCM' then
|
|
LabelVer.Caption := LabelVer.Caption + ' Company';
|
|
if s = 'TPR' then
|
|
LabelVer.Caption := LabelVer.Caption + ' Personal';
|
|
{$IFDEF OLAP}
|
|
if s = 'TBA' then
|
|
LabelVer.Caption := LabelVer.Caption + ' Business Analytic';
|
|
{$ENDIF}
|
|
end;
|
|
finally
|
|
r.Free;
|
|
end;
|
|
{$ENDIF}
|
|
Label3.Caption := '(c) 1998-' + FormatDateTime('YYYY', Now) + ' by Alexander Tzyganenko, Fast Reports Inc.';
|
|
if UseRightToLeftAlignment then
|
|
FlipChildren(True);
|
|
end;
|
|
|
|
procedure TfrxAboutForm.LabelClick(Sender: TObject);
|
|
begin
|
|
case TLabel(Sender).Tag of
|
|
1: ShellExecute(GetDesktopWindow, 'open',
|
|
PChar(TLabel(Sender).Caption), nil, nil, sw_ShowNormal);
|
|
2: ShellExecute(GetDesktopWindow, 'open',
|
|
PChar('mailto:' + TLabel(Sender).Caption), nil, nil, sw_ShowNormal);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrxAboutForm.FormKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
if Key = VK_ESCAPE then
|
|
ModalResult := mrCancel;
|
|
end;
|
|
|
|
procedure TfrxAboutForm.FormDestroy(Sender: TObject);
|
|
begin
|
|
{$IFDEF FR_COM}
|
|
LabelVer.Free;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
end.
|
|
|
|
|
|
|
|
//
|