From 27b833a99b6529bfb57f8f93e86aff7fa627b35b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 24 Jan 2011 23:29:44 +0000
Subject: [PATCH] IDE: always set LCLWidgetType

git-svn-id: trunk@29190 -
---
 ide/buildmanager.pas | 2 +-
 ide/project.pp       | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/buildmanager.pas b/ide/buildmanager.pas
index a5362ccb70..e18cd500f2 100644
--- a/ide/buildmanager.pas
+++ b/ide/buildmanager.pas
@@ -1804,7 +1804,7 @@ begin
         s:=GetDefaultTargetCPU;
       Result.Values['TargetCPU']:=s;
     end;
-    if not Result.IsDefined('LCLWidgetType') then begin
+    if Result.Values['LCLWidgetType']='' then begin
       Result.Values['LCLWidgetType']:=
                              Project1.CompilerOptions.GetEffectiveLCLWidgetType;
     end;
diff --git a/ide/project.pp b/ide/project.pp
index 2c5ffedbb8..bffafa5282 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -5896,6 +5896,8 @@ begin
     Result:=inherited GetEffectiveLCLWidgetType
   else
     Result:=LCLPlatformDirNames[lpNoGUI];
+  if (Result='') or (SysUtils.CompareText(Result,'default')=0) then
+    Result:= LCLPlatformDirNames[GetDefaultLCLWidgetType];
 end;
 
 class function TProjectCompilerOptions.GetInstance: TAbstractIDEOptions;