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

QT: Reveal a wrong typecast in QtObjectFromWidgetH.

Browse Source 
git-svn-id: trunk@48618 -
This commit is contained in:
juha 2015-04-04 10:38:05 +00:00
parent 1228e86211
commit e72d7c9c44
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt/qtint.pp
View File

@ -368,6 +368,7 @@ function QtObjectFromWidgetH(const WidgetH: QWidgetH): TQtWidget;
var var
V: QVariantH; V: QVariantH;
Ok: Boolean; Ok: Boolean;
Obj: TObject;
QtWg: TQtWidget; QtWg: TQtWidget;
begin begin
Result := nil; Result := nil;
@ -382,13 +383,17 @@ begin
begin begin
//Write('Got a valid variant .. '); //Write('Got a valid variant .. ');
{$IFDEF CPU32} {$IFDEF CPU32}
QtWg := TQtWidget(QVariant_toUint(V, @Ok)); Obj := TObject(QVariant_toUint(V, @Ok));
{$ENDIF} {$ENDIF}
{$IFDEF CPU64} {$IFDEF CPU64}
QtWg := TQtWidget(QVariant_toULongLong(V, @Ok)); Obj := TObject(QVariant_toULongLong(V, @Ok));
{$ENDIF} {$ENDIF}
if OK then if OK then
begin begin
if not (Obj is TQtWidget) then
raise Exception.Create('QtObjectFromWidgetH: QObject_property returned '
+ 'a variant which is not TQtWidget.');
QtWg := TQtWidget(Obj);
//Write('Converted successfully, Control='); //Write('Converted successfully, Control=');
if QtWg<>nil then if QtWg<>nil then
begin begin