fabout.pas

来自「Delphi编写的一个支持语法高亮显示和很多语言的文本编辑器」· PAS 代码 · 共 64 行

unit fAbout;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, MovieScroll, jpeg, CorelButton, ComCtrls,
  GIFImage;

type
  TfrmAbout = class(TForm)
    imgLogo: TImage;
    btnOK: TCorelButton;
    bvlLogo: TBevel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    mvMain: TMovieScroll;
    lblVer: TLabel;
    lblBuild: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    pnlVer: TPanel;
    pnlBuild: TPanel;
    Panel1: TPanel;
    TabSheet2: TTabSheet;
    rchMain: TRichEdit;
    procedure Label1Click(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

uses dMain;

{$R *.dfm}

procedure TfrmAbout.Label1Click(Sender: TObject);
begin
 dmMain.ClickLink('http://cedit.sourceforge.net');
 close;
end;

procedure TfrmAbout.btnOKClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmAbout.FormCreate(Sender: TObject);
begin
  rchMain.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Readme.txt');
end;

end.