Текущий архив: 2007.08.26;
Скачать: CL | DM;
Вниз
Рисование с пом. Polyline Найти похожие ветки
← →
megasecure © (2006-11-14 15:21) [0]Здравствуйте!
Почему метод Polyline, при передаче ему в кач. параметра динамического массива элементов типа Tpoint, ничего не рисует ?
Вот пример кода:
…
Var array1: array of Tpoint;
P1: ^Tpoint;
…
Begin
…
{далее каким-либо образом заполняем array1}
…
With Form1.canvas do begin
…
Polyline(array1);
…
End;
…
← →
MBo © (2006-11-14 15:25) [1]А у меня рисует. Что я сделал не так? ;)
procedure TForm14.Button1Click(Sender: TObject);
var
P: array of TPoint;
i: Integer;
begin
Randomize;
SetLength(P, 5);
for i := 0 to 4 do
P[i] := Point(Random(400), Random(300));
Canvas.Polyline(P);
end;
← →
megasecure © (2006-11-14 15:35) [2]И правда же - что не так ?
Страницы: 1 вся ветка
Текущий архив: 2007.08.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.032 c
