VPF::TPageControl сменить цвет clBtnFace на произвольн

Delphist

Дата 2.4.2007, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: нет
Всего: 3

Как в TPageControl'e сменить цвет его вкладок по умолчанию = clBtnFace на произвольный.

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

X-Vlad

Дата 2.4.2007, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: нет
Всего: 5

Закрасит в чорный цвет вторую вкладку на PageControl.

проперитя "OwnerDraw" = true;

Код


procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex:
    Integer; const Rect: TRect; Active: Boolean);
begin
  if TabIndex = 1 then
  begin
   control.Canvas.Brush.Color:= clBlack; // цвет фона вкладки
//   control.Canvas.FillRect(Rect);
   control.Canvas.Font.Color:=clwhite; // цвет текста
   control.Canvas.TextRect(Rect,Rect.Left+6, 5, pagecontrol1.Pages[TabIndex].Caption);  // выводим текст вкладки, "Rect.Left+6" - количество точек с лева, 5 - количество точек сверху.
  end;

end;

Это сообщение отредактировал(а) X-Vlad - 2.4.2007, 19:44

--------------------

Хорошая штука - комп..:)
www.x-vlad.com

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »