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

Common/Dialog: Fix long messages

Browse Source
This commit is contained in:
Jonathan Jenne
2022-06-17 11:00:14 +02:00
parent e35f5c84c3
commit e328224d15
2 changed files with 18 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
GUIs.Common/frmDialog.vb
View File

@@ -28,7 +28,7 @@ Public Class frmDialog
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
txtContent2.Text = pMessageText
txtContent.Text = pMessageText
txtTitle.Text = pTitle
Select Case pDialogType
@@ -62,11 +62,12 @@ Public Class frmDialog
End Select
Dim oLineBreaks = txtContent2.Text.Split(vbNewLine).Count
Dim oLineBreaks = txtContent.Text.Split(vbNewLine).Count
If oLineBreaks > 6 Then
Dim oHeightOffset = oLineBreaks * 20
Height += oHeightOffset
txtContent.Height += oHeightOffset
End If
btnPositive.Focus()