paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 11:59:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

qt: create application object in widgetset constructor instead of widgetset init method (fixes #0011173)

Browse Source 
git-svn-id: trunk@14895 -
This commit is contained in:
paul 2008-04-19 17:28:56 +00:00
parent 481f2563c1
commit a311f2ef86
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtobject.inc
View File

@ -26,6 +26,7 @@ constructor TQtWidgetSet.Create;
begin begin
inherited Create; inherited Create;
App := QApplication_Create(@argc, argv);
InitStockItems; InitStockItems;
QtWidgetSet := Self; QtWidgetSet := Self;
FDockImage := nil; FDockImage := nil;
@ -99,7 +100,6 @@ var
Method: TMethod; Method: TMethod;
ScreenDC: HDC; ScreenDC: HDC;
begin begin
App := QApplication_Create(@argc, argv);
WakeMainThread := @OnWakeMainThread; WakeMainThread := @OnWakeMainThread;
FOldFocusWidget := nil; FOldFocusWidget := nil;