Messenger Bugfix, Mahnungen für Verag360, etc.
This commit is contained in:
@@ -24,6 +24,7 @@ Partial Class frmMessenger
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
@@ -38,12 +39,12 @@ Partial Class frmMessenger
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
|
||||
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
|
||||
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Panel6 = New System.Windows.Forms.Panel()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
|
||||
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
|
||||
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
|
||||
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.Panel5 = New System.Windows.Forms.Panel()
|
||||
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
@@ -64,7 +65,7 @@ Partial Class frmMessenger
|
||||
Me.btnNeu = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
|
||||
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
|
||||
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.btnTeilnehmer = New System.Windows.Forms.Button()
|
||||
@@ -92,9 +93,9 @@ Partial Class frmMessenger
|
||||
Me.btnSendAtt = New System.Windows.Forms.Button()
|
||||
Me.btnSenden = New System.Windows.Forms.Button()
|
||||
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
|
||||
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
|
||||
Me.Timer_REFRESH = New System.Windows.Forms.Timer()
|
||||
Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
|
||||
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
|
||||
@@ -5,7 +5,6 @@ Imports System.Security.Policy
|
||||
Imports System.Threading
|
||||
Imports System.Web.UI.WebControls.WebParts
|
||||
Imports System.Windows.Forms
|
||||
Imports Util
|
||||
Imports VERAG_PROG_ALLGEMEIN.cMessenger
|
||||
|
||||
Public Class frmMessenger
|
||||
@@ -21,6 +20,7 @@ Public Class frmMessenger
|
||||
Public SendungID As Integer = -1
|
||||
|
||||
Dim alloweasteregg = False
|
||||
Dim hiddemEmojis = False
|
||||
|
||||
Dim toggle_CHAT_ART = "CHAT"
|
||||
Public Sub New()
|
||||
@@ -123,6 +123,7 @@ Public Class frmMessenger
|
||||
MyFlowLayoutPanel1.Controls.Clear()
|
||||
'loaded = True
|
||||
alloweasteregg = cAllgemein.MITARBEITER.mit_ChatEasteregg
|
||||
hiddemEmojis = cAllgemein.MITARBEITER.mit_ChatEasteregg2
|
||||
initEmojis()
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
|
||||
End Sub
|
||||
@@ -131,8 +132,6 @@ Public Class frmMessenger
|
||||
FlowLayoutPanel.Controls.Clear()
|
||||
If alloweasteregg Then pic.Visible = False
|
||||
|
||||
|
||||
|
||||
' If IO.Directory.Exists(My.Application.roo "") Then
|
||||
|
||||
Dim spezialEmoji = False
|
||||
@@ -140,24 +139,27 @@ Public Class frmMessenger
|
||||
|
||||
If IO.Directory.Exists(EMOJI_PATH) Then
|
||||
For Each aa In IO.Directory.GetFiles(EMOJI_PATH) '.OrderBy(Function(f) f)
|
||||
If alloweasteregg Or Not aa.Contains("easteregg") Then
|
||||
If (alloweasteregg Or Not aa.Contains("easteregg")) Then
|
||||
If IO.File.Exists(aa) And aa.Contains(".png") And (aa.Contains("emoji_") Or spezialEmoji) Then
|
||||
If hiddemEmojis Or Not aa.Contains("_hidden") Then
|
||||
Dim p As New PictureBox
|
||||
p.Size = New Size(40, 40)
|
||||
p.BackgroundImage = Image.FromFile(aa)
|
||||
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(aa)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Dim p As New PictureBox
|
||||
p.Size = New Size(40, 40)
|
||||
p.BackgroundImage = Image.FromFile(aa)
|
||||
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(aa)
|
||||
End If
|
||||
End Sub
|
||||
FlowLayoutPanel.Controls.Add(p)
|
||||
End If
|
||||
|
||||
FlowLayoutPanel.Controls.Add(p)
|
||||
End If
|
||||
End If
|
||||
|
||||
'MsgBox(a)
|
||||
Next
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user