TvSettingsNew

Aviso/App.config

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <configSections>
         <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@@ -71,6 +71,26 @@
         <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
         <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
       </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.1.2" newVersion="4.0.1.2" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.1.4.0" newVersion="4.1.4.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.0" newVersion="4.2.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-10.7.21.0" newVersion="10.7.21.0" />
+      </dependentAssembly>
     </assemblyBinding>
   </runtime>
 </configuration>

Aviso/Aviso.vbproj

@@ -964,6 +964,12 @@
     <Compile Include="frmTv.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmTvSettings.Designer.vb">
+      <DependentUpon>frmTvSettings.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmTvSettings.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmWarenbezeichnungBegriffe.Designer.vb">
       <DependentUpon>frmWarenbezeichnungBegriffe.vb</DependentUpon>
     </Compile>
@@ -1414,6 +1420,9 @@
     <EmbeddedResource Include="frmTv.resx">
       <DependentUpon>frmTv.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmTvSettings.resx">
+      <DependentUpon>frmTvSettings.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmWarenbezeichnungBegriffe.resx">
       <DependentUpon>frmWarenbezeichnungBegriffe.vb</DependentUpon>
     </EmbeddedResource>

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.0.5.9")>
+<Assembly: AssemblyVersion("4.0.7.0")>
-<Assembly: AssemblyFileVersion("4.0.5.9")>
+<Assembly: AssemblyFileVersion("4.0.7.0")>

Aviso/frmEintragTvNew.Designer.vb

@@ -15,48 +15,80 @@ Partial Class frmEintragTvNew
 
     Private components As System.ComponentModel.IContainer
 
+    ' Deklaration der Steuerelemente
+    Friend WithEvents cbxStandort As ComboBox
+    Friend WithEvents lblStandort As Label
+    Friend WithEvents dgvAVISOTV As DataGridView
+    Friend WithEvents grpEingabe As GroupBox
+    Friend WithEvents lblNeueTvTextBezeichnung As Label
+    Friend WithEvents txtNeueTvTextBezeichnung As TextBox
+    Friend WithEvents chkIsActive As CheckBox
+    Friend WithEvents chkIsRecurring As CheckBox
+    Friend WithEvents grpWochentage As GroupBox
+    Friend WithEvents chkSunday As CheckBox
+    Friend WithEvents chkSaturday As CheckBox
+    Friend WithEvents chkFriday As CheckBox
+    Friend WithEvents chkThursday As CheckBox
+    Friend WithEvents chkWednesday As CheckBox
+    Friend WithEvents chkTuesday As CheckBox
+    Friend WithEvents chkMonday As CheckBox
+    Friend WithEvents dtpEndTime As DateTimePicker
+    Friend WithEvents lblEndTime As Label
+    Friend WithEvents dtpStartTime As DateTimePicker
+    Friend WithEvents lblStartTime As Label
+    Friend WithEvents dtpEndDate As DateTimePicker
+    Friend WithEvents lblEndDate As Label
+    Friend WithEvents dtpStartDate As DateTimePicker
+    Friend WithEvents lblStartDate As Label
+    Friend WithEvents lblZeile1 As Label
+    Friend WithEvents cmbTvTextBezeichnungAuswahl As ComboBox
+    Friend WithEvents lblBezeichnung As Label
+    Friend WithEvents lblPosition As Label
+    Friend WithEvents cmbPosition As ComboBox
+    Friend WithEvents btnSpeichern As Button
+    Friend WithEvents btnLoeschen As Button
+    Friend WithEvents btnAbbrechen As Button
+    Friend WithEvents chkShowInactive As CheckBox
+
     ' Neue Komponenten für Textformatierung
-    Private WithEvents btnBold As Button
+    Friend WithEvents btnBold As Button
-    Private WithEvents btnItalic As Button
+    Friend WithEvents btnItalic As Button
-    Private WithEvents btnUnderline As Button
+    Friend WithEvents btnUnderline As Button
-    Private WithEvents btnTextColor As Button
+    Friend WithEvents btnTextColor As Button
-    Private WithEvents btnBackColor As Button
+    Friend WithEvents btnBackColor As Button
-    Private WithEvents btnAlignLeft As Button
+    Friend WithEvents btnAlignLeft As Button
-    Private WithEvents btnAlignCenter As Button
+    Friend WithEvents btnAlignCenter As Button
-    Private WithEvents btnAlignRight As Button
+    Friend WithEvents btnAlignRight As Button
-    Private WithEvents cmbFontFamily As ComboBox
+    Friend WithEvents cmbFontFamily As ComboBox
-    Private WithEvents cmbFontSize As ComboBox
+    Friend WithEvents cmbFontSize As ComboBox
-    Private WithEvents colorDialogText As ColorDialog
+    Friend WithEvents colorDialogText As ColorDialog
-    Private WithEvents rtbZeile1 As RichTextBox ' Geänderte TextBox zu RichTextBox
+
+    ' TabControl und RichTextBoxen
+    Friend WithEvents tabControlZeilen As TabControl
+    Friend WithEvents tabPageZeile1 As TabPage
+    Friend WithEvents tabPageZeile2 As TabPage
+    Friend WithEvents tabPageZeile3 As TabPage
+    Friend WithEvents rtbZeile1 As RichTextBox
+    Friend WithEvents rtbZeile2 As RichTextBox
+    Friend WithEvents rtbZeile3 As RichTextBox
+
+    Friend WithEvents btnOpenSettings As Button
+
 
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.btnOpenSettings = New System.Windows.Forms.Button()
         Me.cbxStandort = New System.Windows.Forms.ComboBox()
         Me.lblStandort = New System.Windows.Forms.Label()
         Me.dgvAVISOTV = New System.Windows.Forms.DataGridView()
         Me.grpEingabe = New System.Windows.Forms.GroupBox()
-        Me.btnBold3 = New System.Windows.Forms.Button()
+        Me.tabControlZeilen = New System.Windows.Forms.TabControl()
-        Me.btnItalic3 = New System.Windows.Forms.Button()
+        Me.tabPageZeile1 = New System.Windows.Forms.TabPage()
-        Me.btnUnderline3 = New System.Windows.Forms.Button()
+        Me.rtbZeile1 = New System.Windows.Forms.RichTextBox()
-        Me.btnTextColor3 = New System.Windows.Forms.Button()
+        Me.tabPageZeile2 = New System.Windows.Forms.TabPage()
-        Me.btnBackColor3 = New System.Windows.Forms.Button()
-        Me.btnAlignLeft3 = New System.Windows.Forms.Button()
-        Me.btnAlignCenter3 = New System.Windows.Forms.Button()
-        Me.btnAlignRight3 = New System.Windows.Forms.Button()
-        Me.cmbFontFamily3 = New System.Windows.Forms.ComboBox()
-        Me.cmbFontSize3 = New System.Windows.Forms.ComboBox()
-        Me.btnBold2 = New System.Windows.Forms.Button()
-        Me.btnItalic2 = New System.Windows.Forms.Button()
-        Me.btnUnderline2 = New System.Windows.Forms.Button()
-        Me.btnTextColor2 = New System.Windows.Forms.Button()
-        Me.btnBackColor2 = New System.Windows.Forms.Button()
-        Me.btnAlignLeft2 = New System.Windows.Forms.Button()
-        Me.btnAlignCenter2 = New System.Windows.Forms.Button()
-        Me.btnAlignRight2 = New System.Windows.Forms.Button()
-        Me.cmbFontFamily2 = New System.Windows.Forms.ComboBox()
-        Me.cmbFontSize2 = New System.Windows.Forms.ComboBox()
-        Me.rtbZeile3 = New System.Windows.Forms.RichTextBox()
         Me.rtbZeile2 = New System.Windows.Forms.RichTextBox()
+        Me.tabPageZeile3 = New System.Windows.Forms.TabPage()
+        Me.rtbZeile3 = New System.Windows.Forms.RichTextBox()
         Me.lblNeueTvTextBezeichnung = New System.Windows.Forms.Label()
         Me.txtNeueTvTextBezeichnung = New System.Windows.Forms.TextBox()
         Me.chkIsActive = New System.Windows.Forms.CheckBox()
@@ -77,9 +109,6 @@ Partial Class frmEintragTvNew
         Me.lblEndDate = New System.Windows.Forms.Label()
         Me.dtpStartDate = New System.Windows.Forms.DateTimePicker()
         Me.lblStartDate = New System.Windows.Forms.Label()
-        Me.lblZeile3 = New System.Windows.Forms.Label()
-        Me.lblZeile2 = New System.Windows.Forms.Label()
-        Me.rtbZeile1 = New System.Windows.Forms.RichTextBox()
         Me.lblZeile1 = New System.Windows.Forms.Label()
         Me.cmbTvTextBezeichnungAuswahl = New System.Windows.Forms.ComboBox()
         Me.lblBezeichnung = New System.Windows.Forms.Label()
@@ -102,8 +131,21 @@ Partial Class frmEintragTvNew
         Me.colorDialogText = New System.Windows.Forms.ColorDialog()
         CType(Me.dgvAVISOTV, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.grpEingabe.SuspendLayout()
+        Me.tabControlZeilen.SuspendLayout()
+        Me.tabPageZeile1.SuspendLayout()
+        Me.tabPageZeile2.SuspendLayout()
+        Me.tabPageZeile3.SuspendLayout()
         Me.grpWochentage.SuspendLayout()
         Me.SuspendLayout()
+
+        Me.btnOpenSettings.Location = New System.Drawing.Point(15, 1010)
+        Me.btnOpenSettings.Name = "btnOpenSettings"
+        Me.btnOpenSettings.Size = New System.Drawing.Size(150, 30)
+        Me.btnOpenSettings.TabIndex = 8
+        Me.btnOpenSettings.Text = "TV Einstellungen"
+        Me.btnOpenSettings.UseVisualStyleBackColor = True
+
+
         '
         'cbxStandort
         '
@@ -138,28 +180,7 @@ Partial Class frmEintragTvNew
         '
         'grpEingabe
         '
-        Me.grpEingabe.Controls.Add(Me.btnBold3)
+        Me.grpEingabe.Controls.Add(Me.tabControlZeilen)
-        Me.grpEingabe.Controls.Add(Me.btnItalic3)
-        Me.grpEingabe.Controls.Add(Me.btnUnderline3)
-        Me.grpEingabe.Controls.Add(Me.btnTextColor3)
-        Me.grpEingabe.Controls.Add(Me.btnBackColor3)
-        Me.grpEingabe.Controls.Add(Me.btnAlignLeft3)
-        Me.grpEingabe.Controls.Add(Me.btnAlignCenter3)
-        Me.grpEingabe.Controls.Add(Me.btnAlignRight3)
-        Me.grpEingabe.Controls.Add(Me.cmbFontFamily3)
-        Me.grpEingabe.Controls.Add(Me.cmbFontSize3)
-        Me.grpEingabe.Controls.Add(Me.btnBold2)
-        Me.grpEingabe.Controls.Add(Me.btnItalic2)
-        Me.grpEingabe.Controls.Add(Me.btnUnderline2)
-        Me.grpEingabe.Controls.Add(Me.btnTextColor2)
-        Me.grpEingabe.Controls.Add(Me.btnBackColor2)
-        Me.grpEingabe.Controls.Add(Me.btnAlignLeft2)
-        Me.grpEingabe.Controls.Add(Me.btnAlignCenter2)
-        Me.grpEingabe.Controls.Add(Me.btnAlignRight2)
-        Me.grpEingabe.Controls.Add(Me.cmbFontFamily2)
-        Me.grpEingabe.Controls.Add(Me.cmbFontSize2)
-        Me.grpEingabe.Controls.Add(Me.rtbZeile3)
-        Me.grpEingabe.Controls.Add(Me.rtbZeile2)
         Me.grpEingabe.Controls.Add(Me.lblNeueTvTextBezeichnung)
         Me.grpEingabe.Controls.Add(Me.txtNeueTvTextBezeichnung)
         Me.grpEingabe.Controls.Add(Me.chkIsActive)
@@ -173,9 +194,6 @@ Partial Class frmEintragTvNew
         Me.grpEingabe.Controls.Add(Me.lblEndDate)
         Me.grpEingabe.Controls.Add(Me.dtpStartDate)
         Me.grpEingabe.Controls.Add(Me.lblStartDate)
-        Me.grpEingabe.Controls.Add(Me.lblZeile3)
-        Me.grpEingabe.Controls.Add(Me.lblZeile2)
-        Me.grpEingabe.Controls.Add(Me.rtbZeile1)
         Me.grpEingabe.Controls.Add(Me.lblZeile1)
         Me.grpEingabe.Controls.Add(Me.cmbTvTextBezeichnungAuswahl)
         Me.grpEingabe.Controls.Add(Me.lblBezeichnung)
@@ -198,202 +216,77 @@ Partial Class frmEintragTvNew
         Me.grpEingabe.TabStop = False
         Me.grpEingabe.Text = "Informationen eingeben"
         '
-        'btnBold3
+        'tabControlZeilen
         '
-        Me.btnBold3.Location = New System.Drawing.Point(100, 449)
+        Me.tabControlZeilen.Controls.Add(Me.tabPageZeile1)
-        Me.btnBold3.Name = "btnBold3"
+        Me.tabControlZeilen.Controls.Add(Me.tabPageZeile2)
-        Me.btnBold3.Size = New System.Drawing.Size(30, 30)
+        Me.tabControlZeilen.Controls.Add(Me.tabPageZeile3)
-        Me.btnBold3.TabIndex = 45
+        Me.tabControlZeilen.Location = New System.Drawing.Point(40, 100)
-        Me.btnBold3.Text = "B"
+        Me.tabControlZeilen.Name = "tabControlZeilen"
-        Me.btnBold3.UseVisualStyleBackColor = True
+        Me.tabControlZeilen.SelectedIndex = 0
+        Me.tabControlZeilen.Size = New System.Drawing.Size(1235, 332)
+        Me.tabControlZeilen.TabIndex = 35
         '
-        'btnItalic3
+        'tabPageZeile1
         '
-        Me.btnItalic3.Location = New System.Drawing.Point(140, 449)
+        Me.tabPageZeile1.Controls.Add(Me.rtbZeile1)
-        Me.btnItalic3.Name = "btnItalic3"
+        Me.tabPageZeile1.Location = New System.Drawing.Point(4, 22)
-        Me.btnItalic3.Size = New System.Drawing.Size(30, 30)
+        Me.tabPageZeile1.Name = "tabPageZeile1"
-        Me.btnItalic3.TabIndex = 46
+        Me.tabPageZeile1.Padding = New System.Windows.Forms.Padding(3)
-        Me.btnItalic3.Text = "I"
+        Me.tabPageZeile1.Size = New System.Drawing.Size(1227, 306)
-        Me.btnItalic3.UseVisualStyleBackColor = True
+        Me.tabPageZeile1.TabIndex = 0
+        Me.tabPageZeile1.Text = "Deutsch"
+        Me.tabPageZeile1.UseVisualStyleBackColor = True
         '
-        'btnUnderline3
+        'rtbZeile1
         '
-        Me.btnUnderline3.Location = New System.Drawing.Point(180, 449)
+        Me.rtbZeile1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.btnUnderline3.Name = "btnUnderline3"
+        Me.rtbZeile1.Location = New System.Drawing.Point(3, 3)
-        Me.btnUnderline3.Size = New System.Drawing.Size(30, 30)
+        Me.rtbZeile1.Name = "rtbZeile1"
-        Me.btnUnderline3.TabIndex = 47
+        Me.rtbZeile1.Size = New System.Drawing.Size(1221, 300)
-        Me.btnUnderline3.Text = "U"
+        Me.rtbZeile1.TabIndex = 0
-        Me.btnUnderline3.UseVisualStyleBackColor = True
+        Me.rtbZeile1.Text = ""
         '
-        'btnTextColor3
+        'tabPageZeile2
         '
-        Me.btnTextColor3.Location = New System.Drawing.Point(302, 449)
+        Me.tabPageZeile2.Controls.Add(Me.rtbZeile2)
-        Me.btnTextColor3.Name = "btnTextColor3"
+        Me.tabPageZeile2.Location = New System.Drawing.Point(4, 22)
-        Me.btnTextColor3.Size = New System.Drawing.Size(30, 30)
+        Me.tabPageZeile2.Name = "tabPageZeile2"
-        Me.btnTextColor3.TabIndex = 48
+        Me.tabPageZeile2.Padding = New System.Windows.Forms.Padding(3)
-        Me.btnTextColor3.Text = "A"
+        Me.tabPageZeile2.Size = New System.Drawing.Size(1227, 306)
-        Me.btnTextColor3.UseVisualStyleBackColor = True
+        Me.tabPageZeile2.TabIndex = 1
-        '
+        Me.tabPageZeile2.Text = "Englisch"
-        'btnBackColor3
+        Me.tabPageZeile2.UseVisualStyleBackColor = True
-        '
-        Me.btnBackColor3.Location = New System.Drawing.Point(342, 449)
-        Me.btnBackColor3.Name = "btnBackColor3"
-        Me.btnBackColor3.Size = New System.Drawing.Size(30, 30)
-        Me.btnBackColor3.TabIndex = 49
-        Me.btnBackColor3.Text = "BG"
-        Me.btnBackColor3.UseVisualStyleBackColor = True
-        '
-        'btnAlignLeft3
-        '
-        Me.btnAlignLeft3.Location = New System.Drawing.Point(471, 449)
-        Me.btnAlignLeft3.Name = "btnAlignLeft3"
-        Me.btnAlignLeft3.Size = New System.Drawing.Size(30, 30)
-        Me.btnAlignLeft3.TabIndex = 50
-        Me.btnAlignLeft3.Text = "L"
-        Me.btnAlignLeft3.UseVisualStyleBackColor = True
-        '
-        'btnAlignCenter3
-        '
-        Me.btnAlignCenter3.Location = New System.Drawing.Point(511, 449)
-        Me.btnAlignCenter3.Name = "btnAlignCenter3"
-        Me.btnAlignCenter3.Size = New System.Drawing.Size(30, 30)
-        Me.btnAlignCenter3.TabIndex = 51
-        Me.btnAlignCenter3.Text = "C"
-        Me.btnAlignCenter3.UseVisualStyleBackColor = True
-        '
-        'btnAlignRight3
-        '
-        Me.btnAlignRight3.Location = New System.Drawing.Point(551, 449)
-        Me.btnAlignRight3.Name = "btnAlignRight3"
-        Me.btnAlignRight3.Size = New System.Drawing.Size(30, 30)
-        Me.btnAlignRight3.TabIndex = 52
-        Me.btnAlignRight3.Text = "R"
-        Me.btnAlignRight3.UseVisualStyleBackColor = True
-        '
-        'cmbFontFamily3
-        '
-        Me.cmbFontFamily3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cmbFontFamily3.FormattingEnabled = True
-        Me.cmbFontFamily3.Location = New System.Drawing.Point(734, 449)
-        Me.cmbFontFamily3.Name = "cmbFontFamily3"
-        Me.cmbFontFamily3.Size = New System.Drawing.Size(150, 21)
-        Me.cmbFontFamily3.TabIndex = 53
-        '
-        'cmbFontSize3
-        '
-        Me.cmbFontSize3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cmbFontSize3.FormattingEnabled = True
-        Me.cmbFontSize3.Location = New System.Drawing.Point(911, 449)
-        Me.cmbFontSize3.Name = "cmbFontSize3"
-        Me.cmbFontSize3.Size = New System.Drawing.Size(60, 21)
-        Me.cmbFontSize3.TabIndex = 54
-        '
-        'btnBold2
-        '
-        Me.btnBold2.Location = New System.Drawing.Point(101, 307)
-        Me.btnBold2.Name = "btnBold2"
-        Me.btnBold2.Size = New System.Drawing.Size(30, 30)
-        Me.btnBold2.TabIndex = 35
-        Me.btnBold2.Text = "B"
-        Me.btnBold2.UseVisualStyleBackColor = True
-        '
-        'btnItalic2
-        '
-        Me.btnItalic2.Location = New System.Drawing.Point(141, 307)
-        Me.btnItalic2.Name = "btnItalic2"
-        Me.btnItalic2.Size = New System.Drawing.Size(30, 30)
-        Me.btnItalic2.TabIndex = 36
-        Me.btnItalic2.Text = "I"
-        Me.btnItalic2.UseVisualStyleBackColor = True
-        '
-        'btnUnderline2
-        '
-        Me.btnUnderline2.Location = New System.Drawing.Point(181, 307)
-        Me.btnUnderline2.Name = "btnUnderline2"
-        Me.btnUnderline2.Size = New System.Drawing.Size(30, 30)
-        Me.btnUnderline2.TabIndex = 37
-        Me.btnUnderline2.Text = "U"
-        Me.btnUnderline2.UseVisualStyleBackColor = True
-        '
-        'btnTextColor2
-        '
-        Me.btnTextColor2.Location = New System.Drawing.Point(303, 307)
-        Me.btnTextColor2.Name = "btnTextColor2"
-        Me.btnTextColor2.Size = New System.Drawing.Size(30, 30)
-        Me.btnTextColor2.TabIndex = 38
-        Me.btnTextColor2.Text = "A"
-        Me.btnTextColor2.UseVisualStyleBackColor = True
-        '
-        'btnBackColor2
-        '
-        Me.btnBackColor2.Location = New System.Drawing.Point(343, 307)
-        Me.btnBackColor2.Name = "btnBackColor2"
-        Me.btnBackColor2.Size = New System.Drawing.Size(30, 30)
-        Me.btnBackColor2.TabIndex = 39
-        Me.btnBackColor2.Text = "BG"
-        Me.btnBackColor2.UseVisualStyleBackColor = True
-        '
-        'btnAlignLeft2
-        '
-        Me.btnAlignLeft2.Location = New System.Drawing.Point(472, 307)
-        Me.btnAlignLeft2.Name = "btnAlignLeft2"
-        Me.btnAlignLeft2.Size = New System.Drawing.Size(30, 30)
-        Me.btnAlignLeft2.TabIndex = 40
-        Me.btnAlignLeft2.Text = "L"
-        Me.btnAlignLeft2.UseVisualStyleBackColor = True
-        '
-        'btnAlignCenter2
-        '
-        Me.btnAlignCenter2.Location = New System.Drawing.Point(512, 307)
-        Me.btnAlignCenter2.Name = "btnAlignCenter2"
-        Me.btnAlignCenter2.Size = New System.Drawing.Size(30, 30)
-        Me.btnAlignCenter2.TabIndex = 41
-        Me.btnAlignCenter2.Text = "C"
-        Me.btnAlignCenter2.UseVisualStyleBackColor = True
-        '
-        'btnAlignRight2
-        '
-        Me.btnAlignRight2.Location = New System.Drawing.Point(552, 307)
-        Me.btnAlignRight2.Name = "btnAlignRight2"
-        Me.btnAlignRight2.Size = New System.Drawing.Size(30, 30)
-        Me.btnAlignRight2.TabIndex = 42
-        Me.btnAlignRight2.Text = "R"
-        Me.btnAlignRight2.UseVisualStyleBackColor = True
-        '
-        'cmbFontFamily2
-        '
-        Me.cmbFontFamily2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cmbFontFamily2.FormattingEnabled = True
-        Me.cmbFontFamily2.Location = New System.Drawing.Point(735, 307)
-        Me.cmbFontFamily2.Name = "cmbFontFamily2"
-        Me.cmbFontFamily2.Size = New System.Drawing.Size(150, 21)
-        Me.cmbFontFamily2.TabIndex = 43
-        '
-        'cmbFontSize2
-        '
-        Me.cmbFontSize2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cmbFontSize2.FormattingEnabled = True
-        Me.cmbFontSize2.Location = New System.Drawing.Point(912, 307)
-        Me.cmbFontSize2.Name = "cmbFontSize2"
-        Me.cmbFontSize2.Size = New System.Drawing.Size(60, 21)
-        Me.cmbFontSize2.TabIndex = 44
-        '
-        'rtbZeile3
-        '
-        Me.rtbZeile3.Location = New System.Drawing.Point(100, 363)
-        Me.rtbZeile3.Name = "rtbZeile3"
-        Me.rtbZeile3.Size = New System.Drawing.Size(1180, 80)
-        Me.rtbZeile3.TabIndex = 34
-        Me.rtbZeile3.Text = ""
         '
         'rtbZeile2
         '
-        Me.rtbZeile2.Location = New System.Drawing.Point(101, 221)
+        Me.rtbZeile2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.rtbZeile2.Location = New System.Drawing.Point(3, 3)
         Me.rtbZeile2.Name = "rtbZeile2"
-        Me.rtbZeile2.Size = New System.Drawing.Size(1180, 80)
+        Me.rtbZeile2.Size = New System.Drawing.Size(1221, 300)
-        Me.rtbZeile2.TabIndex = 33
+        Me.rtbZeile2.TabIndex = 0
         Me.rtbZeile2.Text = ""
         '
+        'tabPageZeile3
+        '
+        Me.tabPageZeile3.Controls.Add(Me.rtbZeile3)
+        Me.tabPageZeile3.Location = New System.Drawing.Point(4, 22)
+        Me.tabPageZeile3.Name = "tabPageZeile3"
+        Me.tabPageZeile3.Padding = New System.Windows.Forms.Padding(3)
+        Me.tabPageZeile3.Size = New System.Drawing.Size(1227, 306)
+        Me.tabPageZeile3.TabIndex = 2
+        Me.tabPageZeile3.Text = "Türkisch"
+        Me.tabPageZeile3.UseVisualStyleBackColor = True
+        '
+        'rtbZeile3
+        '
+        Me.rtbZeile3.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.rtbZeile3.Location = New System.Drawing.Point(3, 3)
+        Me.rtbZeile3.Name = "rtbZeile3"
+        Me.rtbZeile3.Size = New System.Drawing.Size(1221, 300)
+        Me.rtbZeile3.TabIndex = 0
+        Me.rtbZeile3.Text = ""
+        '
         'lblNeueTvTextBezeichnung
         '
         Me.lblNeueTvTextBezeichnung.AutoSize = True
@@ -590,32 +483,6 @@ Partial Class frmEintragTvNew
         Me.lblStartDate.TabIndex = 8
         Me.lblStartDate.Text = "Startdatum: "
         '
-        'lblZeile3
-        '
-        Me.lblZeile3.AutoSize = True
-        Me.lblZeile3.Location = New System.Drawing.Point(42, 388)
-        Me.lblZeile3.Name = "lblZeile3"
-        Me.lblZeile3.Size = New System.Drawing.Size(42, 13)
-        Me.lblZeile3.TabIndex = 6
-        Me.lblZeile3.Text = "Zeile 3:"
-        '
-        'lblZeile2
-        '
-        Me.lblZeile2.AutoSize = True
-        Me.lblZeile2.Location = New System.Drawing.Point(43, 255)
-        Me.lblZeile2.Name = "lblZeile2"
-        Me.lblZeile2.Size = New System.Drawing.Size(42, 13)
-        Me.lblZeile2.TabIndex = 4
-        Me.lblZeile2.Text = "Zeile 2:"
-        '
-        'rtbZeile1
-        '
-        Me.rtbZeile1.Location = New System.Drawing.Point(100, 79)
-        Me.rtbZeile1.Name = "rtbZeile1"
-        Me.rtbZeile1.Size = New System.Drawing.Size(1180, 80)
-        Me.rtbZeile1.TabIndex = 3
-        Me.rtbZeile1.Text = ""
-        '
         'lblZeile1
         '
         Me.lblZeile1.AutoSize = True
@@ -664,7 +531,7 @@ Partial Class frmEintragTvNew
         '
         'btnBold
         '
-        Me.btnBold.Location = New System.Drawing.Point(100, 165)
+        Me.btnBold.Location = New System.Drawing.Point(40, 438)
         Me.btnBold.Name = "btnBold"
         Me.btnBold.Size = New System.Drawing.Size(30, 30)
         Me.btnBold.TabIndex = 23
@@ -673,7 +540,7 @@ Partial Class frmEintragTvNew
         '
         'btnItalic
         '
-        Me.btnItalic.Location = New System.Drawing.Point(140, 165)
+        Me.btnItalic.Location = New System.Drawing.Point(80, 438)
         Me.btnItalic.Name = "btnItalic"
         Me.btnItalic.Size = New System.Drawing.Size(30, 30)
         Me.btnItalic.TabIndex = 24
@@ -682,7 +549,7 @@ Partial Class frmEintragTvNew
         '
         'btnUnderline
         '
-        Me.btnUnderline.Location = New System.Drawing.Point(180, 165)
+        Me.btnUnderline.Location = New System.Drawing.Point(120, 438)
         Me.btnUnderline.Name = "btnUnderline"
         Me.btnUnderline.Size = New System.Drawing.Size(30, 30)
         Me.btnUnderline.TabIndex = 25
@@ -691,7 +558,7 @@ Partial Class frmEintragTvNew
         '
         'btnTextColor
         '
-        Me.btnTextColor.Location = New System.Drawing.Point(302, 165)
+        Me.btnTextColor.Location = New System.Drawing.Point(200, 438)
         Me.btnTextColor.Name = "btnTextColor"
         Me.btnTextColor.Size = New System.Drawing.Size(30, 30)
         Me.btnTextColor.TabIndex = 26
@@ -700,16 +567,16 @@ Partial Class frmEintragTvNew
         '
         'btnBackColor
         '
-        Me.btnBackColor.Location = New System.Drawing.Point(342, 165)
+        Me.btnBackColor.Location = New System.Drawing.Point(240, 438)
         Me.btnBackColor.Name = "btnBackColor"
-        Me.btnBackColor.Size = New System.Drawing.Size(30, 30)
+        Me.btnBackColor.Size = New System.Drawing.Size(50, 30)
         Me.btnBackColor.TabIndex = 27
         Me.btnBackColor.Text = "BG"
         Me.btnBackColor.UseVisualStyleBackColor = True
         '
         'btnAlignLeft
         '
-        Me.btnAlignLeft.Location = New System.Drawing.Point(471, 165)
+        Me.btnAlignLeft.Location = New System.Drawing.Point(310, 438)
         Me.btnAlignLeft.Name = "btnAlignLeft"
         Me.btnAlignLeft.Size = New System.Drawing.Size(30, 30)
         Me.btnAlignLeft.TabIndex = 28
@@ -718,7 +585,7 @@ Partial Class frmEintragTvNew
         '
         'btnAlignCenter
         '
-        Me.btnAlignCenter.Location = New System.Drawing.Point(511, 165)
+        Me.btnAlignCenter.Location = New System.Drawing.Point(350, 438)
         Me.btnAlignCenter.Name = "btnAlignCenter"
         Me.btnAlignCenter.Size = New System.Drawing.Size(30, 30)
         Me.btnAlignCenter.TabIndex = 29
@@ -727,7 +594,7 @@ Partial Class frmEintragTvNew
         '
         'btnAlignRight
         '
-        Me.btnAlignRight.Location = New System.Drawing.Point(551, 165)
+        Me.btnAlignRight.Location = New System.Drawing.Point(390, 438)
         Me.btnAlignRight.Name = "btnAlignRight"
         Me.btnAlignRight.Size = New System.Drawing.Size(30, 30)
         Me.btnAlignRight.TabIndex = 30
@@ -738,7 +605,7 @@ Partial Class frmEintragTvNew
         '
         Me.cmbFontFamily.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cmbFontFamily.FormattingEnabled = True
-        Me.cmbFontFamily.Location = New System.Drawing.Point(734, 165)
+        Me.cmbFontFamily.Location = New System.Drawing.Point(495, 438)
         Me.cmbFontFamily.Name = "cmbFontFamily"
         Me.cmbFontFamily.Size = New System.Drawing.Size(150, 21)
         Me.cmbFontFamily.TabIndex = 31
@@ -747,7 +614,7 @@ Partial Class frmEintragTvNew
         '
         Me.cmbFontSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cmbFontSize.FormattingEnabled = True
-        Me.cmbFontSize.Location = New System.Drawing.Point(911, 165)
+        Me.cmbFontSize.Location = New System.Drawing.Point(670, 438)
         Me.cmbFontSize.Name = "cmbFontSize"
         Me.cmbFontSize.Size = New System.Drawing.Size(60, 21)
         Me.cmbFontSize.TabIndex = 32
@@ -782,7 +649,7 @@ Partial Class frmEintragTvNew
         'chkShowInactive
         '
         Me.chkShowInactive.AutoSize = True
-        Me.chkShowInactive.Location = New System.Drawing.Point(230, 27)
+        Me.chkShowInactive.Location = New System.Drawing.Point(1205, 29)
         Me.chkShowInactive.Name = "chkShowInactive"
         Me.chkShowInactive.Size = New System.Drawing.Size(110, 17)
         Me.chkShowInactive.TabIndex = 1
@@ -800,6 +667,7 @@ Partial Class frmEintragTvNew
         Me.Controls.Add(Me.dgvAVISOTV)
         Me.Controls.Add(Me.lblStandort)
         Me.Controls.Add(Me.cbxStandort)
+        Me.Controls.Add(Me.btnOpenSettings)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
         Me.MaximizeBox = False
         Me.Name = "frmEintragTvNew"
@@ -808,69 +676,14 @@ Partial Class frmEintragTvNew
         CType(Me.dgvAVISOTV, System.ComponentModel.ISupportInitialize).EndInit()
         Me.grpEingabe.ResumeLayout(False)
         Me.grpEingabe.PerformLayout()
+        Me.tabControlZeilen.ResumeLayout(False)
+        Me.tabPageZeile1.ResumeLayout(False)
+        Me.tabPageZeile2.ResumeLayout(False)
+        Me.tabPageZeile3.ResumeLayout(False)
         Me.grpWochentage.ResumeLayout(False)
         Me.grpWochentage.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
-
-    Friend WithEvents cbxStandort As ComboBox
-    Friend WithEvents lblStandort As Label
-    Friend WithEvents dgvAVISOTV As DataGridView
-    Friend WithEvents grpEingabe As GroupBox
-    Friend WithEvents lblNeueTvTextBezeichnung As Label
-    Friend WithEvents txtNeueTvTextBezeichnung As TextBox
-    Friend WithEvents chkIsActive As CheckBox
-    Friend WithEvents chkIsRecurring As CheckBox
-    Friend WithEvents grpWochentage As GroupBox
-    Friend WithEvents chkSunday As CheckBox
-    Friend WithEvents chkSaturday As CheckBox
-    Friend WithEvents chkFriday As CheckBox
-    Friend WithEvents chkThursday As CheckBox
-    Friend WithEvents chkWednesday As CheckBox
-    Friend WithEvents chkTuesday As CheckBox
-    Friend WithEvents chkMonday As CheckBox
-    Friend WithEvents dtpEndTime As DateTimePicker
-    Friend WithEvents lblEndTime As Label
-    Friend WithEvents dtpStartTime As DateTimePicker
-    Friend WithEvents lblStartTime As Label
-    Friend WithEvents dtpEndDate As DateTimePicker
-    Friend WithEvents lblEndDate As Label
-    Friend WithEvents dtpStartDate As DateTimePicker
-    Friend WithEvents lblStartDate As Label
-    Friend WithEvents lblZeile3 As Label
-    Friend WithEvents lblZeile2 As Label
-    Friend WithEvents lblZeile1 As Label
-    Friend WithEvents cmbTvTextBezeichnungAuswahl As ComboBox
-    Friend WithEvents lblBezeichnung As Label
-    Friend WithEvents lblPosition As Label
-    Friend WithEvents cmbPosition As ComboBox
-    Friend WithEvents btnSpeichern As Button
-    Friend WithEvents btnLoeschen As Button
-    Friend WithEvents btnAbbrechen As Button
-    Friend WithEvents chkShowInactive As CheckBox
-    Private WithEvents rtbZeile3 As RichTextBox
-    Private WithEvents rtbZeile2 As RichTextBox
-    Private WithEvents btnBold3 As Button
-    Private WithEvents btnItalic3 As Button
-    Private WithEvents btnUnderline3 As Button
-    Private WithEvents btnTextColor3 As Button
-    Private WithEvents btnBackColor3 As Button
-    Private WithEvents btnAlignLeft3 As Button
-    Private WithEvents btnAlignCenter3 As Button
-    Private WithEvents btnAlignRight3 As Button
-    Private WithEvents cmbFontFamily3 As ComboBox
-    Private WithEvents cmbFontSize3 As ComboBox
-    Private WithEvents btnBold2 As Button
-    Private WithEvents btnItalic2 As Button
-    Private WithEvents btnUnderline2 As Button
-    Private WithEvents btnTextColor2 As Button
-    Private WithEvents btnBackColor2 As Button
-    Private WithEvents btnAlignLeft2 As Button
-    Private WithEvents btnAlignCenter2 As Button
-    Private WithEvents btnAlignRight2 As Button
-    Private WithEvents cmbFontFamily2 As ComboBox
-    Private WithEvents cmbFontSize2 As ComboBox
-
 End Class

Aviso/frmEintragTvNew.resx

@@ -117,4 +117,7 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="colorDialogText.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>

Aviso/frmTvSettings.Designer.vb

@@ -0,0 +1,286 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmTvSettings
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Die folgenden Steuerelemente werden benötigt.
+    Private WithEvents lblTileWidth As Label
+    Private WithEvents lblTileHeight As Label
+    Private WithEvents lblFontSizeLkwNummer As Label
+    Private WithEvents lblFontSizeDateTime As Label
+    Private WithEvents lblSeitenwechsel As Label
+    Private WithEvents lblTextBalkenHeight As Label ' Neues Label
+    Private WithEvents lblLogoSelection As Label ' Neues Label für Logo-Auswahl
+    Private WithEvents numTileWidth As NumericUpDown
+    Private WithEvents numTileHeight As NumericUpDown
+    Private WithEvents numFontSizeLkwNummer As NumericUpDown
+    Private WithEvents numFontSizeDateTime As NumericUpDown
+    Private WithEvents numSeitenwechsel As NumericUpDown
+    Private WithEvents numTextBalkenHeight As NumericUpDown ' Neues NumericUpDown
+    Private WithEvents cmbLogoSelection As ComboBox ' Neue ComboBox für Logo-Auswahl
+    Private WithEvents btnSave As Button
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.lblTileWidth = New System.Windows.Forms.Label()
+        Me.lblTileHeight = New System.Windows.Forms.Label()
+        Me.lblFontSizeLkwNummer = New System.Windows.Forms.Label()
+        Me.lblFontSizeDateTime = New System.Windows.Forms.Label()
+        Me.lblSeitenwechsel = New System.Windows.Forms.Label()
+        Me.lblTextBalkenHeight = New System.Windows.Forms.Label()
+        Me.lblLogoSelection = New System.Windows.Forms.Label()
+        Me.numTileWidth = New System.Windows.Forms.NumericUpDown()
+        Me.numTileHeight = New System.Windows.Forms.NumericUpDown()
+        Me.numFontSizeLkwNummer = New System.Windows.Forms.NumericUpDown()
+        Me.numFontSizeDateTime = New System.Windows.Forms.NumericUpDown()
+        Me.numSeitenwechsel = New System.Windows.Forms.NumericUpDown()
+        Me.numTextBalkenHeight = New System.Windows.Forms.NumericUpDown()
+        Me.cmbLogoSelection = New System.Windows.Forms.ComboBox()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.numKachelRowGapInPercent = New System.Windows.Forms.NumericUpDown()
+        Me.Label1 = New System.Windows.Forms.Label()
+        CType(Me.numTileWidth, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.numTileHeight, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.numFontSizeLkwNummer, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.numFontSizeDateTime, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.numSeitenwechsel, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.numTextBalkenHeight, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.numKachelRowGapInPercent, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lblTileWidth
+        '
+        Me.lblTileWidth.AutoSize = True
+        Me.lblTileWidth.Location = New System.Drawing.Point(22, 66)
+        Me.lblTileWidth.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
+        Me.lblTileWidth.Name = "lblTileWidth"
+        Me.lblTileWidth.Size = New System.Drawing.Size(87, 13)
+        Me.lblTileWidth.TabIndex = 0
+        Me.lblTileWidth.Text = "Kachel Breite (%)"
+        '
+        'lblTileHeight
+        '
+        Me.lblTileHeight.AutoSize = True
+        Me.lblTileHeight.Location = New System.Drawing.Point(21, 27)
+        Me.lblTileHeight.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
+        Me.lblTileHeight.Name = "lblTileHeight"
+        Me.lblTileHeight.Size = New System.Drawing.Size(86, 13)
+        Me.lblTileHeight.TabIndex = 1
+        Me.lblTileHeight.Text = "Kachel Höhe (%)"
+        '
+        'lblFontSizeLkwNummer
+        '
+        Me.lblFontSizeLkwNummer.AutoSize = True
+        Me.lblFontSizeLkwNummer.Location = New System.Drawing.Point(21, 151)
+        Me.lblFontSizeLkwNummer.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
+        Me.lblFontSizeLkwNummer.Name = "lblFontSizeLkwNummer"
+        Me.lblFontSizeLkwNummer.Size = New System.Drawing.Size(133, 13)
+        Me.lblFontSizeLkwNummer.TabIndex = 2
+        Me.lblFontSizeLkwNummer.Text = "Schriftgröße LKW Nummer"
+        '
+        'lblFontSizeDateTime
+        '
+        Me.lblFontSizeDateTime.AutoSize = True
+        Me.lblFontSizeDateTime.Location = New System.Drawing.Point(21, 191)
+        Me.lblFontSizeDateTime.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
+        Me.lblFontSizeDateTime.Name = "lblFontSizeDateTime"
+        Me.lblFontSizeDateTime.Size = New System.Drawing.Size(121, 13)
+        Me.lblFontSizeDateTime.TabIndex = 3
+        Me.lblFontSizeDateTime.Text = "Schriftgröße Datum/Zeit"
+        '
+        'lblSeitenwechsel
+        '
+        Me.lblSeitenwechsel.AutoSize = True
+        Me.lblSeitenwechsel.Location = New System.Drawing.Point(21, 232)
+        Me.lblSeitenwechsel.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
+        Me.lblSeitenwechsel.Name = "lblSeitenwechsel"
+        Me.lblSeitenwechsel.Size = New System.Drawing.Size(134, 13)
+        Me.lblSeitenwechsel.TabIndex = 4
+        Me.lblSeitenwechsel.Text = "Seitenwechsel (Sekunden)"
+        '
+        'lblTextBalkenHeight
+        '
+        Me.lblTextBalkenHeight.AutoSize = True
+        Me.lblTextBalkenHeight.Location = New System.Drawing.Point(21, 273)
+        Me.lblTextBalkenHeight.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
+        Me.lblTextBalkenHeight.Name = "lblTextBalkenHeight"
+        Me.lblTextBalkenHeight.Size = New System.Drawing.Size(110, 13)
+        Me.lblTextBalkenHeight.TabIndex = 5
+        Me.lblTextBalkenHeight.Text = "Text Balken Höhe (%)"
+        '
+        'lblLogoSelection
+        '
+        Me.lblLogoSelection.AutoSize = True
+        Me.lblLogoSelection.Location = New System.Drawing.Point(21, 313)
+        Me.lblLogoSelection.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
+        Me.lblLogoSelection.Name = "lblLogoSelection"
+        Me.lblLogoSelection.Size = New System.Drawing.Size(85, 13)
+        Me.lblLogoSelection.TabIndex = 13
+        Me.lblLogoSelection.Text = "Logo auswählen"
+        '
+        'numTileWidth
+        '
+        Me.numTileWidth.DecimalPlaces = 2
+        Me.numTileWidth.Location = New System.Drawing.Point(165, 66)
+        Me.numTileWidth.Margin = New System.Windows.Forms.Padding(2)
+        Me.numTileWidth.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+        Me.numTileWidth.Name = "numTileWidth"
+        Me.numTileWidth.Size = New System.Drawing.Size(90, 20)
+        Me.numTileWidth.TabIndex = 6
+        Me.numTileWidth.Value = New Decimal(New Integer() {30, 0, 0, 0})
+        '
+        'numTileHeight
+        '
+        Me.numTileHeight.DecimalPlaces = 2
+        Me.numTileHeight.Location = New System.Drawing.Point(164, 25)
+        Me.numTileHeight.Margin = New System.Windows.Forms.Padding(2)
+        Me.numTileHeight.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+        Me.numTileHeight.Name = "numTileHeight"
+        Me.numTileHeight.Size = New System.Drawing.Size(90, 20)
+        Me.numTileHeight.TabIndex = 7
+        Me.numTileHeight.Value = New Decimal(New Integer() {30, 0, 0, 0})
+        '
+        'numFontSizeLkwNummer
+        '
+        Me.numFontSizeLkwNummer.DecimalPlaces = 2
+        Me.numFontSizeLkwNummer.Location = New System.Drawing.Point(164, 149)
+        Me.numFontSizeLkwNummer.Margin = New System.Windows.Forms.Padding(2)
+        Me.numFontSizeLkwNummer.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+        Me.numFontSizeLkwNummer.Name = "numFontSizeLkwNummer"
+        Me.numFontSizeLkwNummer.Size = New System.Drawing.Size(90, 20)
+        Me.numFontSizeLkwNummer.TabIndex = 8
+        Me.numFontSizeLkwNummer.Value = New Decimal(New Integer() {12, 0, 0, 0})
+        '
+        'numFontSizeDateTime
+        '
+        Me.numFontSizeDateTime.DecimalPlaces = 2
+        Me.numFontSizeDateTime.Location = New System.Drawing.Point(164, 190)
+        Me.numFontSizeDateTime.Margin = New System.Windows.Forms.Padding(2)
+        Me.numFontSizeDateTime.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+        Me.numFontSizeDateTime.Name = "numFontSizeDateTime"
+        Me.numFontSizeDateTime.Size = New System.Drawing.Size(90, 20)
+        Me.numFontSizeDateTime.TabIndex = 9
+        Me.numFontSizeDateTime.Value = New Decimal(New Integer() {12, 0, 0, 0})
+        '
+        'numSeitenwechsel
+        '
+        Me.numSeitenwechsel.Location = New System.Drawing.Point(164, 230)
+        Me.numSeitenwechsel.Margin = New System.Windows.Forms.Padding(2)
+        Me.numSeitenwechsel.Maximum = New Decimal(New Integer() {3600, 0, 0, 0})
+        Me.numSeitenwechsel.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+        Me.numSeitenwechsel.Name = "numSeitenwechsel"
+        Me.numSeitenwechsel.Size = New System.Drawing.Size(90, 20)
+        Me.numSeitenwechsel.TabIndex = 10
+        Me.numSeitenwechsel.Value = New Decimal(New Integer() {30, 0, 0, 0})
+        '
+        'numTextBalkenHeight
+        '
+        Me.numTextBalkenHeight.DecimalPlaces = 2
+        Me.numTextBalkenHeight.Location = New System.Drawing.Point(164, 271)
+        Me.numTextBalkenHeight.Margin = New System.Windows.Forms.Padding(2)
+        Me.numTextBalkenHeight.Name = "numTextBalkenHeight"
+        Me.numTextBalkenHeight.Size = New System.Drawing.Size(90, 20)
+        Me.numTextBalkenHeight.TabIndex = 11
+        Me.numTextBalkenHeight.Value = New Decimal(New Integer() {30, 0, 0, 0})
+        '
+        'cmbLogoSelection
+        '
+        Me.cmbLogoSelection.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbLogoSelection.FormattingEnabled = True
+        Me.cmbLogoSelection.Location = New System.Drawing.Point(164, 311)
+        Me.cmbLogoSelection.Margin = New System.Windows.Forms.Padding(2)
+        Me.cmbLogoSelection.Name = "cmbLogoSelection"
+        Me.cmbLogoSelection.Size = New System.Drawing.Size(91, 21)
+        Me.cmbLogoSelection.TabIndex = 14
+        '
+        'btnSave
+        '
+        Me.btnSave.Location = New System.Drawing.Point(164, 346)
+        Me.btnSave.Margin = New System.Windows.Forms.Padding(2)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(90, 24)
+        Me.btnSave.TabIndex = 15
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'numKachelRowGapInPercent
+        '
+        Me.numKachelRowGapInPercent.DecimalPlaces = 2
+        Me.numKachelRowGapInPercent.Location = New System.Drawing.Point(164, 106)
+        Me.numKachelRowGapInPercent.Margin = New System.Windows.Forms.Padding(2)
+        Me.numKachelRowGapInPercent.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+        Me.numKachelRowGapInPercent.Name = "numKachelRowGapInPercent"
+        Me.numKachelRowGapInPercent.Size = New System.Drawing.Size(90, 20)
+        Me.numKachelRowGapInPercent.TabIndex = 17
+        Me.numKachelRowGapInPercent.Value = New Decimal(New Integer() {12, 0, 0, 0})
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(21, 108)
+        Me.Label1.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(123, 13)
+        Me.Label1.TabIndex = 16
+        Me.Label1.Text = "Abstand Kachel Text (%)"
+        '
+        'frmTvSettings
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(306, 409)
+        Me.Controls.Add(Me.numKachelRowGapInPercent)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.btnSave)
+        Me.Controls.Add(Me.cmbLogoSelection)
+        Me.Controls.Add(Me.numTextBalkenHeight)
+        Me.Controls.Add(Me.numSeitenwechsel)
+        Me.Controls.Add(Me.numFontSizeDateTime)
+        Me.Controls.Add(Me.numFontSizeLkwNummer)
+        Me.Controls.Add(Me.numTileHeight)
+        Me.Controls.Add(Me.numTileWidth)
+        Me.Controls.Add(Me.lblLogoSelection)
+        Me.Controls.Add(Me.lblTextBalkenHeight)
+        Me.Controls.Add(Me.lblSeitenwechsel)
+        Me.Controls.Add(Me.lblFontSizeDateTime)
+        Me.Controls.Add(Me.lblFontSizeLkwNummer)
+        Me.Controls.Add(Me.lblTileHeight)
+        Me.Controls.Add(Me.lblTileWidth)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Margin = New System.Windows.Forms.Padding(2)
+        Me.MaximizeBox = False
+        Me.Name = "frmTvSettings"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "TV Einstellungen"
+        CType(Me.numTileWidth, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.numTileHeight, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.numFontSizeLkwNummer, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.numFontSizeDateTime, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.numSeitenwechsel, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.numTextBalkenHeight, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.numKachelRowGapInPercent, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Private WithEvents numKachelRowGapInPercent As NumericUpDown
+    Private WithEvents Label1 As Label
+End Class

Aviso/frmTvSettings.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Aviso/frmTvSettings.vb

@@ -0,0 +1,139 @@
+Imports System.Data.SqlClient
+Imports AVISO.frmEintragTvNew
+Imports VERAG_PROG_ALLGEMEIN
+
+Partial Class frmTvSettings
+    Inherits System.Windows.Forms.Form
+
+    Private standortID As Integer
+    Private AvisoTvNewDAL As New cAvisoTvNewDAL()
+    Private list As New List(Of cAvisoTvNew)()
+
+    Public Sub New(standortID As Integer)
+        InitializeComponent()
+        Me.standortID = standortID
+    End Sub
+
+    ' Ereignis-Handler für das Laden des Formulars
+    Private Sub frmTvSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            ' Einstellungen aus der Datenbank laden
+            Dim settingsList As List(Of cTvSettings) = AvisoTvNewDAL.GetTvSettingsByStandort(standortID)
+
+            ' ComboBox initialisieren
+            InitializeComboBox()
+
+            If settingsList IsNot Nothing AndAlso settingsList.Count > 0 Then
+                Dim settings As cTvSettings = settingsList(0)
+                numTileWidth.Value = If(settings.KachelWidthInPercent >= numTileWidth.Minimum AndAlso settings.KachelWidthInPercent <= numTileWidth.Maximum, CDec(settings.KachelWidthInPercent), 30)
+                numTileHeight.Value = If(settings.KachelHeightInPercent >= numTileHeight.Minimum AndAlso settings.KachelHeightInPercent <= numTileHeight.Maximum, CDec(settings.KachelHeightInPercent), 30)
+                numFontSizeLkwNummer.Value = If(settings.KachelFontSizeLkwNummer >= numFontSizeLkwNummer.Minimum AndAlso settings.KachelFontSizeLkwNummer <= numFontSizeLkwNummer.Maximum, CDec(settings.KachelFontSizeLkwNummer), 12)
+                numFontSizeDateTime.Value = If(settings.KachelFontSizeDateTime >= numFontSizeDateTime.Minimum AndAlso settings.KachelFontSizeDateTime <= numFontSizeDateTime.Maximum, CDec(settings.KachelFontSizeDateTime), 12)
+                numSeitenwechsel.Value = If(settings.SeitenwechselInSek >= numSeitenwechsel.Minimum AndAlso settings.SeitenwechselInSek <= numSeitenwechsel.Maximum, CDec(settings.SeitenwechselInSek), 30)
+                numTextBalkenHeight.Value = If(settings.TextBalkenHeightInPercent >= numTextBalkenHeight.Minimum AndAlso settings.TextBalkenHeightInPercent <= numTextBalkenHeight.Maximum, CDec(settings.TextBalkenHeightInPercent), 30)
+                numKachelRowGapInPercent.Value = If(settings.KachelRowGapInPercent >= numKachelRowGapInPercent.Minimum AndAlso settings.KachelRowGapInPercent <= numKachelRowGapInPercent.Maximum, CDec(settings.KachelRowGapInPercent), 15)
+
+                ' Logo-Auswahl setzen
+                cmbLogoSelection.SelectedValue = settings.SelectedLogoValue
+
+                ' Überprüfen, ob die Auswahl erfolgreich war
+                If cmbLogoSelection.SelectedValue Is Nothing Then
+                    ' Wenn nicht, setze auf den ersten Eintrag
+                    cmbLogoSelection.SelectedIndex = 0
+                End If
+            Else
+                ' Standardwerte verwenden, falls keine Einstellungen vorhanden sind
+                SetDefaultValues()
+            End If
+        Catch ex As Exception
+            MessageBox.Show("Fehler beim Laden der Einstellungen: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            SetDefaultValues()
+        End Try
+    End Sub
+
+    ' Klasse für ComboBox-Elemente
+    Public Class ComboBoxItem
+        Public Property Display As String
+        Public Property Value As String
+
+        Public Sub New(display As String, value As String)
+            Me.Display = display
+            Me.Value = value
+        End Sub
+
+        Public Overrides Function ToString() As String
+            Return Display
+        End Function
+    End Class
+
+    ' Methode zur Initialisierung der ComboBox
+    Private Sub InitializeComboBox()
+        ' Legen Sie die DisplayMember und ValueMember fest
+        cmbLogoSelection.DisplayMember = "Display"
+        cmbLogoSelection.ValueMember = "Value"
+
+        ' Erstellen Sie eine Liste von ComboBoxItem-Objekten
+        Dim logoItems As New List(Of ComboBoxItem) From {
+            New ComboBoxItem("VERAG AG", "verag.png"),
+            New ComboBoxItem("ATILLA", "atilla.png"),
+            New ComboBoxItem("ATILLA TÜRKIYE", "atilla_turkiye.jpg"),
+            New ComboBoxItem("FRONTOFFICE_SUBEN", "frontoffice_suben.jpg"),
+            New ComboBoxItem("IMEX", "imex.png"),
+            New ComboBoxItem("UNISPED", "unisped.jpg")
+        }
+
+        ' Binden Sie die Liste als DataSource
+        cmbLogoSelection.DataSource = logoItems
+
+        ' Optional: Setzen Sie die Standardauswahl
+        If logoItems.Count > 0 Then
+            cmbLogoSelection.SelectedIndex = 0
+        End If
+    End Sub
+
+    ' Methode zum Setzen der Standardwerte
+    Private Sub SetDefaultValues()
+        numTileWidth.Value = 30
+        numTileHeight.Value = 30
+        numFontSizeLkwNummer.Value = 12
+        numFontSizeDateTime.Value = 12
+        numSeitenwechsel.Value = 30
+        numTextBalkenHeight.Value = 30
+        numKachelRowGapInPercent.Value = 15
+
+        ' Sicherstellen, dass die ComboBox initialisiert ist
+        If cmbLogoSelection.Items.Count > 0 Then
+            cmbLogoSelection.SelectedIndex = 0
+        End If
+    End Sub
+
+    ' Ereignis-Handler für den Speichern-Button
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        Try
+            ' Holen Sie sich das ausgewählte ComboBoxItem
+            Dim selectedItem As ComboBoxItem = CType(cmbLogoSelection.SelectedItem, ComboBoxItem)
+            Dim selectedValue As String = If(selectedItem IsNot Nothing, selectedItem.Value, String.Empty)
+
+            Dim settings As New cTvSettings() With {
+                .StandortID = standortID,
+                .KachelWidthInPercent = CDbl(numTileWidth.Value),
+                .KachelHeightInPercent = CDbl(numTileHeight.Value),
+                .KachelFontSizeLkwNummer = CDbl(numFontSizeLkwNummer.Value),
+                .KachelFontSizeDateTime = CDbl(numFontSizeDateTime.Value),
+                .SeitenwechselInSek = CDbl(numSeitenwechsel.Value),
+                .TextBalkenHeightInPercent = CDbl(numTextBalkenHeight.Value),
+                .KachelRowGapInPercent = CDbl(numKachelRowGapInPercent.Value),
+                .SelectedLogoValue = selectedValue ' Stellen Sie sicher, dass diese Eigenschaft in cTvSettings existiert
+            }
+
+            ' Einstellungen in der Datenbank speichern
+            AvisoTvNewDAL.SaveTvSettings(settings)
+
+            MessageBox.Show("Einstellungen wurden erfolgreich gespeichert!", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            Me.Close()
+        Catch ex As Exception
+            MessageBox.Show("Fehler beim Speichern der Einstellungen: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+    End Sub
+
+End Class

AvisoTV/frmAnzeige.vb

@@ -394,7 +394,7 @@ Public Class frmAnzeige
                                     r.Cells(0).Style.Font = Font1_MESS
                                     Dim doimage As Image = Nothing
                                     Select Case r.Cells(0).Value.ToString
-                                        Case "PASSPORT" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
+                                        Case ",pn" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
                                         Case "DOKUMENT" : doimage = My.Resources.passport : r.Cells(0).Value = "PROBLEM" ' r.Cells(0).Value = "PASS"
                                         Case "URGENT" : doimage = My.Resources.urgent_qu : r.Cells(0).Value = "PROBLEM"
                                     End Select