Форум: "Основная";
Текущий архив: 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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c