Удивился. Только что проверил.
Код:
procedure TForm4.FormPaint(Sender:TObject);
begin
Canvas.MoveTo(50,0);
Canvas.LineTo(0,50);
Canvas.LineTo(100,50);
Canvas.LineTo(50,0);
end;
Ну и разумеется это привязано к событию onPaint. Работает.
Цитата:
|
чтобы программа считывала высоту и ширину формы а потом рисовала
|
Эти параметры в пикселях. (50,0) это 50 пикселей по X и 0 по Y относительно левого верхнего угла формы.