Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -31,14 +31,10 @@ Public Class frmMessenger
         Me.DoubleBuffered = True
         SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
         UpdateStyles()
-
+        VERAG_PROG_ALLGEMEIN.cProgramFunctions.SetDoubleBuffered(MyFlowLayoutPanel1)
     End Sub
 
-    Public Sub SetDoubleBuffered([Control] As Control)
-        [Control].GetType().InvokeMember("DoubleBuffered", BindingFlags.SetProperty Or
-BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object() {True})
 
-    End Sub
 
     Sub initEMOJI_PATH()
 
@@ -90,7 +86,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
 
     Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
         initEMOJI_PATH()
-        SetDoubleBuffered(MyFlowLayoutPanel1)
+        VERAG_PROG_ALLGEMEIN.cProgramFunctions.SetDoubleBuffered(MyFlowLayoutPanel1)
         rtbChatMessage.AllowDrop = True
         MSG_LISTENDER.START()
         TimerNEW_MESSAGE.Enabled = True
@@ -461,6 +457,8 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
         Try
             lblChatName.Text = "-"
             '    Dim scrollMax = (MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum)
+            MyFlowLayoutPanel1.SuspendLayout()
+            MyFlowLayoutPanel1.Visible = False
             MyFlowLayoutPanel1.Controls.Clear()
             If CHAT IsNot Nothing Then
                 CHAT.READ_ALL_MESSAGES()
@@ -472,8 +470,11 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
                 'MyFlowLayoutPanel1.AutoScrollPosition = New Point(MyFlowLayoutPanel1.Width, MyFlowLayoutPanel1.Height)
                 '  If MyFlowLayoutPanel1.Controls.Count > 0 Then MyFlowLayoutPanel1.ScrollControlIntoView(MyFlowLayoutPanel1.Controls(MyFlowLayoutPanel1.Controls.Count - 1))
 
+                MyFlowLayoutPanel1.ResumeLayout()
                 '  If scrollMax Then
+                MyFlowLayoutPanel1.Visible = True
                 MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum
+                MyFlowLayoutPanel1.Refresh()
 
                 If CHAT.chat_name <> "" Then 'GRUPPENCHAT
                     lblChatName.Text = CHAT.chat_name