Emmanuele Sassi
8822da5d09
- Gestita dimensione eposizione finestra supervisor - Gestita visibilita' bottone cambio macchina da ini - Introdotto log degli eventi macchina - Disattivo bottoni macchina durante ricalcolo cn in supervisore - Agiunta lettura variabili E80000, E80001, E80002 per Num - Correzioni e migliorie a passaggio barre tra vieoptim e supervisore e vice versa - Corretto stato delle feature su ripartenza - Introduzione configurazione cartelle prod e proj da path per funzionamento in rete - Aggiunta impostazione ccartella condivisa per funzionamento in rete - Interruzione lettura statusmap durante ricaricamento progetto - Modificata finestra di blocco per gestione con salvataggio diretto se versione non di rete - Evidenziazione copie in visualizzazione struttura in visualizzatore - Aggiornamento dei risultati di verifica anche in ottimizzatore quando mandato programma cna alla macchina - Correzione a indica di modifica progetto in pagina view - Correzione aggiornamento titolo prod su salvataggio - Correzione a selezione pezzi su scena
75 lines
2.4 KiB
VB.net
75 lines
2.4 KiB
VB.net
Imports EgtWPFLib5
|
|
Imports EgtUILib
|
|
Imports EgtBEAMWALL.Core
|
|
|
|
Class MainWindowV
|
|
|
|
Private m_MainWindowVM As MainWindowVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Funzione che interpreta l'xaml
|
|
InitializeComponent()
|
|
' Assegno al riferimento locale al VM il VM preso dal DataContext
|
|
m_MainWindowVM = DirectCast(Me.DataContext, MainWindowVM)
|
|
AddHandler Me.Loaded, AddressOf MainWindowV_Loaded
|
|
AddHandler Me.ContentRendered, AddressOf MainWindowV_ContentRendered
|
|
AddHandler Me.Closing, AddressOf MainWindowV_Closing
|
|
AddHandler Me.KeyDown, AddressOf MainWindowV_KeyDown
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "EVENTS"
|
|
|
|
Private Sub MainWindowV_Loaded(sender As Object, e As RoutedEventArgs)
|
|
' Carico e imposto posizione finestra
|
|
WinPosFromIniToWindow(S_GENERAL, K_VIEWOPTIMWINPLACE, Me)
|
|
End Sub
|
|
|
|
Private Sub MainWindowV_ContentRendered(sender As Object, e As EventArgs)
|
|
m_MainWindowVM.ContentRendered()
|
|
End Sub
|
|
|
|
Private Sub MainWindowV_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs)
|
|
If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt OrElse Keyboard.IsKeyDown(Key.F4) Then
|
|
e.Cancel = True
|
|
Return
|
|
End If
|
|
' Salvo posizione finestra (se non minimizzata)
|
|
If WindowState <> WindowState.Minimized Then
|
|
WinPosFromWindowToIni(Me, S_GENERAL, K_VIEWOPTIMWINPLACE)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MainWindowV_KeyDown(sender As Object, e As KeyEventArgs)
|
|
m_MainWindowVM.KeyDown(e.Key)
|
|
End Sub
|
|
|
|
Private Sub MainWindowV_Drop(sender As Object, e As DragEventArgs)
|
|
' Se drag di file
|
|
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
|
' Attivo il programma
|
|
Me.Activate()
|
|
' Recupero l'array di stringhe con i nomi del file
|
|
Dim sFiles() As String = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
|
|
' Se BTL importo il file
|
|
If EgtGetFileType(sFiles(0)) = FT.BTL Then
|
|
Map.refProjManagerVM.ImportBTL(sFiles(0), False)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MainWindowV_Activated(sender As Object, e As EventArgs) Handles Me.Activated
|
|
LoadingWndHelper.SetMainWindowIsActive(True)
|
|
End Sub
|
|
|
|
Private Sub MainWindowV_Deactivated(sender As Object, e As EventArgs) Handles Me.Deactivated
|
|
LoadingWndHelper.SetMainWindowIsActive(False)
|
|
End Sub
|
|
|
|
#End Region ' EVENTS
|
|
|
|
End Class
|