Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

OnPaint у панели TKOLTabControl


Ал ©   (2004-01-29 12:25:00) 

У TKOLTabControl несколько закладок. Хочу по onPaint у одной из панелей TKOLPanel рисовать прямо на ее поверхности.
Получается ерунда: то, что рисую - прорисовывается, а вот сама панель не прорисовывается (остаются куски предыдущих изображений).
Причем, достаточно лишь определить onPaint для этой панели и ничего не делать, панель не перерисовывается!

Подскажите, как правильно рисовать на одной из закладок TKOLPanel у TKOLTabControl? Пробовал PaintBox - другая ерунда: TKOLPanel не прорисовывается, пока у PaintBox не сделаешь Transparent := True.


savva   (2004-01-29 17:38:00) [1]

Panel1.Canvas.MoveTo(1,1);
Panel1.Canvas.LineTo(10,10);


Ал   (2004-01-29 17:29:00) [2]

Хорошо, а как тогда, если без onPaint.
Мне просто нужно нарисовать небольшой рисуночек, но не перекрывающий всю TKOLPanel (желательно без доп. компонент).


<Falcon>   (2004-01-29 17:15:00) [3]

Если используешь onPaint вся отрисовка ложится на тебя.


Ал   (2004-01-29 16:43:00) [4]

Как же тогда нарисовать что-то на TKOLPanel, чтобы оставшаяся часть перерисовывалась сама?


Ал   (2004-01-29 16:03:00) [5]

Похоже, я неправильно пользуюсь onPaint?

Если определяю для контрола, лежащего на TKOLTabControl, обработку onPaint:

procedure TForm3.EditBoxPaint(Sender: PControl; DC: HDC);
begin
// Ничего!
end;

то контрол и не перерисовывается!

Ожидал, что эта процедура не заменяет, а дополняет стандартную прорисовку. Или не так?


Наверх

Титульная страница Поиск, карта сайта Написать письмо