paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 21:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed crash in TQtWidgetSet.MessageBox if passed HWND is 0.

Browse Source 
git-svn-id: trunk@41827 -
This commit is contained in:
zeljko 2013-06-23 14:21:55 +00:00
parent dc9b9a3dd8
commit 0661c172d1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/qt/qtwinapi.inc
View File

@ -4920,7 +4920,10 @@ begin
Str := GetUtf8String('TQtWidgetSet.MessageBox - not implemented');
TitleStr := GetUtf8String(lpCaption);
OkStr := GetUtf8String('Ok');
Result := QMessageBox_information(TQtWidget(hWnd).Widget, @Str, @TitleStr, @OkStr);
if HWND <> 0 then
Result := QMessageBox_information(TQtWidget(hWnd).Widget, @Str, @TitleStr, @OkStr)
else
Result := QMessageBox_information(nil, @Str, @TitleStr, @OkStr);
end;
{------------------------------------------------------------------------------