Графика

← →
Kost © (2003-08-18 07:19) [0]

как нарисовать квадрат прямо на форме без нажатия на кнопку Буттон1?

← →
Palladin © (2003-08-18 07:41) [1]

дважды кликни на событии формы OnPaint

procedure TForm1.FormPaint(Sender: TObject);
begin
Form1.Canvas.Rectangle(10,10,200,200);
end;

← →
Ketmar © (2003-08-18 09:22) [2]

я плакалъ (ц)

← →
Жук © (2003-08-18 09:27) [3]

В орешник ! :-)

← →
uw © (2003-08-18 09:30) [4]

>Palladin © (18.08.03 07:41) [1]

А как сделать то же самое, но с другими параметрами прямоугольника?

← →
Ketmar © (2003-08-18 09:44) [5]

кстати, вопрос неоднозначный. и ответ [1] -- не совсем верный. учитывая aspect ratio монитора, получается не квадрат, а прямоугольник. так что надо ещё спрашивать разрешение, вычислять AR, а только потом рисовать.

> Ketmar © (18.08.03 09:44) [5]

Базара ноль, надо. Только не разрещение, а экранные размеры пиксела, разрешение тут нипричем.

>#7
конечно. описАлса поутру.

Графика Найти похожие ветки