paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 03:18:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: use CenterPoint function from the types unit based on patch from Alexander S. Klenin (issue #13973)

Browse Source 
git-svn-id: trunk@20712 -
This commit is contained in:
vincents 2009-06-22 09:30:42 +00:00
parent b5026985e2
commit 8b9baecebe
2 changed files with 2 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/extgraphics.pas
View File

@ -25,7 +25,7 @@ unit extgraphics;
interface
uses Classes, LCLProc, Graphics, Math, GraphMath;
uses Types, Classes, LCLProc, Graphics, Math, GraphMath;
type
TShapeDirection = (atUp, atDown, atLeft, atRight);

36
lcl/graphmath.pp
View File

@ -35,7 +35,7 @@ unit GraphMath;
interface
Uses
Classes, SysUtils, Math, LCLProc;
Types, Classes, SysUtils, Math, LCLProc;
Type
TFloatPoint = Record
@ -63,8 +63,6 @@ procedure BezierArcPoints(X, Y, Width, Height : Longint; Angle1, Angle2,
function BezierMidPoint(Bezier : TBezier) : TFloatPoint;
function CenterPoint(Rect : TRect) : TPoint;
procedure Coords2Angles(X, Y, Width, Height : Integer; SX, SY,
EX, EY : Integer; var Angle1, Angle2 : Extended);
@ -598,38 +596,6 @@ begin
Result := (Bezier[0] + 3*Bezier[1] + 3*Bezier[2] + Bezier[3]) / 8;
end;
{------------------------------------------------------------------------------
Method: CenterPoint
Params: Rect
Returns: TPoint
Use CenterPoint to get the Center-Point of any rectangle. It is primarily
for use with, and in, other routines such as Quadrant, and RadialPoint.
------------------------------------------------------------------------------}
function CenterPoint(Rect : TRect) : TPoint;
var
Tmp : Longint;
begin
With Rect do begin
If Right < Left then begin
Tmp := Right;
Right := Left;
Left := Tmp;
end;
If Bottom < Top then begin
Tmp := Bottom;
Bottom := Top;
Top := Tmp;
end;
Result.X := Left + (Right - Left) div 2;
Result.Y := Top + (Bottom - Top) div 2;
end;
end;
{------------------------------------------------------------------------------
Method: Coords2Angles
Params: x,y,width,height,sx,sy,ex,ey, angle1,angle2