Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.03 c
1-80600           tovSuhov              2002-03-11 12:28  2002.03.25  
Люди, подскажите...


6-80649           otari                 2002-01-09 10:59  2002.03.25  
Как мне откривать кокоинибуть TPC/IP порт


3-80435           Antony                2002-02-27 12:14  2002.03.25  
TQuery.Prepare, сильные утечки памяти


1-80569           greenrul              2002-03-10 11:12  2002.03.25  
Хитрая задачка с перебором массивов


3-80429           new                   2002-02-26 10:35  2002.03.25  
Kak konetktirovat s MSSQL Server chtobi rabotal bistree?