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

Messages

Browse Source
This commit is contained in:
d.breimaier
2026-01-28 17:43:29 +01:00
parent 8b5be9ac14
commit 25a49a4f86
2 changed files with 19 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -160,39 +160,6 @@ Public Class frmMessenger
End If
End Sub
'Sub initEmojisTEST()
' FlowLayoutPanel.Controls.Clear()
' If alloweasteregg Then pic.Visible = False
' If System.IO.Directory.Exists(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\") Then
' Dim EmojiPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "CHAT_EMOJIS\"
' If Not System.IO.Directory.Exists(EmojiPath) Then System.IO.Directory.CreateDirectory(EmojiPath)
' If VERAG_PROG_ALLGEMEIN.cProgrammeUpdate.copyProgramLIST(DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\", EmojiPath, {}) Then
' For Each a In System.IO.Directory.GetFiles(EmojiPath) '.OrderBy(Function(f) f)
' If alloweasteregg Or Not a.Contains("easteregg") Then
' If System.IO.File.Exists(a) And a.Contains(".png") And a.Contains("emoji_") Then
' Dim p As New PictureBox
' p.Size = New Size(40, 40)
' p.BackgroundImage = Image.FromFile(a)
' p.BackgroundImageLayout = ImageLayout.Zoom
' p.Cursor = Cursors.Hand
' AddHandler p.Click, Sub()
' If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
' If CHAT IsNot Nothing Then
' saveEmoji(a)
' End If
' End Sub
' FlowLayoutPanel.Controls.Add(p)
' End If
' End If
' Next
' End If
' End If
'End Sub
Sub intiDGVChats(Optional dgv_ChatID = -1, Optional reloadChat = True, Optional selFirst = False)