jj 09.06

2016-06-09 15:52:25 +02:00 · 2016-06-09 15:52:25 +02:00 · 70bf274971
commit 70bf274971
parent af27d8f335
3 changed files with 29 additions and 26 deletions
--- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
+++ b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb
@ -492,6 +492,7 @@ Partial Class frmConstructor_Main
        Me.GridViewDoc_Search.OptionsBehavior.Editable = False
        Me.GridViewDoc_Search.OptionsBehavior.ReadOnly = True
        Me.GridViewDoc_Search.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDoc_Search.OptionsView.ColumnAutoWidth = False
        Me.GridViewDoc_Search.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
        Me.GridViewDoc_Search.OptionsView.ShowIndicator = False
        '
--- a/app/DD-Record-Organiser/frmConstructor_Main.resx
+++ b/app/DD-Record-Organiser/frmConstructor_Main.resx
@ -310,7 +310,7 @@
    <value>0, 0</value>
  </data>
  <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
-    <value>788, 248</value>
+    <value>795, 248</value>
  </data>
  <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -379,7 +379,7 @@
    <value>0, 0</value>
  </data>
  <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 334</value>
+    <value>1077, 338</value>
  </data>
  <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -397,7 +397,7 @@
    <value>0</value>
  </data>
  <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 334</value>
+    <value>1077, 338</value>
  </data>
  <data name="TabDetails.Text" xml:space="preserve">
    <value>Detailansicht</value>
@ -415,7 +415,7 @@
    <value>0</value>
  </data>
  <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1083, 362</value>
+    <value>1083, 369</value>
  </data>
  <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -475,7 +475,7 @@
    <value>192, 255, 192</value>
  </data>
  <data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 309</value>
+    <value>1077, 313</value>
  </data>
  <data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
    <value>7</value>
@ -536,7 +536,7 @@
    <value>0, 0</value>
  </data>
  <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 25</value>
+    <value>1077, 25</value>
  </data>
  <data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@ -557,7 +557,7 @@
    <value>1</value>
  </data>
  <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 334</value>
+    <value>1077, 338</value>
  </data>
  <data name="TabWindream.Text" xml:space="preserve">
    <value>windream-Dateien</value>
@ -988,7 +988,7 @@
    <value>2</value>
  </data>
  <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 334</value>
+    <value>1077, 338</value>
  </data>
  <data name="TabFollowUp.Text" xml:space="preserve">
    <value>Wiedervorlage</value>
@ -1015,7 +1015,7 @@
    <value>Cyan</value>
  </data>
  <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 309</value>
+    <value>1077, 313</value>
  </data>
  <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -1039,7 +1039,7 @@
    <value>0, 25</value>
  </data>
  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 309</value>
+    <value>1077, 313</value>
  </data>
  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@ -1214,7 +1214,7 @@
    <value>0, 0</value>
  </data>
  <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 25</value>
+    <value>1077, 25</value>
  </data>
  <data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -1243,7 +1243,7 @@
 </value>
  </data>
  <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1081, 334</value>
+    <value>1077, 338</value>
  </data>
  <data name="TabPos.Text" xml:space="preserve">
    <value>Positionen</value>
--- a/app/DD-Record-Organiser/frmConstructor_Main.vb
+++ b/app/DD-Record-Organiser/frmConstructor_Main.vb
@ -1157,7 +1157,7 @@ Public Class frmConstructor_Main
        Catch ex As Exception
            MsgBox("Unexpected Error in Load_Tree_View_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
-      
+
    End Sub

    Sub Get_RecordCounts_Nodes()
@ -3125,7 +3125,7 @@ Public Class frmConstructor_Main
 #Region "WindreamSuche"
    Private Function Check_windream_Show(FORM_VIEW_ID As Integer)
        Try
-           
+
            'Dim sql = "SELECT * FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND GUID = " & FORM_VIEW_ID
            'Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql)
            Dim wdsearch = DT_TBPMO_FORM_VIEW.Rows(0).Item("WINDREAM_SEARCH")
@ -3689,7 +3689,7 @@ Public Class frmConstructor_Main
                colPath.Caption = "Fullpath"
                DTGrid.Columns.Add(colPath)

-  
+
                If Not DT_WINDREAM_RESULTLIST Is Nothing And DT_WINDREAM_RESULTLIST.Rows.Count = 1 Then
                    Dim ColCount As Integer = 1
                    For Each Column As DataColumn In DT_WINDREAM_RESULTLIST.Columns
@ -3815,8 +3815,10 @@ Public Class frmConstructor_Main
                    End If
                    Dim Width = DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
                    If Not IsNothing(Width) And Not IsDBNull(Width) Then
-                        GridViewDoc_Search.Columns.Item(rowvalue). = Width
-
+                        Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rowvalue), DevExpress.XtraGrid.Columns.GridColumn)
+                        column.Width = Width
+                        Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
+                        Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
                    End If
                Next
            End If
@ -5365,13 +5367,6 @@ Public Class frmConstructor_Main
        Column_Row_Handler()
    End Sub

-    Private Sub pnlDetails_MouseHover(sender As Object, e As EventArgs) Handles pnlDetails.MouseHover
-        If pnlDetails.Focus = False Then
-            pnlDetails.Focus()
-            Console.WriteLine("Focus panel")
-        End If
-    End Sub
-
    Private Sub tsbtnRedo_Click(sender As Object, e As EventArgs) Handles tsbtnRedo.Click
        Me.Cursor = Cursors.WaitCursor
        Dim proc = String.Format("EXEC PRPMO_REDO_RECORD_CHANGES {0}", RECORD_ID)
@ -5570,12 +5565,19 @@ Public Class frmConstructor_Main
                    Continue For
                End If
                If rowvalue = colNameGrid Then
-                    Dim update = String.Format("UPDATE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG SET {0}_WIDTH = {1} WHERE GUID = {2}", col.ColumnName, e.Column.Width, USER_RESULTLIST_CONFIG_GUID)
+                    Dim update = String.Format("UPDATE TBPMO_USER_WINDREAM_RESULTLIST_CONFIG SET {0}_WIDTH = {1} WHERE GUID = {2}", col.ColumnName, e.Column.VisibleWidth, USER_RESULTLIST_CONFIG_GUID)
                    ClassDatabase.Execute_non_Query(update)
                    Exit For
                End If
            Next
-        
+            If USER_RESULTLIST_CONFIG_GUID > 0 Then
+                'DT_WINDREAM_RESULTLIST zu USER NEU LADEN
+
+                Dim sql_ResultList = "select * from TBPMO_USER_WINDREAM_RESULTLIST_CONFIG where USER_ID = " & USER_GUID & " AND CONSTRUCTOR_DETAIL_ID = " & CONSTRUCTOR_DETAIL_ID
+                Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_ResultList, "GET USER_RESULTLIST KONFIG")
+                DT_WINDREAM_RESULTLIST = DT
+
+            End If
        Catch ex As Exception
            ClassLogger.Add(">> Unexpected Error in ColumnWidth-Change DocResult: " & ex.Message, False)
        End Try