MS1

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"
         '

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