mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Display GTK3 version

Browse source 
(cherry picked from commit 0b3b2deb89)
This commit is contained in:
Alexander Koblov 2024-12-19 21:31:32 +03:00
commit 90ad99a69f
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/platform/udcversion.pas
View file

@ -71,6 +71,9 @@ uses
{$IFDEF LCLGTK2}
, gtk2
{$ENDIF}
{$IFDEF LCLGTK3}
, LazGtk3
{$ENDIF}
{$IFDEF MSWINDOWS}
, Windows, JwaNative, JwaNtStatus, JwaWinType, uMyWindows
{$ENDIF}
@ -516,6 +519,10 @@ begin
WSVersion := 'GTK ' + IntToStr(gtk_major_version) + '.' +
IntToStr(gtk_minor_version) + '.' +
IntToStr(gtk_micro_version);
{$ELSEIF DEFINED(LCLGTK3)}
WSVersion := 'GTK ' + IntToStr(gtk_get_major_version) + '.' +
IntToStr(gtk_get_minor_version) + '.' +
IntToStr(gtk_get_micro_version);
{$ENDIF}
end;