ITabView.ConvertPtToView

Синтаксис

ConvertPtToView(PtInPix: IGxPoint): IGxPointF;

Параметры

PtInPix. Экранная точка.

Описание

Метод ConvertPtToView осуществляет преобразование точки в экранных координатах в точку относительно левого верхнего угла видимой области электронной таблицы.

Комментарии

Видимой областью электронной таблицы считается вся таблица, за исключением полос прокрутки:

Пример

Для выполнения примера предполагается наличие формы, расположенного на ней компонента TabSheetBox с идентификатором «TabSheetBox1» и компонента UiTabSheet с наименованием «UiTabSheet1», являющегося источником данных для TabSheetBox. Приведенная ниже процедура является обработчиком события OnMouseMove (перемещение пользователем курсора мыши над компонентом) для «TabSheetBox1».

Sub TabSheetBox1OnMouseMove(Sender: Object; Args: IMouseEventArgs);

Var

TabSheet: ITabSheet;

TabView: ITabView;

Point: IGxPoint;

PointF: IGxPointF;

Begin

TabSheet := UiTabSheet1.TabSheet;

TabView := TabSheet.View;

Point := New GxPoint.Create(Args.pPoint.X, Args.pPoint.Y);

PointF := TabView.ConvertPtToView(Point);

If PointF.X = 0 Then

WinApplication.InformationBox("Вы пересекли левую границу электронной таблицы");

End If;

If PointF.Y = 0 Then

WinApplication.InformationBox("Вы пересекли верхнюю границу электронной таблицы");

End If;

End Sub TabSheetBox1OnMouseMove;

Пример будет выполняться, если пользователь перемещает курсор мыши над электронной таблицей («TabSheetBox1»). Если курсор мыши пересечет ее левую или верхнюю границу, то будет отображено соответствующее информационное сообщение.

См. также:

ITabView