Текущий архив: 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