paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: use as default widgettype the IDE value

Browse Source 
git-svn-id: trunk@37392 -
This commit is contained in:
mattias 2012-05-22 13:50:34 +00:00
parent b7deaffd70
commit 08fb6b919a
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/interfaces/lcl.lpk
View File

@ -12,14 +12,22 @@
</SearchPaths>
<Conditionals Value="// LCLWidgetType
if undefined(LCLWidgetType) then begin
if (TargetOS='win32') or (TargetOS='win64') then
LCLWidgetType := 'win32'
else if TargetOS='wince' then
LCLWidgetType := 'wince'
else if TargetOS='darwin' then
LCLWidgetType := 'carbon'
else
LCLWidgetType := 'gtk2';
if GetIDEValue('OS')=TargetOS then begin
// use the same widgettype as the IDE
LCLWidgetType := GetIDEValue('LCLWidgetType');
if LCLWidgetType='nogui' then
LCLWidgetType:='';
end;
if LCLWidgetType='' then begin
if (TargetOS='win32') or (TargetOS='win64') then
LCLWidgetType := 'win32'
else if TargetOS='wince' then
LCLWidgetType := 'wince'
else if TargetOS='darwin' then
LCLWidgetType := 'carbon'
else
LCLWidgetType:='gtk2';
end;
end;
// widget set specific options