[Qt] QPointFH

[Den Jean]

On Tuesday 02 February 2010 08:20:10 zeljko wrote:
> QPointFH is needed by few dozen of routines inside qt4.pas, but there's no
>  way  of use those routines since qpointfh isn't implemented, so those
>  routines are also unuseable.
> Den, can you add it and repack new 2.XXX bindings (also don't forget to add
>  qt  version) ?
> 
try 2.1RC, will make release after feedback.

Version V2.1:
 - QPointF support
   * via new Pascal types: TQtPointF,PQtPointF and convenience function QtPointF (like QtPoint)
   * the pascal record TQtPointF is compatible with QPointF internal representation.
   * http://wiki.freepascal.org/Qt4_binding#Solution:Pascalify

 - new QtVersion function (returns qVersion:http://doc.qt.nokia.com/4.5/qtglobal.html#qVersion) 

Download urls (temporarily):
 http://users.telenet.be/Jan.Van.hijfte/qtforfpc/qt4pas-V2.1RC_Qt4.5.3.tar.gz
 http://users.telenet.be/Jan.Van.hijfte/qtforfpc/bin-qt4pas-V2.1RC_Qt4.5.3.tar.gz
 http://users.telenet.be/Jan.Van.hijfte/qtforfpc/demos-V2.1RC_Qt4.5.3.tar.gz

Changes for Lazarus:

you will need this one line change.

--- qtwinapi.inc        (revision 23707)
+++ qtwinapi.inc        (working copy)
@@ -1178,7 +1178,7 @@
       QTransform_inverted(Matrix, MatrixInv, @Inverted);
       QtPoint.X := P^.X;
       QtPoint.Y := P^.Y;
-      QTransform_map(MatrixInv, @QtPoint, @QtPoint);
+      QTransform_map(MatrixInv, PQtPoint(@QtPoint), PQtPoint(@QtPoint));
       P^.X := QtPoint.X;
       P^.Y := QtPoint.Y;
       Inc(P);

regards,

Den Jean