What do you think about: function ComparePoints(P1, P2: TPoint): TPoint; begin Result.X := (P1.X - P2.X); Result.Y := (P1.Y - P2.Y); end;
Best regards. Sandro Cumerlato On Jul 26, 2017 3:56 PM, "Alexey via Lazarus" <[email protected]> wrote: I think LCL has many CompareNNNN funcs, but misses func for TPoint. Here it's comparing x/y screen coordinates function ComparePoints(P1, P2: TPoint): integer; begin if (P1.X=P2.X) and (P1.Y=P2.Y) then exit(0); if (P1.Y>P2.Y) then exit(1); if (P1.Y<P2.Y) then exit(-1); if (P1.X>P2.X) then exit(1) else exit(-1); end; -- Regards, Alexey -- _______________________________________________ Lazarus mailing list [email protected] https://lists.lazarus-ide.org/listinfo/lazarus
-- _______________________________________________ Lazarus mailing list [email protected] https://lists.lazarus-ide.org/listinfo/lazarus
