Upload files to "freccie"

freccie/info_form.pas

@@ -0,0 +1,84 @@
+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.
+