Объект FieldWindow представляет окно картины поля.
Объект FieldWindow является производным от базового объекта Window и наследует все его методы и свойства. Все объекты FieldWindow oявляются членами коллекции Windows, которая доступна через свойство Windows объекта Result.
Самый первый объект FieldWindow создается при использовании метода AnalyzeResult объекта Problem. Можно создать сколько угодно объектов FieldWindow, используя метод NewWindow объекта Result.
Есть специальный объект FieldPicture , хранящий все настройки картины поля (объект FieldWindow). Чтобы изменить некоторые настройки, надо получить объект FieldPicture, связанный с окном картины поля (объект FieldWindow), изменить его свойства и вернуть его в FieldWindow.
В дополнение к свойствам и методам базового объекта Window, объект FieldWindow имеет свои свойства и методы:
|
Метод Zoom |
Позволяет увеличивать и уменьшать картинку поля. Два параметра, имеющих тип Point, задают левый верхний и правый нижний углы прямоугольника, который займет целое окно. Если задана только одна точка, то она станет центром будущего окна, а картинка увеличится в 2 раза. Если параметры не заданы, то будет показана вся картинка целиком, так крупно, как это возможно. |
|
Свойство PictureSettings
|
Возвращает и устанавливает объект FieldPicture, хранящий все настройки картинки. |
|
Свойство Contour
|
Возвращает объект Contour.
|
|
Свойство WindowType
|
Возвращает тип qfWindowType этого окна. |
|
Свойство LegendVisible
|
Возвращает и устанавливает видимость окна обозначений. Тип Boolean. |
|
Метод GetLegendPicture |
Копирует картинку из окна обозначений в буфер обмена Windows. |
Следующий пример решает задачу, открывает окно картины поля (объект FieldWindow), настраивает масштаб картинки, а потом открывает ещё одно окно.
dim prb As ELCUT.Problem
........
dim res As ELCUT.Result
If Not prb.Solved Then
If Not prb.CanSolve Then Exit Sub
prb.SolveProblem
End If
prb.AnalyzeResults
set res = prb.Result
dim resWin As FieldWindow
set resWin = res.Windows(1)
reswin.Zoom ELC.PointXY (0, 15)
dim resWin2 as FieldWindow
set resWin2 = res.NewWindow