Иллюстрированный самоучитель по Tirbo Pascal




Указатель на элемент списка - часть 2


end;

Procedure TInterior.HandleEvent(var Event: TEvent); 

{Обработчик событий для окна данных} 

var

R: TPoint; 

begin

Inherited HandleEvent(Event);

case Event.What of evMouseDown: {Реакция на щелчок мышью} 

begin

MakeLocal(MouseWhere, R){Получаем в R локальные координаты указателя мыши}

Location := Delta.Y+R.Y; 

Draw 

end;

evKeyDown: {Реакция на клавиши + -} 

case Event.KeyCode of

kbGrayMinus: if Location > Delta.Y then 

begin

dec(Location); 

Draw 

end;

kbGrayPlus: if Location < Delta.Y+pred(Size.Y) then 

begin

inc(Location); 

Draw

end; 

end 

end 

end; {TInterior.HandleEvent}

В новом методе вначале вызывается унаследованный обработчик событий TScroller.HandleEvent, с помощью которого обрабатываются все стандартные действия с окном (смещение текста, изменение размеров и т.д.). Затем обрабатываются события от нажатия кнопки мыши и от нажатия клавиш «+» и «-» из зоны цифровых клавиш (на клавиатуре ПК они выделяются серым цветом). С клавишей «+» связывается действие «Сместить указатель вниз на одну строку», с клавишей «-» - «Сместить вверх». Выбор серых клавиш «+» и «-» для смещения указателя вызван тем, что клавиши управления курсором используются для смещения окна и обрабатываются стандартным обработчиком событий. Заметим, что нажатие кнопки мыши будет обрабатываться в TScroller.HandleEvent только в том случае, если указатель мыши находится на рамке окна или на полосах управления. Если указатель сместить внутрь окна, нажатие на кнопку мыши будет преобразовано в событие evMouseDone и передано в наш обработчик. В этом случае глобальная переменная MouseWhere содержит абсолютные координаты указателя мыши (т.е. координаты относительно левого верхнего угла экрана). Чтобы получить номер соответствующей строки текста, мы сначала с помощью оператора

MakeLocal(MouseWhere, R) ;

получаем в переменной R локальные координаты мыши относительно границ окна TScroller. Оператор

Location := Delta.Y+R.Y;

устанавливает в поле Location номер той строки текста, на которой располагается указатель мыши.




Содержание  Назад  Вперед