neu

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -37,6 +37,9 @@ Public Class frmMessenger
         TimerNEW_MESSAGE.Enabled = True
         intiDGVChats()
 
+        If My.Application.Info.AssemblyName = "SDL" Then
+            lbl.Text = "CHAT"
+        End If
         MyFlowLayoutPanel1.Controls.Clear()
         'loaded = True
     End Sub
@@ -59,6 +62,7 @@ Public Class frmMessenger
             .Columns("ungelesen").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
             .Columns("ungelesen").DefaultCellStyle.Font = New Font(.Font.FontFamily, 7, FontStyle.Bold)
 
+            dgvChats.GetOrder()
             Dim loadedTmp = loaded
             If Not reloadChat Then
                 loaded = False
@@ -88,7 +92,8 @@ Public Class frmMessenger
                 End If
 
             End If
-
+            dgvChats.SetOrder()
+            If dgvChats.SelectedRows.Count > 0 Then dgvChats.FirstDisplayedCell = dgvChats.SelectedRows(0).Cells("chat_name")
             'dgvChats.ClearSelection()
             'SplitContainer1.Enabled = False