From ca6448e9df29d2b345b63748cd3183e9a92accec Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Thu, 10 Jan 2019 09:34:48 +0000 Subject: [PATCH] EgtCAM5 : - piccola miglioria a SpecialPanel - nascondo BeamPanel in modo Lavorazione. --- Project/ProjectV.xaml.vb | 3 ++- Utility/IniFile.vb | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Project/ProjectV.xaml.vb b/Project/ProjectV.xaml.vb index 22a4321..6be7cb1 100644 --- a/Project/ProjectV.xaml.vb +++ b/Project/ProjectV.xaml.vb @@ -33,7 +33,7 @@ Public Class ProjectV DrawPanel.IsFloating = False OptionPanel.IsFloating = False MachGroupPanel.IsFloating = False - ' carico Special Panel + ' Carico Pannelli Speciali m_bSpecial = IniFile.IsActiveSpecialPanel() m_bBeam = IniFile.IsActiveBeam() m_bDoors = IniFile.IsActiveDoors() @@ -61,6 +61,7 @@ Public Class ProjectV DbPanel.Visibility = Visibility.Visible ExecutePanel.Visibility = Visibility.Collapsed SpecialPanel.Visibility = Visibility.Collapsed + BeamPanel.Visibility = Visibility.Collapsed DoorsPanel.Visibility = Visibility.Collapsed GunStockPanel.Visibility = Visibility.Collapsed DrawPanel.Visibility = Visibility.Collapsed diff --git a/Utility/IniFile.vb b/Utility/IniFile.vb index c528c53..40e304e 100644 --- a/Utility/IniFile.vb +++ b/Utility/IniFile.vb @@ -247,7 +247,8 @@ Public Module IniFile End Function Friend Function IsActiveSpecialPanel() As Boolean - Return GetPrivateProfileInt(S_SPECIAL, K_SPECIALENABLE, 0) <> 0 + Dim btDummy As ButtonItem = Nothing + Return GetPrivateProfileInt(S_SPECIAL, K_SPECIALENABLE, 0) <> 0 AndAlso GetPrivateProfileButton(S_SPECIAL, K_BUTTON & "1", "", btDummy) End Function End Module