From 3171b3d6eac750fd6a1d688d8de8de548139bb7d Mon Sep 17 00:00:00 2001 From: Nicola Pievani Date: Fri, 15 Sep 2023 16:38:16 +0200 Subject: [PATCH] Gestione ToolDBWindow --- MachinePanel/MyMachinePanelVM.vb | 12 +- MyToolDbWindow/MyToolDbWindowV.xaml | 310 ++++++++++++++----------- MyToolDbWindow/MyToolDbWindowV.xaml.vb | 12 +- 3 files changed, 190 insertions(+), 144 deletions(-) diff --git a/MachinePanel/MyMachinePanelVM.vb b/MachinePanel/MyMachinePanelVM.vb index b65034f..37c75bb 100644 --- a/MachinePanel/MyMachinePanelVM.vb +++ b/MachinePanel/MyMachinePanelVM.vb @@ -121,10 +121,16 @@ Public Class MyMachinePanelVM End If Dim ToolDbWindowVM As New ToolDbWindowVM(CurrentMachine.sMachDir, CurrentMachine.sMachIniFile, OmagOFFICEMap.refSceneHostVM.MainScene.GetCtx(), "Stone", OmagOFFICEMap.refMainWindowVM.MainWindowM.nUserLevel > 5) - Dim ToolDbWindowV As New ToolDbWindowV(Application.Current.MainWindow, ToolDbWindowVM) - ' Dim ToolDbWindowV As New MyToolDbWindowV(Application.Current.MainWindow, ToolDbWindowVM) + ' imposto colori sfondo + Dim BackTopColor As New Color3d(192, 192, 192) + GetMainPrivateProfileColor(S_SCENE, K_BACKTOP, BackTopColor) + Dim BackBotColor As New Color3d(BackTopColor) + GetMainPrivateProfileColor(S_SCENE, K_BACKBOTTOM, BackBotColor) + ToolDbWindowVM.SetBackgroundColor(BackTopColor, BackBotColor) + ' Dim ToolDbWindowV As New ToolDbWindowV(Application.Current.MainWindow, ToolDbWindowVM) + Dim ToolDbWindowV As New MyToolDbWindowV(Application.Current.MainWindow, ToolDbWindowVM) If ToolDbWindowVM.MatType <> 0 Then - ToolDbWindowV.Height = 640 + ToolDbWindowV.Height = 768 ToolDbWindowV.Width = 1024 ToolDbWindowV.ShowDialog() Else diff --git a/MyToolDbWindow/MyToolDbWindowV.xaml b/MyToolDbWindow/MyToolDbWindowV.xaml index 714f24f..7e2d28a 100644 --- a/MyToolDbWindow/MyToolDbWindowV.xaml +++ b/MyToolDbWindow/MyToolDbWindowV.xaml @@ -8,97 +8,103 @@ WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False" IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False" CloseCommand="{Binding CloseToolsDbCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}" - CloseCommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"> - - + + - + - - - - - 0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 20 - 21 - 22 - 23 - 24 - 25 - + + + + + 0 + 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 + 11 + 12 + 13 + 14 + 15 + 16 + 17 + 18 + 19 + 20 + 21 + 22 + 23 + 24 + 25 + - - - - - - + + + + + + - - - - - + + + + + - + + - + + - - - + + - - + + - - - - - + + + + + + - - + + + - + - + - - - - - - + + + + + + + - - + + + - - + - + - + - + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + diff --git a/MyToolDbWindow/MyToolDbWindowV.xaml.vb b/MyToolDbWindow/MyToolDbWindowV.xaml.vb index 200f86c..85dcc87 100644 --- a/MyToolDbWindow/MyToolDbWindowV.xaml.vb +++ b/MyToolDbWindow/MyToolDbWindowV.xaml.vb @@ -13,13 +13,13 @@ Public Class MyToolDbWindowV m_ToolDbWindowVM = ToolDbWindowVM End Sub - Private Sub ToolsDbView_Closed(sender As Object, e As System.EventArgs) Handles Me.Closed - '' Imposto contesto generale - 'EgtSetCurrentContext(EgtWPFLib5.ToolDbWindowVM.m_ProjectSceneContext) - '' Cancello contesto di visualizzazione utensile - 'EgtDeleteContext(ToolDbWindowVM.m_ToolDbSceneContext) + Private Sub ToolsDbView_Closed(bDialogResult As Boolean) Handles m_ToolDbWindowVM.m_CloseWindow + ' Imposto contesto generale + EgtSetCurrentContext(EgtWPFLib5.ToolDbWindowVM.ProjectSceneContext) + ' Cancello contesto di visualizzazione utensile + EgtDeleteContext(EgtWPFLib5.ToolDbWindowVM.ToolDbSceneContext) 'ToolDbWindowVM.m_ToolDbSceneContext = 0 - Dim x As Boolean = False + Me.Close() End Sub Private Sub ToolsDbView_Closing(sender As Object, e As ComponentModel.CancelEventArgs) Handles Me.Closing