paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 12:59:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 49211 #adcc1a2862 from trunk:

Browse Source 
Qt: better check if variant is really valid handle.
........

git-svn-id: branches/fixes_1_4@49273 -
This commit is contained in:
maxim 2015-06-04 21:34:59 +00:00
parent 28619e9df8
commit d9c5e76c53
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/qtint.pp
View File

@ -388,7 +388,7 @@ begin
{$IFDEF CPU64}
Obj := TObject(QVariant_toULongLong(V, @Ok));
{$ENDIF}
if OK and (Obj <> nil) then
if OK and QtWidgetset.IsValidHandle(HWND(Obj)) then
begin
if not (Obj is TQtWidget) then
raise Exception.Create('QtObjectFromWidgetH: QObject_property returned '