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

breite

Browse Source
This commit is contained in:
d.breimaier
2025-11-21 17:42:16 +01:00
parent 4925ee64b7
commit 010ff0cf18
2 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -1283,30 +1283,32 @@ Partial Class frmKundenblatt
Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle18
Me.dgvSperrliste.Size = New System.Drawing.Size(549, 413)
Me.dgvSperrliste.Size = New System.Drawing.Size(543, 413)
Me.dgvSperrliste.TabIndex = 23
'
'PictureBox2
'
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax
Me.PictureBox2.Location = New System.Drawing.Point(1214, 254)
Me.PictureBox2.Location = New System.Drawing.Point(1296, 237)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(25, 18)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox2.TabIndex = 150
Me.PictureBox2.TabStop = False
Me.PictureBox2.Visible = False
'
'PictureBox1
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon
Me.PictureBox1.Location = New System.Drawing.Point(1214, 230)
Me.PictureBox1.Location = New System.Drawing.Point(1296, 213)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(25, 18)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 151
Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
'
'Label2
'
@@ -2997,7 +2999,7 @@ Partial Class frmKundenblatt
'
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'

9
SDL/kunden/frmKundenblatt.vb
View File

@@ -1224,14 +1224,23 @@ Public Class frmKundenblatt
Sub initSDLListeRed()
Dim totalHeight As Integer = dgvSperrliste.ColumnHeadersHeight
For Each r As DataGridViewRow In dgvSperrliste.Rows
If r.Cells("SperrNr").Value > 0 Then
r.DefaultCellStyle.ForeColor = Color.Red
Else
r.Cells("SperrBez").Value = ""
End If
totalHeight += r.Height
Next
dgvSperrliste.Height = totalHeight + 2
End Sub
'Wenn ein Eintrag in der CBO ausgewählt wurde wird dieser in der DB eingetragen
' Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)