Версия для печати темы

Автор: Xamil 5.05.2007 23:02

Вот код процедуры

procedure TForm1.FormPaint(Sender: TObject); begin with Canvas do begin Canvas.Pen.Width:=1; Canvas.Pen.Color:=clBlack; Canvas.Brush.Color:=clCream; Rectangle(30,30,150,115); Pen.Width:=2; Brush.Style:=bsClear; 
Pen.Color:=clBlue; ellipse(40,40,80,80); Pen.Color:=clBlack; ellipse(70,40,110,80); Pen.Color:=clred; ellipse(100,40,140,80); Pen.Color:=clYellow; ellipse(55,65,95,105); Pen.Color:=clGreen; ellipse(85,65,125,105); end;end; 

все запускается, но окно пустое, со стандартным синим фоном.. Пробовал на седьмой делфи, поставил еще и шестую, та же история.. Два знакомых в инете пробовали, у них все пашет.. Если кто-нибудь знает, в чем дело, подскажите, плз..

Автор: volvo 5.05.2007 23:32

Дельфи 6 - все прекрасно отработало... Олимпийские кольца видел...

Ты через Object Inspector добавлял событие OnPaint?

Автор: мисс_граффити 5.05.2007 23:45

работает...
попробуй свернуть и опять развернуть окно - нарисуются?
или прикрепи в архиве весь свой проект.

Автор: Xamil 5.05.2007 23:46

Блин, действительно, не подумал.. Добавил, заработало =) спасибо за помощь!

Добавлено через 0.29999 мин.
Эт я про object inspector