unit_about.pas

电子阅读器,适合处学者使用和学习.有意见联系我 .

Unit Unit_About;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ShellApi;

Type
  TF_About=Class(TForm)
    Image1: TImage;
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    Memo2: TMemo;
    L_ver2: TLabel;
    Label2: TLabel;
    Image2: TImage;
    Button3: TButton;
    Procedure Button1Click(Sender: TObject);
    Procedure FormActivate(Sender: TObject);
    Procedure FormCreate(Sender: TObject);
    Procedure Label2Click(Sender: TObject);
    Procedure Button3Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  F_About: TF_About;

Implementation

{$R *.dfm}
Uses Unit_Main;
Procedure TF_About.Button1Click(Sender: TObject);
Begin
  Close;
End;

Procedure TF_About.FormActivate(Sender: TObject);
Begin
  Memo2.Clear;
  If FileExists('Log.txt') Then
    Memo2.Lines.LoadFromFile('Log.txt');

  Memo2.Lines.Insert(0, 'Copyright (C) 2005－2007 Lanwet. All rights reserved.');
  Memo2.Lines.Insert(1, '日志:');
  Button1.SetFocus;
End;

Procedure TF_About.FormCreate(Sender: TObject);
Begin
  L_ver2.Caption:='Ver:'+Ver;
  Memo1.Lines.Add('欢迎使用电子阅览者 [Elcreader]!');
  Memo1.Lines.Add(#13#10);
  Memo1.Lines.Add('程序版本:'+Ver);
  Memo1.Lines.Add('数据引擎版本:'+VMain);
End;

Procedure TF_About.Label2Click(Sender: TObject);
Begin
  ShellExecute(Handle, 'open','http://soft.lanwet.com', Nil, Nil, SW_SHOWNORMAL);
End;

Procedure TF_About.Button3Click(Sender: TObject);
Begin
  f_main.N23.Click;
End;

End.