![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Xamil |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Пол: Мужской Реальное имя: Xamil Репутация: ![]() ![]() ![]() |
Вот код процедуры
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;все запускается, но окно пустое, со стандартным синим фоном.. Пробовал на седьмой делфи, поставил еще и шестую, та же история.. Два знакомых в инете пробовали, у них все пашет.. Если кто-нибудь знает, в чем дело, подскажите, плз.. Сообщение отредактировано: Xamil - 5.05.2007 19:08 |
![]() ![]() |
![]() |
Текстовая версия | 13.07.2025 17:36 |