Egalware/EgtCAM5
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtCAM5 :

Browse Source 
- piccola miglioria a SpecialPanel
- nascondo BeamPanel in modo Lavorazione.
This commit is contained in:
Dario Sassi
2019-01-10 09:34:48 +00:00
parent 226b088e19
commit ca6448e9df
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Project/ProjectV.xaml.vb
+2 -1
View File
@@ -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
Utility/IniFile.vb
+2 -1
View File
@@ -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