Главная страница
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.015 c
7-5304
Андрей Ваганов
2002-11-24 18:27
2003.02.03
Всегда активная форма.


6-5101
Landgraph
2002-12-06 14:34
2003.02.03
Socket Read


14-5268
Junior
2003-01-17 02:40
2003.02.03
Посоветуйте библиотечку NetBios


3-4773
Скиф
2003-01-15 10:24
2003.02.03
Подключть файл Access


14-5162
kostya2000
2003-01-17 22:16
2003.02.03
ГОВОРЯТ У МЕНЯ ПОЯВИЛСЯ ДВОЙНИК!!!!!!