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

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -71,6 +71,10 @@ Public Class usrCntlKundenuebersicht
         Catch ex As Exception
 
         End Try
+        Me.DoubleBuffered = True
+        SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
+        UpdateStyles()
+
     End Sub
 
 
@@ -83,6 +87,9 @@ Public Class usrCntlKundenuebersicht
 
         End Try
 
+        Me.DoubleBuffered = True
+        SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
+        UpdateStyles()
     End Sub
     Private Sub initCboKd()
 

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -26,6 +26,10 @@ Public Class usrcntlKundeBearbeitenFull
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
         loadControls()
+        Me.DoubleBuffered = True
+        SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
+        UpdateStyles()
+
     End Sub
     Sub New(kdnr)
         InitializeComponent()
@@ -34,6 +38,10 @@ Public Class usrcntlKundeBearbeitenFull
         'If kdnr > 0 Then
         '    init(kdnr)
         'End If
+        Me.DoubleBuffered = True
+        SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
+        UpdateStyles()
+
     End Sub
 
 

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

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -1,6 +1,7 @@
 Imports System.Drawing
 Imports System.IO
 Imports System.Net.Mail
+Imports System.Reflection
 Imports System.Text
 Imports System.Windows.Forms
 Imports ClosedXML.Excel
@@ -94,7 +95,11 @@ Public Class cProgramFunctions
 
     End Function
 
+    Public Shared Sub SetDoubleBuffered([Control] As Control)
+        [Control].GetType().InvokeMember("DoubleBuffered", BindingFlags.SetProperty Or
+BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object() {True})
 
+    End Sub
     Public Shared Function fktEuroKurs(varVonWährung As Object, Rechnungsdatum As Date) As Object 'Funktioniert nciht mit datum!!!!!!!!!!!!!!!!!!!
         '(FixeTaxe, "ATS", RECHNUNG.Währungscode)
         'Dim varVonWährung As Object