You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
76 lines
1.4 KiB
76 lines
1.4 KiB
unit AboutForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
|
StdCtrls;
|
|
|
|
type
|
|
|
|
{ TFormAbout }
|
|
|
|
TFormAbout = class(TForm)
|
|
BtnClose: TButton;
|
|
ImageIcon: TImage;
|
|
Label1: TLabel;
|
|
LabWeb: TLabel;
|
|
LabTitle: TLabel;
|
|
LabVersion: TLabel;
|
|
procedure BtnCloseClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure LabWebClick(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
FormAbout: TFormAbout;
|
|
|
|
implementation
|
|
|
|
uses
|
|
LCLIntf, DataModule, Config;
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TFormAbout }
|
|
|
|
procedure TFormAbout.BtnCloseClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TFormAbout.FormCreate(Sender: TObject);
|
|
var
|
|
Icon: TIcon;
|
|
begin
|
|
LabTitle.Caption := Application.Title;
|
|
LabVersion.Caption := 'v' + Module.VersionString;
|
|
LabWeb.Caption := Config.WebLink;
|
|
|
|
if Config.LogoImageResName = '' then
|
|
begin
|
|
Icon := TIcon.Create;
|
|
try
|
|
Icon.LoadFromResourceName(HInstance, 'MAINICON');
|
|
ImageIcon.Picture.Assign(Icon);
|
|
{$IF Defined(DARWIN)}
|
|
ImageIcon.Stretch := False; // Currently broken in Cocoa WS
|
|
{$ENDIF}
|
|
finally
|
|
Icon.Free;
|
|
end;
|
|
end
|
|
else
|
|
begin
|
|
ImageIcon.Stretch := False;
|
|
ImageIcon.Picture.LoadFromResourceName(HInstance, Config.LogoImageResName);
|
|
end;
|
|
end;
|
|
|
|
procedure TFormAbout.LabWebClick(Sender: TObject);
|
|
begin
|
|
OpenURL(LabWeb.Caption);
|
|
end;
|
|
|
|
end.
|
|
|