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

Fixes the fix for qt compilation.

Browse Source 
git-svn-id: trunk@10675 -
This commit is contained in:
sekelsenmat 2007-02-23 21:36:07 +00:00
parent 2528d9227a
commit 23272ca9b2
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -166,7 +166,12 @@ begin
if not QVariant_IsNull(v) and QVariant_isValid(V) then if not QVariant_IsNull(v) and QVariant_isValid(V) then
begin begin
//Write('Got a valid variant .. '); //Write('Got a valid variant .. ');
QtWg := TQtWidget(PtrInt(QVariant_toUint(V, @Ok))); {$IFDEF CPU32}
QtWg := TQtWidget(QVariant_toUint(V, @Ok));
{$ENDIF}
{$IFDEF CPU64}
QtWg := TQtWidget(QVariant_toULongLong(V, @Ok));
{$ENDIF}
if OK then if OK then
begin begin
//Write('Converted successfully, Control='); //Write('Converted successfully, Control=');