From 4af1d3acbae60af315825bbb2c6899b5977d70cd Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Sun, 22 Jun 2014 07:56:31 +0000
Subject: [PATCH] LCL, gtk2, corrects PGtkWidget to Handle conversion under
 FreeBSD 64bits it fix LazReport AV on showing report designer, issue #26354

git-svn-id: trunk@45598 -
---
 lcl/interfaces/gtk2/gtk2pagecontrol.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk2/gtk2pagecontrol.inc b/lcl/interfaces/gtk2/gtk2pagecontrol.inc
index 85fd5063a6..5cffcb9d74 100644
--- a/lcl/interfaces/gtk2/gtk2pagecontrol.inc
+++ b/lcl/interfaces/gtk2/gtk2pagecontrol.inc
@@ -219,7 +219,7 @@ begin
   DebugGtkWidgets.MarkCreated(Widget, dbgsName(AWinControl));
   {$ENDIF}
 
-  Result := THandle({%H-}PtrUInt(Widget));
+  Result := HWND({%H-}PtrUInt(Widget));
   if Result = 0 then Exit;
 
   WidgetInfo := GetWidgetInfo(Widget); // Widget info already created in CreateAPIWidget