EgtCAM5 :
- Cambiati nomi classi e file.
This commit is contained in:
Emmanuele Sassi
@@ -0,0 +1,79 @@
|
||||
<UserControl x:Class="ProjectV"
|
||||
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
|
||||
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
|
||||
xmlns:local="clr-namespace:EgtCAM5"
|
||||
xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
|
||||
xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
|
||||
xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity">
|
||||
|
||||
<interactivity:Interaction.Triggers>
|
||||
<interactivity:EventTrigger EventName="Loaded">
|
||||
<interactivity:InvokeCommandAction Command="{Binding LoadedCommand}"/>
|
||||
</interactivity:EventTrigger>
|
||||
</interactivity:Interaction.Triggers>
|
||||
|
||||
<EgtFloating:EgtFloatingManager>
|
||||
<EgtFloating:EgtFloatingTray x:Name="TOPTRAY" DockPanel.Dock="Top">
|
||||
<EgtFloating:EgtFloatingPanel Name="ShowPanel"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
|
||||
<local:ShowPanelV DataContext="{StaticResource ShowPanelViewModel}"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
<EgtFloating:EgtFloatingPanel Name="ViewPanel"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
|
||||
<local:ViewPanelV DataContext="{StaticResource ViewPanelViewModel}"/>
|
||||
<local:PopUpViewPanelV DataContext="{StaticResource PopUpViewPanelViewModel}" EgtFloating:EgtFloatingPanel.IsInPopUp="True"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
<!--<EgtFloating:EgtFloatingPanel Name="InstrumentPanel"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">-->
|
||||
<local:InstrumentPanelV DataContext="{StaticResource InstrumentPanelViewModel}"/>
|
||||
<!--</EgtFloating:EgtFloatingPanel>-->
|
||||
<EgtFloating:EgtFloatingPanel Name="GridPanel"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
|
||||
<local:GridPanelV DataContext="{StaticResource GridPanelViewModel}"/>
|
||||
<local:PopUpGridPanelV DataContext="{StaticResource PopUpGridPanelViewModel}" EgtFloating:EgtFloatingPanel.IsInPopUp="True"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
<EgtFloating:EgtFloatingPanel Name="DbPanel"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
|
||||
<local:MachinePanelV DataContext="{StaticResource DbPanelViewModel}"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
<EgtFloating:EgtFloatingPanel Name="ExecutePanel"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
|
||||
<local:ExecutePanelV DataContext="{StaticResource ExecutePanelViewModel}"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
<EgtFloating:EgtFloatingPanel Name="SpecialPanel"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
|
||||
<local:SpecialPanelV DataContext="{StaticResource SpecialPanelViewModel}"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
<EgtFloating:EgtFloatingPanel Name="DoorsPanel"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
|
||||
<local:DoorPanelV DataContext="{StaticResource DoorsPanelViewModel}"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
<EgtFloating:EgtFloatingPanel Name="GunStockPanel"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
|
||||
<local:GunStockPanelV DataContext="{StaticResource GunStockPanelViewModel}"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
</EgtFloating:EgtFloatingTray>
|
||||
<EgtFloating:EgtFloatingTray x:Name="LEFTTRAY" DockPanel.Dock="Left">
|
||||
<EgtFloating:EgtFloatingPanel Name="DrawPanel" TitleBarOrientation="Vertical"
|
||||
IsTopDockable="False" IsBottomDockable="False" IsLeftDockable="True" IsRightDockable="True">
|
||||
<local:DrawPanelV DataContext="{StaticResource DrawPanelViewModel}"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
</EgtFloating:EgtFloatingTray>
|
||||
<EgtFloating:EgtFloatingTray x:Name="RIGHTTRAY" DockPanel.Dock="Right">
|
||||
<EgtFloating:EgtFloatingPanel Name="OptionPanel" TitleBarOrientation="Vertical"
|
||||
IsTopDockable="False" IsBottomDockable="False" IsLeftDockable="True" IsRightDockable="True">
|
||||
<local:OptionPanelV DataContext="{StaticResource OptionPanelViewModel}"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
</EgtFloating:EgtFloatingTray>
|
||||
<EgtFloating:EgtFloatingTray x:Name="BOTTOMTRAY" DockPanel.Dock="Bottom">
|
||||
<EgtFloating:EgtFloatingPanel Name="MachGroupPanel"
|
||||
IsToolBar="False"
|
||||
IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False">
|
||||
<local:MachGroupPanelV DataContext="{StaticResource MachGroupPanelViewModel}"/>
|
||||
</EgtFloating:EgtFloatingPanel>
|
||||
</EgtFloating:EgtFloatingTray>
|
||||
<!--ContentControl che ospita la scena restituita sotto forma di WindowsFormsHost-->
|
||||
<ContentControl Content="{Binding ProjectSceneHost}"/>
|
||||
</EgtFloating:EgtFloatingManager>
|
||||
|
||||
</UserControl>
|
||||
@@ -0,0 +1,111 @@
|
||||
Imports EgtWPFLib5.EgtFloating
|
||||
|
||||
Public Class ProjectV
|
||||
|
||||
Private m_bDoors As Boolean = False
|
||||
Private m_bGunStock As Boolean = False
|
||||
Private m_bSpecial As Boolean = False
|
||||
Private Sub UserControl_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
|
||||
DoorsPanel.Visibility = Visibility.Collapsed
|
||||
SpecialPanel.Visibility = Visibility.Collapsed
|
||||
MachGroupPanel.Visibility = Visibility.Collapsed
|
||||
GunStockPanel.Visibility = Visibility.Collapsed
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
||||
' Leggo posizioni Floating window
|
||||
Dim sState As String = String.Empty
|
||||
Dim nIndex As Integer = -1
|
||||
Dim nLeft As Integer = -1
|
||||
Dim nTop As Integer = -1
|
||||
ShowPanel.IsFloating = False
|
||||
ViewPanel.IsFloating = False
|
||||
'InstrumentPanel.IsFloating = False
|
||||
GridPanel.IsFloating = False
|
||||
DbPanel.IsFloating = False
|
||||
ExecutePanel.IsFloating = False
|
||||
SpecialPanel.IsFloating = False
|
||||
DoorsPanel.IsFloating = False
|
||||
DrawPanel.IsFloating = False
|
||||
OptionPanel.IsFloating = False
|
||||
MachGroupPanel.IsFloating = False
|
||||
GunStockPanel.IsFloating = False
|
||||
If GetPrivateProfileFloatingWinPos(S_GENERAL, "ShowPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
|
||||
PanelPositioning(ShowPanel, sState, nIndex, nLeft, nTop)
|
||||
End If
|
||||
If GetPrivateProfileFloatingWinPos(S_GENERAL, "ViewPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
|
||||
PanelPositioning(ViewPanel, sState, nIndex, nLeft, nTop)
|
||||
End If
|
||||
If GetPrivateProfileFloatingWinPos(S_GENERAL, "InstrumentPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
|
||||
'PanelPositioning(InstrumentPanel, sState, nIndex, nLeft, nTop)
|
||||
End If
|
||||
If GetPrivateProfileFloatingWinPos(S_GENERAL, "GridPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
|
||||
PanelPositioning(GridPanel, sState, nIndex, nLeft, nTop)
|
||||
End If
|
||||
If GetPrivateProfileFloatingWinPos(S_GENERAL, "DoorsPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
|
||||
PanelPositioning(DoorsPanel, sState, nIndex, nLeft, nTop)
|
||||
End If
|
||||
If GetPrivateProfileFloatingWinPos(S_GENERAL, "GunStockPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
|
||||
PanelPositioning(DoorsPanel, sState, nIndex, nLeft, nTop)
|
||||
End If
|
||||
If GetPrivateProfileFloatingWinPos(S_GENERAL, "DrawPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
|
||||
PanelPositioning(DrawPanel, sState, nIndex, nLeft, nTop)
|
||||
End If
|
||||
If GetPrivateProfileFloatingWinPos(S_GENERAL, "OptionPanel", sState, nIndex, nLeft, nTop) And Not String.IsNullOrEmpty(sState) Then
|
||||
PanelPositioning(OptionPanel, sState, nIndex, nLeft, nTop)
|
||||
End If
|
||||
' carico Special Panel
|
||||
m_bSpecial = IniFile.IsActiveSpecialPanel()
|
||||
m_bDoors = IniFile.IsActiveDoors()
|
||||
m_bGunStock = IniFile.IsActiveGunStock()
|
||||
Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
|
||||
'ShowPanel.Visibility = Visibility.Visible
|
||||
ViewPanel.Visibility = Visibility.Visible
|
||||
'InstrumentPanel.Visibility = Visibility.Visible
|
||||
GridPanel.Visibility = Visibility.Visible
|
||||
DbPanel.Visibility = If(IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW, Visibility.Collapsed, Visibility.Visible)
|
||||
ExecutePanel.Visibility = Visibility.Visible
|
||||
SpecialPanel.Visibility = If(m_bSpecial, Visibility.Visible, Visibility.Collapsed)
|
||||
DoorsPanel.Visibility = If(m_bDoors, Visibility.Visible, Visibility.Collapsed)
|
||||
GunStockPanel.Visibility = If(m_bGunStock, Visibility.Visible, Visibility.Collapsed)
|
||||
DrawPanel.Visibility = Visibility.Visible
|
||||
OptionPanel.Visibility = Visibility.Visible
|
||||
MachGroupPanel.Visibility = Visibility.Collapsed
|
||||
End Sub)
|
||||
Application.Msn.Register(Application.MACHININGMODE_ISCHECKED, Sub()
|
||||
'ShowPanel.Visibility = Visibility.Visible
|
||||
ViewPanel.Visibility = Visibility.Visible
|
||||
'InstrumentPanel.Visibility = Visibility.Visible
|
||||
GridPanel.Visibility = Visibility.Visible
|
||||
DbPanel.Visibility = Visibility.Visible
|
||||
ExecutePanel.Visibility = Visibility.Collapsed
|
||||
SpecialPanel.Visibility = Visibility.Collapsed
|
||||
DoorsPanel.Visibility = Visibility.Collapsed
|
||||
GunStockPanel.Visibility = Visibility.Collapsed
|
||||
DrawPanel.Visibility = Visibility.Collapsed
|
||||
OptionPanel.Visibility = Visibility.Visible
|
||||
MachGroupPanel.Visibility = If(IniFile.m_bMachiningGroup, Visibility.Visible, Visibility.Collapsed)
|
||||
End Sub)
|
||||
End Sub
|
||||
|
||||
Private Sub PanelPositioning(FloatingPanel As EgtFloatingPanel, sState As String, nIndex As Integer, nLeft As Integer, nTop As Integer)
|
||||
Select Case sState
|
||||
Case "TOP"
|
||||
FloatingPanel.ChangePosition(TOPTRAY)
|
||||
Case "BOTTOM"
|
||||
FloatingPanel.ChangePosition(BOTTOMTRAY)
|
||||
Case "LEFT"
|
||||
FloatingPanel.ChangePosition(LEFTTRAY)
|
||||
Case "RIGHT"
|
||||
FloatingPanel.ChangePosition(RIGHTTRAY)
|
||||
Case "FLOATING"
|
||||
FloatingPanel.ChangePosition(New Point(nLeft, nTop))
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub UserControl_Unloaded(sender As Object, e As RoutedEventArgs) Handles Me.Unloaded
|
||||
' Salvo le posizioni di tutti gli EgtPanel
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user