MS1
This commit is contained in:
SchreiberM
parent
76c59a5d0d
commit
0a5ce24511
@ -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"
|
||||
'
|
||||
|
||||
@ -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
|
||||
Loading…
x
Reference in New Issue
Block a user