VPF::Плоская полосу прокрутки в ListBox.

ДЫМ

Дата 23.7.2005, 01:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

В компоненте TListView есть такое свойство - FlatScrollBars, которое делает полосы прокрутки плоскими. Как сделать то же самое, но с TListBox. Я попробовал использовать модуль FlatSB.pas.

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
 InitializeFlatSB(ListBox1.Handle);
 FlatSB_SetScrollProp(ListBox1.Handle, WSB_PROP_VSTYLE,
      FSB_FLAT_MODE, True);

 // можно установить первоначальное положение "бегунка"
 FlatSB_SetScrollPos(ListBox1.Handle,1, 10,True);

end;

ScrollBar становится плоским, но "бегунок" не сдвнуть с места (вернее он двигается, но потом перескакивает в первоначальное положение).

Что не так?

Quadr0

Дата 23.7.2005, 21:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:48

ДЫМ

Дата 24.7.2005, 01:11 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата

BevelKind := bkFlat.
Кажется, должно помочь.

Не помогает.

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