edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chat

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-03-08 21:13:52 +01:00
parent 31d8c5cb77
commit 1e6760d380
2 changed files with 252 additions and 251 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -458,6 +458,7 @@ Public Class frmMessenger
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()
@@ -469,11 +470,11 @@ Public Class frmMessenger
'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.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum - 1
MyFlowLayoutPanel1.Visible = True
MyFlowLayoutPanel1.VerticalScroll.Value = MyFlowLayoutPanel1.VerticalScroll.Maximum
MyFlowLayoutPanel1.Refresh()
If CHAT.chat_name <> "" Then 'GRUPPENCHAT
lblChatName.Text = CHAT.chat_name