Как изменить размеры полигона?

Previous  Top  Next

    
 

 

 

 

Code:

{ ... }

type

TPolygon = array of TPoint;

 

procedure ZoomPolygon(var Polygon: TPolygon; const Center: TPoint; const Scale: Double);

var

I: Integer;

begin

for I := 0 to High(Polygon) do

begin

   Polygon[I].X := Round(Scale * (Polygon[I].X - Center.X) + Center.X);

   Polygon[I].Y := Round(Scale * (Polygon[I].Y - Center.Y) + Center.Y);

end;

end;

 

©Drkb::03910

Взято с Delphi Knowledge Base: http://www.baltsoft.com/