Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.25;
Скачать: CL | DM;

Вниз

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

 
Surprising ©   (2002-03-13 09:41) [0]

Мастера, как изменить цвета TabSheetов в компоненте PageControl


 
Nebula   (2002-03-13 10:06) [1]

TabSheet.Brush.Color := xxx;
TabSheet.Refresh;


 
Surprising ©   (2002-03-13 11:02) [2]

Спасибо получилось.
Только вот заголовок TabSheeta остался серым цветом а как цвет заголовка изменить.


 
Nebula   (2002-03-13 11:41) [3]

PageControl.OwnerDraw := True;
определяешь событие PageControl.OnDrawTab;

procedure TForm1.PageControlDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
lpRect: TRect;
begin
lpRect := Rect;
if TabIndex = n then
begin
Control.Canvas.Brush.Color := 255;
Control.Canvas.FillRect(Rect);
end;
DrawText(Control.Canvas.Handle, PChar(TPageControl(Control).Pages[TabIndex].Caption),
-1, lpRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;



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

Текущий архив: 2002.03.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
3-80415
alexbl
2002-02-26 16:18
2002.03.25
DBText и GroupBox


1-80609
AndrewSM
2002-03-11 10:24
2002.03.25
Отладка COM+


1-80550
greenrul
2002-03-09 20:33
2002.03.25
EAcess violation at FFFFFFF7 при вызове процедурки -


1-80506
Stexen
2002-03-11 23:00
2002.03.25
Компонент под углом


1-80561
Компонент
2002-03-07 22:34
2002.03.25
Не видел ли кто-нибудь примера программы, которая эмулировала бы среду Delphi?