mbColorLib: Improved handling of hints.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5464 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/mbColorLib/mbutils.pas

@@ -9,6 +9,7 @@ uses
 
 procedure Clamp(var AValue:Integer; AMin, AMax: Integer);
 function PointInCircle(p: TPoint; Size: integer): boolean;
+function PtInCircle(p, ctr: TPoint; Radius: Integer): Boolean;
 
 implementation
 
@@ -26,6 +27,11 @@ begin
   Result := (sqr(p.x - r) + sqr(p.y - r) <= sqr(r));
 end;
 
+function PtInCircle(p, ctr: TPoint; Radius: Integer): Boolean;
+begin
+  Result := sqr(p.x - ctr.x) + sqr(p.y - ctr.y) <= sqr(Radius);
+end;
+
 
 end.