VPF::TrackBar - Форум программистов

MrKit

Дата 18.1.2007, 18:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Облазил все что можно в инете и исходниках, не могу сообразить. Где-то же он устанавливается?..

Sunvas

Дата 18.1.2007, 18:47 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

А что ты имеешь в виду, когда говорить о цвете выделения в TrackBar smile

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

MrKit

Дата 19.1.2007, 00:02 (ссылка)

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

Загрузка ...

Новичок

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

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

У TrackBar есть свойства SelEnd и SelStart, которые определяют выделение - закрашенную часть белой полосы. Вот цвет этого выделения я и хочу изменить. Компонент отрисовывается Windows, с использованием цвета текущей цветовой схемы. Как можно влезть в отрисовку - я не могу докопаться smile

На форуме Borland X Portal нашел "подсказку" по этому вопросу:

Цитата

WM_NOTIFY
NMCUSTOMDRAW
TBCD_THUMB

но мне это пока мало о чем говорит. smile

Это сообщение отредактировал(а) MrKit - 19.1.2007, 00:35

MrKit

Дата 24.1.2007, 14:37 (ссылка)

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

Загрузка ...

Новичок

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

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

Ну что, никто не знает? Проблема не решилась! smile

CatATonik

Дата 24.1.2007, 14:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нужно обрабатывать сообщение CN_NOTIFY и рисовать ручками.

CatATonik

Дата 24.1.2007, 15:16 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


procedure TMyTrackBar.CNNotify(var Message: TWMNotify);
var
  Info: PNMCustomDraw;
begin
  with Message do
    if NMHdr.code = NM_CUSTOMDRAW then
    begin
      Info := Pointer(NMHdr);
      case Info.dwDrawStage of
      CDDS_PREPAINT:
        Result := CDRF_NOTIFYITEMDRAW;
      CDDS_ITEMPREPAINT:
        if Info.dwItemSpec = TBCD_CHANNEL then
        begin
          Рисуем тут
          Result := CDRF_SKIPDEFAULT;
          Exit;
        end;
      else
        inherited;
      end;
    end
    else
      inherited;
end;

Это сообщение отредактировал(а) CatATonik - 24.1.2007, 15:16

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