jj 09.06

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
         '

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>

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