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