Создание Polygon из динамического массива точек. [D6, WinXP]
amochkin © (2002-07-05 14:25:00)
Друзья,
помогите с сабжем.
Проблема: в функции 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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
