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

EgtDOORCreator 2.2c1:

Browse Source 
- miglioramenti interfaccia e configurazione report.
This commit is contained in:
Nicola Pievani
2020-03-09 21:09:48 +00:00
parent 839e48fec8
commit e6042d4073
7 changed files with 78 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+3 -3
View File
@@ -247,7 +247,7 @@ Friend Module OptionModule
End If
Dim sListLabelFile As String = String.Empty
If GetMainPrivateProfileString(S_REPORT, K_REPORTFILE, "", sListLabelFile) > 0 AndAlso File.Exists(sListLabelFile) Then
If GetMainPrivateProfileString(S_REPORT, K_CURRENTREPORT, "", sListLabelFile) > 0 AndAlso File.Exists(sListLabelFile) Then
IniFile.m_sListLabelCurrent = sListLabelFile
Else
' mantengo l'accesso a quello di default
@@ -281,9 +281,9 @@ Friend Module OptionModule
m_DeleteProject = If(GetMainPrivateProfileInt(S_GENERAL, K_DELETEPROJECT, 0) = 1, True, False)
m_VisibilityBtnDesign = If(GetMainPrivateProfileInt(S_GENERAL, K_ENABLEBTNDESING, 0) = 1, Visibility.Visible, Visibility.Hidden)
m_VisibilityBtnDesign = If(GetMainPrivateProfileInt(S_REPORT, K_REPORTDESIGNER, 0) = 1, Visibility.Visible, Visibility.Hidden)
m_EnableBrowse = If(GetMainPrivateProfileInt(S_REPORT, K_ENABLEREPORTBROWSE, 0) = 1, True, False)
m_EnableBrowse = If(GetMainPrivateProfileInt(S_REPORT, K_TEMPLATEBROWSER, 0) = 1, True, False)
' leggo il tipo di Bevel selezionato
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, m_bBevelUp)