[Qt] FPC Qt4 Binding V1.39

[Den Jean]

On Wednesday 04 July 2007 09:58:09 am Felipe Monteiro de Carvalho wrote:
> Please fix TPoint in the same way

Done: FPC Qt4 Binding V1.40:
http://users.pandora.be/Jan.Van.hijfte/qtforfpc/fpcqt4.html

please test on Linux/Darwin before I do effort of making windows binary.

You will need to patch lcl/qt

Index: lcl/interfaces/qt/qt4.pas
===================================================================
--- lcl/interfaces/qt/qt4.pas	(revision 11421)
+++ lcl/interfaces/qt/qt4.pas	(working copy)
@@ -1046,7 +1050,7 @@
 
   FillChar(Msg, SizeOf(Msg), #0);
   
-  MousePos := QMouseEvent_pos(QMouseEventH(Event))^;
+  QMouseEvent_pos(QMouseEventH(Event), at MousePos);
   Msg.Keys := 0;
   
   Modifiers := QInputEvent_modifiers(QInputEventH(Event));
@@ -1131,7 +1135,7 @@
 begin
   FillChar(Msg, SizeOf(Msg), #0);
   
-  MousePos := QMouseEvent_pos(QMouseEventH(Event))^;
+  QMouseEvent_pos(QMouseEventH(Event), at MousePos);
 
   //QCursor_pos(@MousePos);
 
@@ -1160,7 +1164,7 @@
 begin
   FillChar(Msg, SizeOf(Msg), #0);
 
-  MousePos := QWheelEvent_pos(QWheelEventH(Event))^;
+  QWheelEvent_pos(QWheelEventH(Event), at MousePos);
 
   Msg.Msg := LM_MOUSEWHEEL;