PageControl

← →
mouse_web (2004-07-28 17:39) [0]

Подскажите, как изменить цвет надписей заголовков (TabSheet) в PageControl.
Такие записи не работают:
PageControl1.Font.Color := clRed;
PageControl1.Pages[1].Font.Color := clRed;

← →
MU © (2004-07-28 17:51) [1]

TPageControl.OnDrawTab
TPageControl.OwnerDraw

← →
mouse_web (2004-07-28 17:56) [2]

не совсем понял...
надо поставить Font.Color := clRed;
на это событие?

← →
MU © (2004-07-28 18:00) [3]

в дизайне - PageControl.OwnerDraw := true;
и обработчик OnDrawTab примерно такой:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
Control.Canvas.Font.Color := clRed;
Control.Canvas.TextRect(Rect, Rect.Left + 5, Rect.Top + 5, TPageControl(Control).Pages[TabIndex].Caption);
end;

← →
mouse_web (2004-07-28 18:10) [4]

А можно обойтись без включения OwnerDraw ?
У меня PageControl рисуется в силе XP, а когда я включаю OwnerDraw, то красивое подкрашивание пропадает.

← →
olookin © (2004-07-28 20:48) [5]

Похоже нельзя... Надо самому рисовать

>[5] Надо самому рисовать

Дохлый номер. В XP всё-равно хрен узнаешь, каким шрифтом рисуется Caption на TabSheet

← →
mouse_web (2004-07-28 23:34) [7]

А может есть компонент похожий на PageControl только с расширенными функциями прорисовки элементов?

PageControl Найти похожие ветки