Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> SB_THUMBTRACK и GetScrollInfo, Ограничение 16 бит, как его обойти. 
:(
    Опции темы
Гость_Kirill
Дата 6.10.2003, 09:04 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Если ScrollBar имеет max например 100 000 (число более чем 16 бит), то когда пользователь перемещает бегунок (именно бегунок!) невозможно получить точную позицию ScrollBar-а, так как в сообщении WM_VSCROLL с кодом SB_THUMBTRACK предусмотрена только 16-битная обработка.

Может у меня какие-то устаревшие сведения?
  Вверх
x77
Дата 6.10.2003, 09:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 19
Всего: 22
да нет, всё верно. для 32-значений надо юзать GetScrollPos.
Код
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
 Label1.Caption := IntToStr (GetScrollPos (ScrollBar1.Handle, SB_CTL));
 Label2.Caption := IntToStr (ScrollBar1.Position);
end;


я одного не пойму. нафига в дельфе тебе понадобились сообщения для работы со скроллами? в приведённом коде Position благополучно возвращает то же значение, что и GetScrollPos.


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
Гость_Kirill
Дата 6.10.2003, 10:13 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Мне вообще-то нужен не TScrollBar, а стандартные линейки прокрутки, которые можно создать для окна указанием его стиля (WS_HSCROLL, WS_VSCROLL и т.п.). В компоненте может быть много элементов и вверх и вбок, поэтому нужно скролировать, а на этом SB_THUMBTRACK-е споткнулся что-то. Попробовал сейчас использовать GetScrollPos, но что-то не то. Видно соорудил что-то кривое. Попробую еще раз разобраться. Спасибо за помощь.
  Вверх
x77
Дата 6.10.2003, 10:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 19
Всего: 22
не за что smile.gif


--------------------
Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0524 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.