Турбо Паскаль 6.0


TView Views - часть 9


MakeFirst procedure MakeFirst; Перемещает видимый элемент на вершину списка подэлементов владельца. Вызов MakeFirst соответствует PutInFrontOf(Owner^.First).

См. так же: TView.PutInFrontOf

MakeGlobal procedure MakeGlobal(Source: TPoint; var Dest:TPoint); Перобразует координаты в точке Sourсe из локальных (видимый элемент) в глобальные (экран) и возвращает результат в Dest. Source и Dest могут быть одной переменной.

См. так же: TView.MakeGlobal, TView.MouseInView

MakeLocal procedure MakeLocal(Source: TPoint; var Dest:TPoint); Преобразует координаты точки Source из глобальных (экран) в локальные (видимый элемент) и возвращает результат в Dest. Полезно для преобразования поля Event.Where в событии evMouse из глобальных координат в локальные. Например MakeLocal(Event.Where, MouseLoc).

См. так же: TView.MakeGlobal, TView.MouseInView

MouseEvent function MouseEvent(var Event: TEvent; Mask: Word): Boolean; Возвращает следующее событие от мышки в Event. Возвращает True, если возвращенное событие есть в аргументе Mask, и False, если возникло событие evMouseUp. Этот метод позволяет Вам трассировать мышку, когда ее кнопка нажата, например в операциях отметки блока мышкой в текстовых редакторах. Приведем фрагмент программы HandleEvent, которая следит за мышкой с курсором видимого элемента.

procedure TMyView.HandleEvent(var Event: TEvent); begin TView.HandleEvent(Event); case Event.What of evMouseDown: begin repeat MakeLocal(Event.Where, Mouse); SetCursor(Mouse.X, Mouse.Y); until not MouseEvent(Event, evMouseMove); ClearEvent(Event); end; . end; end;

См. так же: EventMasks, TView.KeyEvent, TView.GetEvent

MouseInView function MouseInView(Mouse: TPoint): Boolean; Возвращает True, если аргумент Mouse (заданный в глобальных координатах) внутри видимого элемента.

См. так же: TView.MakeLocal

MoveTo procedure MoveTo(X, Y: Integer); Перемещает Origin в точку (X, Y) относительно владельца видимого элемента. Size видимого элемента не изменяется.

См. так же: Origin, Size, TView.Locate, TView.GrowTo




Начало  Назад  Вперед