AShape.ThePoints
define:
ThePoints:TArrMyPoint;
TArrMyPoint:Array of TMyPoint;
TMyPoint = record
x:single;
y:single;
end;
related method to access and change points:
GetPoint(i)
GetPointsInZoom(i)
SetPointx(f)
SetPointy(f)
SetPointXY(Pt);
Pen:TPen;
Set the pen of a TMyShape instance that you need;
Brush:TBrush;
Set the brush of TMyShape instance that you need;
Info:string;
Caption:string;