- spostamento + cambio nome

2024-10-03 16:30:55 +02:00
parent 6da345d8c5
commit 1aa26ca644
50 changed files with 34 additions and 189 deletions
@@ -0,0 +1,32 @@
+<Grid x:Class="MainMenuV"
+      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+      xmlns:sys="clr-namespace:System;assembly=mscorlib"
+      DataContext="{StaticResource MainMenuVM}"
+      WindowChrome.IsHitTestVisibleInChrome="True">
+   <Grid.Resources>
+      <sys:Int32 x:Key="Door_List">0</sys:Int32>
+      <sys:Int32 x:Key="Machine_State">1</sys:Int32>
+      <sys:Int32 x:Key="Statistics">2</sys:Int32>
+   </Grid.Resources>
+   <Grid.ColumnDefinitions>
+      <ColumnDefinition Width="1*"/>
+      <ColumnDefinition Width="1*"/>
+      <ColumnDefinition Width="1*"/>
+   </Grid.ColumnDefinitions>
+   <RadioButton Content="Door List"
+                Command="{Binding Page_Command}"
+                CommandParameter="{StaticResource Door_List}"
+                IsChecked="True"
+                Style="{StaticResource {x:Type ToggleButton}}"/>
+   <RadioButton Grid.Column="1"
+                Content="Machine Status"
+                Command="{Binding Page_Command}"
+                CommandParameter="{StaticResource Machine_State}"
+                Style="{StaticResource {x:Type ToggleButton}}"/>
+   <RadioButton Grid.Column="2"
+                Content="Statistics"
+                Command="{Binding Page_Command}"
+                CommandParameter="{StaticResource Statistics}"
+                Style="{StaticResource {x:Type ToggleButton}}"/>
+</Grid>
@@ -0,0 +1,9 @@
+Imports System.ComponentModel.Composition
+Imports Effector.Plugin.Interface
+
+<Export(GetType(IPluginControl))>
+<ExportMetadata("Name", "MainMenu")>
+Public Class MainMenuV
+   Implements IPluginControl
+
+End Class
@@ -0,0 +1,28 @@
+Public Class MainMenuVM
+   Inherits VMBase
+
+   ' Definizione comandi
+   Private m_cmdPage As ICommand
+
+#Region "COMMANDS"
+
+#Region "Page"
+
+   Public ReadOnly Property Page_Command As ICommand
+      Get
+         If m_cmdPage Is Nothing Then
+            m_cmdPage = New Command(AddressOf Page)
+         End If
+         Return m_cmdPage
+      End Get
+   End Property
+
+   Public Sub Page(nPage As Integer)
+      Map.refFiveLakesUIVM.SetSelPage(nPage)
+   End Sub
+
+#End Region ' Page
+
+#End Region    ' COMMANDS
+
+End Class