opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add an "Environment" label on the about dialog, showing Windows version, Windows Store package name, or Wine

Browse Source
This commit is contained in:
Ansgar Becker
2018-02-03 16:00:38 +01:00
parent 0736ed8ffc
commit d58e30d0eb
3 changed files with 27 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
out/locale/en/LC_MESSAGES/default.po
View File

@ -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?"

14
source/about.dfm
View File

@ -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

13
source/about.pas
View File

@ -26,6 +26,7 @@ type
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 @@ begin
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;