Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизКак закрасить 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.014 c