paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 12:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* change types of method from integre to single for tpointf (probably copy-paste the interface error from integer TPoint )

Browse Source
This commit is contained in:
marcoonthegit 2023-05-28 15:55:47 +02:00
parent f4155dc710
commit fc8b28eecd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/types.pp
View File

@ -121,10 +121,10 @@ type
function Subtract(const apt : TPoint): TPointF; function Subtract(const apt : TPoint): TPointF;
procedure SetLocation(const apt :TPointF); procedure SetLocation(const apt :TPointF);
procedure SetLocation(const apt :TPoint); procedure SetLocation(const apt :TPoint);
procedure SetLocation(ax,ay : Longint); procedure SetLocation(ax,ay : Single);
procedure Offset(const apt :TPointF); procedure Offset(const apt :TPointF);
procedure Offset(const apt :TPoint); procedure Offset(const apt :TPoint);
procedure Offset(dx,dy : Longint); procedure Offset(dx,dy : Single);
function Scale (afactor:Single) : TPointF; function Scale (afactor:Single) : TPointF;
function Ceiling : TPoint; function Ceiling : TPoint;
@ -702,7 +702,7 @@ begin
y:=y+apt.y; y:=y+apt.y;
end; end;
procedure TPointF.Offset(dx,dy : Longint); procedure TPointF.Offset(dx,dy : Single);
begin begin
x:=x+dx; x:=x+dx;
y:=y+dy; y:=y+dy;
@ -853,7 +853,7 @@ begin
x:=apt.x; y:=apt.y; x:=apt.x; y:=apt.y;
end; end;
procedure TPointF.SetLocation(ax,ay : Longint); procedure TPointF.SetLocation(ax,ay : Single);
begin begin
x:=ax; y:=ay; x:=ax; y:=ay;
end; end;