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

Qt: fixed potential crash with TQtHintWindow

Browse Source 
git-svn-id: trunk@34493 -
This commit is contained in:
zeljko 2011-12-29 08:43:52 +00:00
parent c4a6edc657
commit 672a0f0798
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14258,8 +14258,12 @@ begin
if QDesktopWidget_isVirtualDesktop(QApplication_desktop()) then
ScreenNumber := QDesktopWidget_screenNumber(QApplication_desktop(), @P)
else
ScreenNumber := QDesktopWidget_screenNumber(QApplication_desktop(), Widget);
begin
if Widget <> nil then
ScreenNumber := QDesktopWidget_screenNumber(QApplication_desktop(), Widget)
else
ScreenNumber := 0;
end;
{$IFDEF DARWIN}
QDesktopWidget_availableGeometry(QApplication_desktop() ,@D, ScreenNumber);
{$ELSE}