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

fix compilation for non 4.3 qt issue(0009949)

Browse Source 
git-svn-id: trunk@12485 -
This commit is contained in:
paul 2007-10-16 03:35:32 +00:00
parent 87a572d2ad
commit 9db54bbccc
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/qt/qtwidgets.pas
View File

@ -3298,11 +3298,10 @@ begin
end;
{$else}
if (TCustomForm(LCLObject).FormStyle = fsSplash) and
not (csDesigning in ComponentState) then
then
Result := QWidget_create(nil, QtSplashScreen);
not (csDesigning in LCLObject.ComponentState) then
Result := QWidget_create(nil, QtSplashScreen)
else
Result := QWidget_create(nil, QtWindow);
Result := QWidget_create(nil, QtWindow);
{$endif}
// Main menu bar