Скачать: CL | DM;

Создание Polygon из динамического массива точек.   Найти похожие ветки 

← →
amochkin   (2002-07-05 14:25) [0]

Друзья,

помогите с сабжем.
Проблема: в функции DrawDynamicPolyArray массив, представленый указателем p не "вырастает", т.е. остается нулевым.
Это видно через Debug->Inspect.
Соответсвенно полигон не прорисовывется.


type
TPtArray = array[0..0] of TPoint;
PPtArray = ^TPtArray;

procedure TForm1.DrawDynamicPolyArray(varCanvas : TCanvas; Points: array of TPoint);
var
a : TPtArray;
p : PPtArray;
i, numpoints, tpsize : integer;
begin
numpoints := Length(Points);
tpsize := sizeof(TPoint);
{$IFOPT R+}
{$DEFINE CKRANGE}
{$R-}
{$ENDIF}
GetMem(p, tpsize * numpoints);
for i := 0 to (numpoints - 1) do begin
p^[i].x := Points[i].X;
p^[i].y := Points[i].Y;
end;
Polygon(varCanvas.Handle, p, numpoints);
FreeMem(p, tpsize * numpoints);
{$IFDEF CKRANGE}
{$UNDEF CKRANGE}
{$R+}
{$ENDIF}
end;

procedure TForm1.Button1Click(Sender: TObject);
var Points: array of TPoint;
begin
SetLength(Points,5);
Points[0].X := 50; Points[0].Y := 50;
Points[1].X := 150; Points[1].Y := 50;
Points[2].X := 100; Points[2].Y := 200;
Points[3].X := 50; Points[3].Y := 50;
Points[4].X := 0; Points[4].Y := 0;
DrawDynamicPolyArray(Image1.Canvas, Points);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Canvas.Pen.Color := clBlue;
Image1.Canvas.Brush.Color := clYellow;
end;



Оригинальная идея взята с:
http://community.borland.com/article/0,1410,15919,00.html

---

← →
MBo ©   (2002-07-05 14:39) [1]

procedure TForm1.Button2Click(Sender: TObject);
var Points:array of tpoint;
begin
SetLength(Points,4);
Points[0].X := 50; Points[0].Y := 50;
Points[1].X := 150; Points[1].Y := 50;
Points[2].X := 100; Points[2].Y := 200;
Points[3].X := 50; Points[3].Y := 50;
Polygon(image1.canvas.Handle, points[0], 4);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.991 c