| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Рисование с пом. Polyline

megasecure ©   (2006-11-14 15:21:00) 

Здравствуйте!
Почему метод Polyline, при передаче ему в кач. параметра динамического массива элементов типа Tpoint, ничего не рисует ?

Вот пример кода:

…
Var array1: array of Tpoint;
     P1: ^Tpoint;
…
Begin
…
{далее каким-либо образом заполняем array1}
…
With Form1.canvas do begin
…
Polyline(array1);
…
End;
…


---

megasecure   (2006-11-14 15:35:00) [1]

И правда же - что не так ?

---

MBo   (2006-11-14 15:25:00) [2]

А у меня рисует. Что я сделал не так? ;)

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;

---

Наверх