AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Titel in den Form-Titel schreiben

Browse Source
This commit is contained in:
PitzM 2023-12-05 10:39:59 +01:00
parent c44ade2ee1
commit 0f41312a01
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
EnvelopeGenerator.Form/frmEnvelopeEditor.vb
View File

@ -47,7 +47,6 @@ Partial Public Class frmEnvelopeEditor
Private Sub frmEditor_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmEditor_Load(sender As Object, e As EventArgs) Handles Me.Load
Logger = State.LogConfig.GetLogger() Logger = State.LogConfig.GetLogger()
Me.Text = State.DbConfig.ExternalProgramName + " - Umschlag-Editor"
If Envelope Is Nothing Then If Envelope Is Nothing Then
Controller = New EnvelopeEditorController(State) Controller = New EnvelopeEditorController(State)
@ -84,6 +83,8 @@ Partial Public Class frmEnvelopeEditor
GridDocuments.DataSource = Documents GridDocuments.DataSource = Documents
GridReceivers.DataSource = Receivers GridReceivers.DataSource = Receivers
SetFormTitle(Controller.Envelope.Title)
End Sub End Sub
Private Sub SetFormReadonly() Private Sub SetFormReadonly()
@ -328,17 +329,19 @@ Partial Public Class frmEnvelopeEditor
Private Sub btnEditData_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditData.ItemClick Private Sub btnEditData_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnEditData.ItemClick
Dim oForm As New frmEnvelopeMainData() With Dim oForm As New frmEnvelopeMainData() With
{ {
.State = State, .State = State,
.EnvelopeTitle = Controller.Envelope.Title, .EnvelopeTitle = Controller.Envelope.Title,
.EnvelopeContractType = Controller.Envelope.ContractType, .EnvelopeContractType = Controller.Envelope.ContractType,
.NewEnvelopeMode = False .NewEnvelopeMode = False
} }
If oForm.ShowDialog() = DialogResult.OK Then If oForm.ShowDialog() = DialogResult.OK Then
Controller.Envelope.Title = oForm.EnvelopeTitle Controller.Envelope.Title = oForm.EnvelopeTitle
Controller.Envelope.ContractType = oForm.EnvelopeContractType Controller.Envelope.ContractType = oForm.EnvelopeContractType
End If End If
SetFormTitle(Controller.Envelope.Title)
End Sub End Sub
Private Sub GridReceivers_PaintEx(sender As Object, e As DevExpress.XtraGrid.PaintExEventArgs) Handles GridReceivers.PaintEx Private Sub GridReceivers_PaintEx(sender As Object, e As DevExpress.XtraGrid.PaintExEventArgs) Handles GridReceivers.PaintEx
@ -380,4 +383,12 @@ Partial Public Class frmEnvelopeEditor
End If End If
End Sub End Sub
Private Sub SetFormTitle(pTitle As String)
Dim oFormTitle As String = State.DbConfig.ExternalProgramName + " - Umschlag-Editor"
If String.IsNullOrEmpty(pTitle) = False Then
oFormTitle += " - " + Controller.Envelope.Title.Substring(0, 30)
End If
Me.Text = oFormTitle
End Sub
End Class End Class