Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Ограничение скроллинга в 32767   Найти похожие ветки 

 
Unknown_user   (2011-03-16 13:48) [0]

Подскажите как обойти ограничение диапазона прокрутки скроллбара в 32767? Привожу описание сообщения скроллера из Messages.pas, видим, что поле Pos типа Smallint.


 TWMScroll = packed record
   Msg: Cardinal;
   ScrollCode: Smallint; { SB_xxxx }
   Pos: Smallint;
   ScrollBar: HWND;
   Result: Longint;
 end;


Похоже, тяжелое наследство 16-ти битного прошлого.

Я использую это поле при обработке сообщений

SB_THUMBPOSITION,
SB_THUMBTRACK

и при большом ScrollRange получаю переполнение. Как обойти?


 
clickmaker ©   (2011-03-16 13:53) [1]

GetScrollPos() или GetScrollInfo()


 
Unknown_user   (2011-03-16 14:49) [2]

Большое спасибо, clickmaker. Сам я что-то не догадался. GetScrollInfo может среди прочих параметров возвращать nTrackPos. Это как раз и есть тот самый TWMScroll.Pos только уже 4-х байтный.

Привожу работающий код, может кому-то пригодится.

function TSomeControlWithScrollBars.GetTrackPos(HorizScroll: Boolean): Integer;
const
 cScrolls: array[Boolean] of DWORD =
   (SB_VERT, SB_HORZ);
var
 ScrInfo: TScrollInfo;
begin
 ScrInfo.cbSize := SizeOf(ScrInfo);
 ScrInfo.fMask := SIF_TRACKPOS;
 GetScrollInfo(Handle, cScrolls[HorizScroll], ScrInfo);
 Result := ScrInfo.nTrackPos;
end;



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
15-1330029003
Юрий
2012-02-24 00:30
2013.03.22
С днем рождения ! 24 февраля 2012 пятница


2-1331843715
Zheksonz
2012-03-16 00:35
2013.03.22
Управление шаговым двигателем через LPT


15-1346224640
Grimm
2012-08-29 11:17
2013.03.22
git-клиент


15-1346949988
Опять я
2012-09-06 20:46
2013.03.22
Как вывести ВЕКТОРНУЮ линию в Delphi?


15-1353474231
Бумбум
2012-11-21 09:03
2013.03.22
Как выделить числа в календаре