Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 24593e5b14
Fetching contributors…

Cannot retrieve contributors at this time

104 lines (79 sloc) 1.754 kb
unit About;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, StdCtrls, Buttons, URIParser, LCLIntf;
const
{$IFDEF LINUX}
Target = 'Linux';
{$ENDIF}
{$IFDEF WINDOWS}
Target = 'Win';
{$ENDIF}
{$IFDEF MAC}
Target = 'Mac';
{$ENDIF}
{$IFDEF BSD}
Target = 'BSD';
{$ENDIF}
{$ifDEF CPU32}
Arch = '32';
{$ENDIF}
{$ifDEF CPU64}
Arch = '64';
{$ENDIF}
type
{ TfmAbout }
TfmAbout = class(TForm)
BitBtn1: TBitBtn;
Image2: TImage;
Label2: TLabel;
Label5: TLabel;
laTarget: TLabel;
laVersion: TLabel;
Label4: TLabel;
laWebSite: TLabel;
Label6: TLabel;
laVersionDate: TLabel;
Shape1: TShape;
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure Label6Click(Sender: TObject);
procedure laWebSiteClick(Sender: TObject);
private
{ private declarations }
public
procedure Init;
{ public declarations }
end;
var
fmAbout: TfmAbout;
implementation
{ TfmAbout }
uses Main;
procedure TfmAbout.laWebSiteClick(Sender: TObject);
begin
OpenURL(laWebSite.Caption);
end;
procedure TfmAbout.Init;
begin
laVersion.Caption:= 'Beta Version ' + fmMain.Version;
laVersionDate.Caption:= fmMain.VersionDate;
laTarget.Caption:= 'Target : ' + Target + '-' + Arch;
end;
procedure TfmAbout.Label6Click(Sender: TObject);
begin
OpenURL('http://lazarus.freepascal.org');
end;
procedure TfmAbout.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
CloseAction:= caFree;
end;
procedure TfmAbout.BitBtn1Click(Sender: TObject);
begin
Close;
end;
initialization
{$I about.lrs}
end.
Jump to Line
Something went wrong with that request. Please try again.