Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.021 c
2-1186173219
Johnnnn
2007-08-04 00:33
2007.08.26
Как прекратить выполнение кода?


2-1185692141
***mikle***
2007-07-29 10:55
2007.08.26
Как реализовать окно с текстом и картинками?


1-1181993151
GrayWolf
2007-06-16 15:25
2007.08.26
Отличия работы RTTI в Delphi for NET от Delphi for Win32


2-1185867898
Elen
2007-07-31 11:44
2007.08.26
вопрос по EnumThreadWindows


2-1185719118
Sdubaruhnul
2007-07-29 18:25
2007.08.26
Поиск файлов по маске