VPF::TTabbedNotebook цвет фона - Форум программистов

ShadowDancer

Дата 7.1.2009, 15:29 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 15.6.2006

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

Как в TTabbedNotebook изменить фоновый цвет с белого, к примеру на такой же как у формы ?

Romikgy

Дата 8.1.2009, 11:58 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

видать создавать наследника и перегружать ф-цию
TTabbedNotebook.WMPaint
или попробывать дотянутся до
OnDrawTab от предка
и наверное правильнее всего перехватывать это
procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;

Код


procedure TCustomTabControl.CNDrawItem(var Message: TWMDrawItem);
var
  SaveIndex: Integer;
begin
  with Message.DrawItemStruct^ do
  begin
    SaveIndex := SaveDC(hDC);
    FCanvas.Lock;
    try
      FCanvas.Handle := hDC;
      FCanvas.Font := Font;
      FCanvas.Brush := Brush;
      DrawTab(itemID, rcItem, itemState and ODS_SELECTED <> 0);
    finally
      FCanvas.Handle := 0;
      FCanvas.Unlock;
      RestoreDC(hDC, SaveIndex);
    end;
  end;
  Message.Result := 1;
end;

Это сообщение отредактировал(а) Romikgy - 8.1.2009, 12:03

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Quartz

Дата 24.1.2009, 00:49 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 28.6.2008

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

ShadowDancer, к чему эти анахронизмы?

Компоненты палитры Win 3.1 оставлены только для обратной совместимости (ИМХО, давно следовало их выкинуть)... Пользуйтесь лучше TPageControl'ом.

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