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

LCL, gtk2, corrects PGtkWidget to Handle conversion under FreeBSD 64bits it fix LazReport AV on showing report designer, issue #26354

Browse Source 
git-svn-id: trunk@45598 -
This commit is contained in:
jesus 2014-06-22 07:56:31 +00:00
parent e36d6f373e
commit 4af1d3acba
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/gtk2/gtk2pagecontrol.inc
View File

@ -219,7 +219,7 @@ begin
DebugGtkWidgets.MarkCreated(Widget, dbgsName(AWinControl)); DebugGtkWidgets.MarkCreated(Widget, dbgsName(AWinControl));
{$ENDIF} {$ENDIF}
Result := THandle({%H-}PtrUInt(Widget)); Result := HWND({%H-}PtrUInt(Widget));
if Result = 0 then Exit; if Result = 0 then Exit;
WidgetInfo := GetWidgetInfo(Widget); // Widget info already created in CreateAPIWidget WidgetInfo := GetWidgetInfo(Widget); // Widget info already created in CreateAPIWidget