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.