Add an "Environment" label on the about dialog, showing Windows versi…

…on, Windows Store package name, or Wine
HeidiSQL · Feb 3, 2018 · d58e30d · d58e30d
1 parent 0736ed8
commit d58e30d
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 3 deletions.
diff --git a/out/locale/en/LC_MESSAGES/default.po b/out/locale/en/LC_MESSAGES/default.po
@@ -3755,6 +3755,9 @@ msgstr "None"
 msgid "Compiled on:"
 msgstr "Compiled on:"
 
+msgid "Environment:"
+msgstr "Environment:"
+
 #: bineditor.pas:175 texteditor.pas:259
 msgid "Apply modifications?"
 msgstr "Apply modifications?"

diff --git a/source/about.dfm b/source/about.dfm
@@ -49,7 +49,7 @@ object AboutBox: TAboutBox
   end
   object lblAppCompiled: TLabel
     Left = 117
-    Top = 60
+    Top = 62
     Width = 72
     Height = 13
     Caption = 'lblAppCompiled'
@@ -58,7 +58,7 @@ object AboutBox: TAboutBox
   end
   object lblAppWebpage: TLabel
     Left = 117
-    Top = 78
+    Top = 100
     Width = 75
     Height = 13
     Cursor = crHandPoint
@@ -1381,7 +1381,7 @@ object AboutBox: TAboutBox
   end
   object lblCredits: TLabel
     Left = 117
-    Top = 97
+    Top = 119
     Width = 34
     Height = 13
     Cursor = crHandPoint
@@ -1398,6 +1398,14 @@ object AboutBox: TAboutBox
     OnClick = lblCreditsClick
     OnMouseMove = MouseOver
   end
+  object lblEnvironment: TLabel
+    Left = 117
+    Top = 81
+    Width = 70
+    Height = 13
+    Caption = 'lblEnvironment'
+    PopupMenu = popupLabels
+  end
   object btnClose: TButton
     Left = 373
     Top = 282

diff --git a/source/about.pas b/source/about.pas
@@ -26,6 +26,7 @@   TAboutBox = class(TForm)
     lblCredits: TLabel;
     popupLabels: TPopupMenu;
     menuCopyLabel: TMenuItem;
+    lblEnvironment: TLabel;
     procedure OpenURL(Sender: TObject);
     procedure MouseOver(Sender: TObject; Shift: TShiftState; X, Y: Integer);
     procedure FormShow(Sender: TObject);
@@ -141,6 +142,18 @@ procedure TAboutBox.FormShow(Sender: TObject);
   lblAppWebpage.Caption := APPDOMAIN;
   lblAppWebpage.Hint := APPDOMAIN+'?place='+EncodeURLParam(lblAppWebpage.Name);
   ImageHeidisql.Hint := APPDOMAIN+'?place='+EncodeURLParam(ImageHeidisql.Name);
+  lblEnvironment.Caption := _('Environment:');
+  if RunningAsUwp then begin
+    lblEnvironment.Caption := lblEnvironment.Caption +
+      ' Windows v'+IntToStr(Win32MajorVersion)+'.'+IntToStr(Win32MinorVersion) +
+      ', Store Package ' + GetUwpFullName;
+  end else if MainForm.IsWine then begin
+    lblEnvironment.Caption := lblEnvironment.Caption +
+      ' Linux/Wine';
+  end else begin
+    lblEnvironment.Caption := lblEnvironment.Caption +
+      ' Windows v'+IntToStr(Win32MajorVersion)+'.'+IntToStr(Win32MinorVersion);
+  end;
 
   Screen.Cursor := crDefault;
 end;