85 lines
1.6 KiB
ObjectPascal
85 lines
1.6 KiB
ObjectPascal
unit info_form;
|
|
|
|
{$mode ObjFPC}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
|
|
FileInfo, lclintf, Grids;
|
|
|
|
type
|
|
|
|
{ TInformazioni }
|
|
|
|
TInformazioni = class(TForm)
|
|
ApplicationProperties1: TApplicationProperties;
|
|
Image1: TImage;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
VersionLabel: TLabel;
|
|
procedure ApplicationProperties1Deactivate(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDeactivate(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure Image1Click(Sender: TObject);
|
|
procedure Label2Click(Sender: TObject);
|
|
procedure Label4Click(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
Informazioni: TInformazioni;
|
|
versionnumber:string;
|
|
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TInformazioni }
|
|
|
|
procedure TInformazioni.FormShow(Sender: TObject);
|
|
begin
|
|
|
|
|
|
end;
|
|
|
|
procedure TInformazioni.ApplicationProperties1Deactivate(Sender: TObject);
|
|
begin
|
|
Informazioni.Close;
|
|
end;
|
|
|
|
procedure TInformazioni.FormCreate(Sender: TObject);
|
|
begin
|
|
VersionLabel.Caption:='v'+versionnumber;
|
|
end;
|
|
|
|
procedure TInformazioni.FormDeactivate(Sender: TObject);
|
|
begin
|
|
Informazioni.Close;
|
|
end;
|
|
|
|
procedure TInformazioni.Image1Click(Sender: TObject);
|
|
begin
|
|
Informazioni.Close;
|
|
end;
|
|
|
|
procedure TInformazioni.Label2Click(Sender: TObject);
|
|
begin
|
|
LCLIntf.OpenURL('https://www.starstreet.space');
|
|
end;
|
|
|
|
procedure TInformazioni.Label4Click(Sender: TObject);
|
|
begin
|
|
LCLIntf.OpenURL('https://basmilius.github.io/weather-icons/index-fill.html');
|
|
end;
|
|
|
|
end.
|
|
|