Текущий архив: 2004.08.15;
Скачать: 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 вся ветка
Текущий архив: 2004.08.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.048 c
