jj 25.01.17

This commit is contained in:
JenneJ 2017-01-25 14:15:23 +01:00
parent 64ef01a393
commit cc14455a78
3 changed files with 642 additions and 932 deletions

View File

@ -24,9 +24,9 @@ Partial Class frmConstructor_Main
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConstructor_Main))
Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl()
Me.SplitContainerTop = New DevExpress.XtraEditors.SplitContainerControl()
Me.TreeViewMain = New System.Windows.Forms.TreeView()
@ -197,10 +197,10 @@ Partial Class frmConstructor_Main
Me.docCM_DeleteFile = New System.Windows.Forms.ToolStripMenuItem()
Me.docCM_RemoveLink = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.docCM_ResetView = New System.Windows.Forms.ToolStripMenuItem()
Me.docCM_showGridSearch = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator()
Me.docCM_PropertiesFile = New System.Windows.Forms.ToolStripMenuItem()
Me.docCM_ResetView = New System.Windows.Forms.ToolStripMenuItem()
Me.NavPane = New DevExpress.XtraBars.Navigation.TileNavPane()
Me.NavButtonHome = New DevExpress.XtraBars.Navigation.NavButton()
Me.NavButtonRefresh = New DevExpress.XtraBars.Navigation.NavButton()
@ -415,12 +415,12 @@ Partial Class frmConstructor_Main
Me.GridControlMain.AllowDrop = True
Me.GridControlMain.ContextMenuStrip = Me.ContextMenuGrid
resources.ApplyResources(Me.GridControlMain, "GridControlMain")
GridLevelNode4.LevelTemplate = Me.grvwGrid
GridLevelNode4.RelationName = "Level1"
GridLevelNode5.LevelTemplate = Me.grvwCarousel
GridLevelNode5.RelationName = "Level2"
GridLevelNode6.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4, GridLevelNode5, GridLevelNode6})
GridLevelNode1.LevelTemplate = Me.grvwGrid
GridLevelNode1.RelationName = "Level1"
GridLevelNode2.LevelTemplate = Me.grvwCarousel
GridLevelNode2.RelationName = "Level2"
GridLevelNode3.RelationName = "Level3"
Me.GridControlMain.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1, GridLevelNode2, GridLevelNode3})
Me.GridControlMain.MainView = Me.grvwTiles
Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGrid, Me.grvwCarousel, Me.grvwTiles})
@ -1380,11 +1380,6 @@ Partial Class frmConstructor_Main
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
resources.ApplyResources(Me.ToolStripSeparator9, "ToolStripSeparator9")
'
'docCM_ResetView
'
Me.docCM_ResetView.Name = "docCM_ResetView"
resources.ApplyResources(Me.docCM_ResetView, "docCM_ResetView")
'
'docCM_showGridSearch
'
resources.ApplyResources(Me.docCM_showGridSearch, "docCM_showGridSearch")
@ -1401,6 +1396,11 @@ Partial Class frmConstructor_Main
Me.docCM_PropertiesFile.Name = "docCM_PropertiesFile"
resources.ApplyResources(Me.docCM_PropertiesFile, "docCM_PropertiesFile")
'
'docCM_ResetView
'
Me.docCM_ResetView.Name = "docCM_ResetView"
resources.ApplyResources(Me.docCM_ResetView, "docCM_ResetView")
'
'NavPane
'
Me.NavPane.ButtonPadding = New System.Windows.Forms.Padding(12)

File diff suppressed because it is too large Load Diff

View File

@ -218,6 +218,7 @@ Public Class frmConstructor_Main
' Exit Sub
' End Try
'End If
If TrySave_Automatic() = False Then
e.Cancel = True