diff --git a/app/DD-Record-Organiser/frmForm_Constructor_Main.Designer.vb b/app/DD-Record-Organiser/frmForm_Constructor_Main.Designer.vb index c1847c2..f2941b8 100644 --- a/app/DD-Record-Organiser/frmForm_Constructor_Main.Designer.vb +++ b/app/DD-Record-Organiser/frmForm_Constructor_Main.Designer.vb @@ -173,7 +173,7 @@ Partial Class frmForm_Constructor_Main Me.GridControlMain.Location = New System.Drawing.Point(0, 0) Me.GridControlMain.MainView = Me.grvwTiles Me.GridControlMain.Name = "GridControlMain" - Me.GridControlMain.Size = New System.Drawing.Size(779, 270) + Me.GridControlMain.Size = New System.Drawing.Size(786, 270) Me.GridControlMain.TabIndex = 0 Me.GridControlMain.UseEmbeddedNavigator = True Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwCarousel, Me.grvwTiles, Me.grvwGrid}) @@ -265,11 +265,13 @@ Partial Class frmForm_Constructor_Main 'grvwTiles ' Me.grvwTiles.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.HotFlat + Me.grvwTiles.FocusBorderColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) Me.grvwTiles.GridControl = Me.GridControlMain Me.grvwTiles.Name = "grvwTiles" Me.grvwTiles.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.grvwTiles.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.grvwTiles.OptionsBehavior.ReadOnly = True + Me.grvwTiles.OptionsFind.AlwaysVisible = True Me.grvwTiles.OptionsTiles.IndentBetweenGroups = 8 Me.grvwTiles.OptionsTiles.ItemSize = New System.Drawing.Size(300, 145) Me.grvwTiles.OptionsTiles.RowCount = 2 @@ -425,7 +427,7 @@ Partial Class frmForm_Constructor_Main Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripEdit) Me.SplitContainerBottom.Panel1.Text = "Panel1" Me.SplitContainerBottom.Panel2.Text = "Panel2" - Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 365) + Me.SplitContainerBottom.Size = New System.Drawing.Size(1074, 372) Me.SplitContainerBottom.SplitterPosition = 448 Me.SplitContainerBottom.TabIndex = 0 Me.SplitContainerBottom.Text = "SplitContainerControl1" @@ -441,7 +443,7 @@ Partial Class frmForm_Constructor_Main Me.TCDetails.Location = New System.Drawing.Point(0, 25) Me.TCDetails.Name = "TCDetails" Me.TCDetails.SelectedTabPage = Me.TabDetails - Me.TCDetails.Size = New System.Drawing.Size(1062, 340) + Me.TCDetails.Size = New System.Drawing.Size(1069, 347) Me.TCDetails.TabIndex = 1 Me.TCDetails.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabDetails, Me.TabWindream, Me.TabFollowUp}) ' @@ -450,7 +452,7 @@ Partial Class frmForm_Constructor_Main Me.TabDetails.Controls.Add(Me.pnlDetails) Me.TabDetails.Image = Global.DD_Record_Organiser.My.Resources.Resources.grid_Data_16xMD Me.TabDetails.Name = "TabDetails" - Me.TabDetails.Size = New System.Drawing.Size(1060, 312) + Me.TabDetails.Size = New System.Drawing.Size(1063, 316) Me.TabDetails.Text = "Detailansicht" ' 'pnlDetails @@ -458,7 +460,7 @@ Partial Class frmForm_Constructor_Main Me.pnlDetails.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlDetails.Location = New System.Drawing.Point(0, 0) Me.pnlDetails.Name = "pnlDetails" - Me.pnlDetails.Size = New System.Drawing.Size(1060, 312) + Me.pnlDetails.Size = New System.Drawing.Size(1063, 316) Me.pnlDetails.TabIndex = 0 ' 'TabWindream @@ -691,7 +693,7 @@ Partial Class frmForm_Constructor_Main Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEditMode, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks}) Me.ToolStripEdit.Location = New System.Drawing.Point(0, 0) Me.ToolStripEdit.Name = "ToolStripEdit" - Me.ToolStripEdit.Size = New System.Drawing.Size(1062, 25) + Me.ToolStripEdit.Size = New System.Drawing.Size(1069, 25) Me.ToolStripEdit.TabIndex = 0 Me.ToolStripEdit.Text = "ToolStrip1" ' diff --git a/app/DD-Record-Organiser/frmForm_Constructor_Main.vb b/app/DD-Record-Organiser/frmForm_Constructor_Main.vb index 89d7709..5ce17f4 100644 --- a/app/DD-Record-Organiser/frmForm_Constructor_Main.vb +++ b/app/DD-Record-Organiser/frmForm_Constructor_Main.vb @@ -2289,4 +2289,61 @@ Public Class frmForm_Constructor_Main End Sub + Private Sub frmForm_Constructor_Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Me.BringToFront() + ' LoadLayouts() + Load_Level1() + Jump_Record() + End Sub + Sub Jump_Record() + Try + If JUMP_RECORD_ID > 0 Then + Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID) + Dim FormID = ClassDatabase.Execute_Scalar(sql, True) + If FormID > 0 Then + Dim n As TreeNode + For Each n In TreeViewMain.Nodes + CheckNode(n, FormID) + Next + End If + End If + Catch ex As Exception + MsgBox("Unexpected error in jump-Record: " & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub CheckNode(ByVal n As TreeNode, FormID As Integer) + Dim aNode As TreeNode + + For Each aNode In n.Nodes + If aNode.Tag = FormID Then + 'Gefunden also selektieren + TreeViewMain.SelectedNode = aNode + TreeViewMain.Select() + Exit Sub + End If + CheckNode(aNode, FormID) + Next + End Sub + Sub Load_Level1() + Try + Dim sql As String = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & CONSTRUCTORID & " ORDER BY SEQUENCE" + Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) + + If Not IsNothing(dt) Then + If dt.Rows.Count >= 1 Then + Dim tn As TreeNode = TreeViewMain.Nodes(0) + TreeViewMain.SelectedNode = tn + TreeViewMain.Select() + End If + End If + Catch ex As Exception + MsgBox("Error in Load_Level1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + + ' Call the procedure using the top nodes of the treeview. + Private Sub CallRecursive(ByVal aTreeView As TreeView) + + End Sub End Class \ No newline at end of file