Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизPageControl Найти похожие ветки
← →
unfam (2002-04-19 01:43) [8]Свойство OwnerDraw выставляешь в True. Затем что-то вроде:
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
if Active then
begin
Control.Canvas.Brush.Color:=clRed;
Control.Canvas.FillRect(Rect);
end
else
begin
Control.Canvas.Brush.Color:=clBlack;
Control.Canvas.FillRect(Rect);
end
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c