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

Browse Source
This commit is contained in:
Nicola Pievani
2020-03-09 16:57:02 +00:00
parent 13b49e14cb
commit 529ca4fcd9
5 changed files with 49 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+6 -2
View File
@@ -39,6 +39,8 @@ Friend Module OptionModule
Friend m_VisibilityBtnDesign As Visibility = Visibility.Collapsed
Friend m_EnableBrowse As Boolean = False
Friend Enum LauncherOpt As Integer
Open_window = 0
Open_last_project = 1
@@ -237,7 +239,7 @@ Friend Module OptionModule
End If
Dim sListLabelDir As String = String.Empty
If GetMainPrivateProfileString(S_LISTLABEL, K_LISTLABELDIR, "", sListLabelDir) > 0 AndAlso Directory.Exists(sListLabelDir) Then
If GetMainPrivateProfileString(S_REPORT, K_REPORTDIR, "", sListLabelDir) > 0 AndAlso Directory.Exists(sListLabelDir) Then
IniFile.m_sListLabelDir = sListLabelDir
Else
' mantengo l'accesso a quello di default
@@ -245,7 +247,7 @@ Friend Module OptionModule
End If
Dim sListLabelFile As String = String.Empty
If GetMainPrivateProfileString(S_LISTLABEL, K_LISTLABELFILE, "", sListLabelFile) > 0 AndAlso File.Exists(sListLabelFile) Then
If GetMainPrivateProfileString(S_REPORT, K_REPORTFILE, "", sListLabelFile) > 0 AndAlso File.Exists(sListLabelFile) Then
IniFile.m_sListLabelCurrent = sListLabelFile
Else
' mantengo l'accesso a quello di default
@@ -281,6 +283,8 @@ Friend Module OptionModule
m_VisibilityBtnDesign = If(GetMainPrivateProfileInt(S_GENERAL, K_ENABLEBTNDESING, 0) = 1, Visibility.Visible, Visibility.Hidden)
m_EnableBrowse = If(GetMainPrivateProfileInt(S_REPORT, K_ENABLEREPORTBROWSE, 0) = 1, True, False)
' leggo il tipo di Bevel selezionato
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, m_bBevelUp)
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, m_bBevelDown)