[SOLVED] GUI type detection

[Raul_ES]

Hi,


do you know how can I make my program detect the GUI library is being used? I mean that I need to detect if it is GTK2 , QT4, QT5, version of the QT compilation...those things.

The following doesn't work

Code: Pascal  [Select][+][-]

1.  
2. {$ifdef lclgtk}
3.   _GUI_ := 'GTK';
4. {$endif}

thanks

[eljo]

works for me

Code: Pascal  [Select][+][-]

1. function GetGUITarget:string;
2. begin
3. {$IFDEF LCLGTK}
4.   result := 'GTK';
5. {$ENDIF}
6. {$IFDEF LCLGTK2}
7.   result := 'GTK2';
8. {$ENDIF}
9. {$IFDEF LCLWIN32}
10.   result := 'Win32';
11. {$ENDIF}
12. {$IFDEF LCLQT}
13.   result := 'QT';
14. {$ENDIF}
15. end;            
16.  

[lucamar]

For completeness sake, if you ever want to get that info at run time, you can use the constants in uniit LCLPlatformDef. This function, for example, returns a string with the Lazarus version (taken from unit LazVersion) and widgetset for, say, an "about box":

Code: Pascal  [Select][+][-]

1. uses
2.   LCLPlatformDef, LazVersion;
3.  
4. const
5.   sLazVers = '%d.%d.%d (%s)'; {version (widgetset)}
6.  
7. function LazarusInfo: String;
8. var
9.   platform: String;
10. begin
11.   platform := LCLPlatformDisplayNames[GetBuildLCLWidgetType];
12.   Result := Format(sLazVers,
13.                    [laz_major, laz_minor, laz_release, platform]);
14. end;

Note, though, that GetBuildLCLWidgetType() will tell you the widgetset for which Lazarus itself was built which, while also  the default it uses to build your apps, might not coincide if, for example, you're cross-compiling to some other target.

[Raul_ES]

Thanks, that's exactly what I need


regards,

[Zoran]

Note, though, that GetBuildLCLWidgetType() will tell you the widgetset for which Lazarus itself was built which, while also  the default it uses to build your apps, might not coincide if, for example, you're cross-compiling to some other target.

Yes. Therefore, instead of GetBuildLCLWidgetType(), better use GetDefaultLCLWidgetType() from unit InterfaceBase.

[lucamar]

Yes. Therefore, instead of GetBuildLCLWidgetType(), better use GetDefaultLCLWidgetType() from unit InterfaceBase.

Good catch. I (mistakenly) thought it just read LCLPlatformDef.BuildLCLWidgetType but it appears it (and the complementary GetLCLWidgetTypeName()) reads the current widgetset if any and uses BuildLCLWidgetType only as fallback.

Thanks, Zoran. Never go to bed without learning something new, they say

[Zoran]

Yes. Therefore, instead of GetBuildLCLWidgetType(), better use GetDefaultLCLWidgetType() from unit InterfaceBase.

Good catch. I (mistakenly) thought it just read LCLPlatformDef.BuildLCLWidgetType but it appears it (and the complementary GetLCLWidgetTypeName()) reads the current widgetset if any and uses BuildLCLWidgetType only as fallback.

Thanks, Zoran. Never go to bed without learning something new, they say

You are welcome.
I'm not surprised by your mistake, I think the name of this function is confusing actually -- GetDefaultLCLWidgetType -- better name would be GetCurrentLCLWidgetType, or simply (perhaps the best) GetWidgetType.