First alpha release for Linux

Author: artem78

uAbout.pas

@@ -67,6 +67,7 @@ procedure TAboutForm.FormCreate(Sender: TObject);
 var
   Png: TPortableNetworkGraphic;
   ResourceName: String;
+  VersionStr: String;
 begin
   Caption := Localizer.I18N('About');
 
@@ -89,8 +90,13 @@ procedure TAboutForm.FormCreate(Sender: TObject);
   ProgramNameLabel.Caption := Application.Title;
 
   VersionTitleLabel.Caption := Localizer.I18N('Version') + ':';
+  VersionStr := GetProgramVersionStr;
+  {$IfDef Linux}
+    // ToDo: Don't forget to remove this in the future
+    VersionStr := VersionStr + ' Alpha-1';
+  {$EndIf}
   VersionValueLabel.Caption := Format('%s (%s) %s', [
-          GetProgramVersionStr(), Bitness,
+          VersionStr, Bitness,
           IfThen(IsPortable, Localizer.I18N('Portable'))
   ]);
   {$IFOPT D+}