| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
PageControl [D7, WinXP]
mouse_web © (2004-07-28 17:39:00)Подскажите, как изменить цвет надписей заголовков (TabSheet) в PageControl.
Такие записи не работают:
PageControl1.Font.Color := clRed;
PageControl1.Pages[1].Font.Color := clRed;
mouse_web (2004-07-28 23:34:00) [1]А может есть компонент похожий на PageControl только с расширенными функциями прорисовки элементов?
Seldon (2004-07-28 22:19:00) [2]
>[5] Надо самому рисовать
Дохлый номер. В XP всё-равно хрен узнаешь, каким шрифтом рисуется Caption на TabSheet
olookin (2004-07-28 20:48:00) [3]Похоже нельзя... Надо самому рисовать
mouse_web (2004-07-28 18:10:00) [4]А можно обойтись без включения OwnerDraw ?
У меня PageControl рисуется в силе XP, а когда я включаю OwnerDraw, то красивое подкрашивание пропадает.
MU (2004-07-28 18:00:00) [5]в дизайне - 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 17:56:00) [6]не совсем понял...
надо поставить Font.Color := clRed;
на это событие?
MU (2004-07-28 17:51:00) [7]TPageControl.OnDrawTab
TPageControl.OwnerDraw
| |
