| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PageControl [D5, WinXP]

Surprising ©   (2002-03-13 09:41:00) 

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

---

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

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;

---

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

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

---

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

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

---

Наверх