Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.03;
Скачать: CL | DM;

Вниз

Как закрасить TTabSheet ?   Найти похожие ветки 

 
CASU   (2003-01-23 16:39) [0]

Ребята, цвет моих форм, допустим зеленый. На форме расположен простой TPageControl со своими простыми TTabSheet-ами, так вот, когда я пытаюсь задать цвет TabSheet - окрашивается все кроме самих закладок (где названия написаны). Смотрится честно говоря - по уродски. Кто может помочь? (С этими Canvas-ами, Brush-ами etc)


 
pusrg ©   (2003-01-23 17:27) [1]

Вот он, радикально зеленый цвет :)
Обрабатываем OnDrawTab для PageControl1.


procedure TForm.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
with Control.Canvas do
begin
Brush.Color:=clGreen;
FillRect(Rect);

TextOut(Rect.Left+2, Rect.Top+2, PageControl1.Pages[TabIndex].Caption);
end;
end;


Не забудь поставить OwnerDraw:=true для PageControl1


 
CASU   (2003-01-24 01:11) [2]

pusrg! ОГРОМНОЕ СПАСИБО!!! ВСЕ ОК!



Страницы: 1 вся ветка

Текущий архив: 2003.02.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.027 c
1-5010
stas_a
2003-01-23 17:44
2003.02.03
Динамический массив


3-4726
Иксик
2003-01-18 11:35
2003.02.03
Инсталляция БД на основе ADO


14-5179
Supreme
2003-01-15 22:21
2003.02.03
Очень важные вопросы!


3-4751
dahs78
2003-01-15 14:38
2003.02.03
Работа с гридом


3-4707
Picco
2003-01-15 15:08
2003.02.03
О производительности