IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Не работает Канва
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Xamil

Репутация: -  0  +


Вот код процедуры
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;
все запускается, но окно пустое, со стандартным синим фоном.. Пробовал на седьмой делфи, поставил еще и шестую, та же история.. Два знакомых в инете пробовали, у них все пашет.. Если кто-нибудь знает, в чем дело, подскажите, плз..

Сообщение отредактировано: Xamil -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






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

Ты через Object Inspector добавлял событие OnPaint?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 19
Пол: Мужской
Реальное имя: Xamil

Репутация: -  0  +


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

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


Сообщение отредактировано: Xamil -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.09.2020 8:00
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name