Скачать: CL | DM;

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]

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

---

← →
Seldon ©   (2004-07-28 22:19) [6]

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

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c