NicolaP
65 lines
1.9 KiB
VB.net
65 lines
1.9 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
Public Class FinalMoveRawModeVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
Private m_nAuxTabId As Integer = GDB_ID.NULL
|
|
Public ReadOnly Property nAuxTabId As Integer
|
|
Get
|
|
Return m_nAuxTabId
|
|
End Get
|
|
End Property
|
|
Sub New()
|
|
' Creo riferimento a questa classe in OmagOFFICEMap
|
|
OmagOFFICEMap.SetRefFinalMoveRawModeVM(Me)
|
|
End Sub
|
|
|
|
' Definizione comandi
|
|
Private m_cmdTopLeft As ICommand
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
Public Sub Init()
|
|
OmagOFFICEMap.refMoveRawModeVM.InitMoveRaw()
|
|
|
|
m_nAuxTabId = EgtGetTableId(AUX_TAB)
|
|
' Visualizzo tavolo ausiliario
|
|
Dim bOldEnMod As Boolean = EgtGetEnableModified()
|
|
If bOldEnMod Then EgtDisableModified()
|
|
EgtSetStatus(m_nAuxTabId, GDB_ST.ON_)
|
|
If bOldEnMod Then EgtEnableModified()
|
|
' Area tavolo ausiliario
|
|
Dim b3AuxTab As New BBox3d
|
|
EgtGetBBoxGlob(EgtGetFirstNameInGroup(m_nAuxTabId, "A1"), GDB_BB.STANDARD, b3AuxTab)
|
|
' Area tavolo principale
|
|
Dim b3Tab As New BBox3d
|
|
EgtGetTableArea(1, b3Tab)
|
|
' Imposto offset su tavolo principale per includere anche il secondario
|
|
Dim dOffsXP As Double = Math.Max(b3AuxTab.Max().x - b3Tab.Max().x, 0)
|
|
Dim dOffsYP As Double = Math.Max(b3AuxTab.Max().y - b3Tab.Max().y, 0)
|
|
Dim dOffsXM As Double = Math.Max(b3Tab.Min().x - b3AuxTab.Min().x, 0)
|
|
Dim dOffsYM As Double = Math.Max(b3Tab.Min().y - b3AuxTab.Min().y, 0)
|
|
EgtSetTableAreaOffset(dOffsXP, dOffsYP, dOffsXM, dOffsYM)
|
|
|
|
EgtZoom(ZM.ALL)
|
|
End Sub
|
|
|
|
#Region "TopLeft"
|
|
|
|
Public ReadOnly Property TopLeftCommand As ICommand
|
|
Get
|
|
If m_cmdTopLeft Is Nothing Then
|
|
m_cmdTopLeft = New Command(AddressOf TopLeft)
|
|
End If
|
|
Return m_cmdTopLeft
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub TopLeft(ByVal param As Object)
|
|
OmagOFFICEMap.refMoveRawModeVM.MoveOnRef("REF4", MCH_CR.TL)
|
|
End Sub
|
|
|
|
#End Region ' TopLeft
|
|
|
|
End Class
|