AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 24.08

Browse Source
This commit is contained in:
JenneJ
2016-08-24 15:06:55 +02:00
parent 08a93d1338
commit 8cac2cf09e
4 changed files with 128 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@@ -386,7 +386,7 @@ Public Class frmConstructor_Main
If ACT_EBENE_STRING Is Nothing Then
Exit Sub
End If
Dim XMLPath = Get_DocGRid_Layout_Filename()
GridViewDoc_Search.SaveLayoutToXml(XMLPath)
' Update_Status_Label(True, "Grid Layout Loaded")
@@ -464,7 +464,7 @@ Public Class frmConstructor_Main
settings.Add(New ClassSetting("SplitViewTopSplitterPosition", SplitContainerTop.SplitterPosition))
settings.Add(New ClassSetting("SplitViewMainSplitterPosition", SplitContainer1.SplitterPosition))
End If
layout.Save(settings)
Catch ex As Exception
MsgBox("Error in Save_Splitter_Layout:" & vbNewLine & ex.Message)
@@ -1600,7 +1600,7 @@ Public Class frmConstructor_Main
Catch ex As Exception
MsgBox("Unexpected Error in Load TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Create_variable_node()
@@ -2038,21 +2038,21 @@ Public Class frmConstructor_Main
End If
If RIGHT_CONTROL_CHANGED = True Then
Dim msg = MSG_RIGHTMODULE_DE
If USER_LANGUAGE <> "de-DE" Then
msg = MSG_RIGHTMODULE_EN_US
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.No Then
RIGHT_CONTROL_CHANGED = False
RECORD_CHANGED = False
DisableEditMode()
Show_Selected_Record_Data(SELECTED_RECORD_ID, False)
Return True
End If
End If
'If RIGHT_CONTROL_CHANGED = True Then
' Dim msg = MSG_RIGHTMODULE_DE
' If USER_LANGUAGE <> "de-DE" Then
' msg = MSG_RIGHTMODULE_EN_US
' End If
' Dim result As MsgBoxResult
' result = MessageBox.Show(msg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
' If result = MsgBoxResult.No Then
' RIGHT_CONTROL_CHANGED = False
' RECORD_CHANGED = False
' DisableEditMode()
' Show_Selected_Record_Data(SELECTED_RECORD_ID, False)
' Return True
' End If
'End If
If TrySave_User() = False Then
@@ -2062,6 +2062,7 @@ Public Class frmConstructor_Main
Else
If CtrlCommandUI.IsInsert Then
ActivateAllTabs()
DisableEditMode()
End If
End If
@@ -2246,7 +2247,7 @@ Public Class frmConstructor_Main
'End If
If TrySave_Automatic() = True Then
DisableEditMode()
End If
End If
End Sub
@@ -5714,7 +5715,7 @@ Public Class frmConstructor_Main
End Try
End If
End If
End If
End Sub