From fc8b28eecdfd85725da2013f8910d1ce399ad7cb Mon Sep 17 00:00:00 2001
From: marcoonthegit <marco@freepascal.org>
Date: Sun, 28 May 2023 15:55:47 +0200
Subject: [PATCH] * change types of method from integre to single for tpointf
(probably copy-paste the interface error from integer TPoint )
---
rtl/objpas/types.pp | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/rtl/objpas/types.pp b/rtl/objpas/types.pp
index f957db9af7..7bd5378a16 100644
--- a/rtl/objpas/types.pp
+++ b/rtl/objpas/types.pp
@@ -121,10 +121,10 @@ type
function Subtract(const apt : TPoint): TPointF;
procedure SetLocation(const apt :TPointF);
procedure SetLocation(const apt :TPoint);
- procedure SetLocation(ax,ay : Longint);
+ procedure SetLocation(ax,ay : Single);
procedure Offset(const apt :TPointF);
procedure Offset(const apt :TPoint);
- procedure Offset(dx,dy : Longint);
+ procedure Offset(dx,dy : Single);
function Scale (afactor:Single) : TPointF;
function Ceiling : TPoint;
@@ -702,7 +702,7 @@ begin
y:=y+apt.y;
end;
-procedure TPointF.Offset(dx,dy : Longint);
+procedure TPointF.Offset(dx,dy : Single);
begin
x:=x+dx;
y:=y+dy;
@@ -853,7 +853,7 @@ begin
x:=apt.x; y:=apt.y;
end;
-procedure TPointF.SetLocation(ax,ay : Longint);
+procedure TPointF.SetLocation(ax,ay : Single);
begin
x:=ax; y:=ay;
end;