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

Zooflow: Fix messageboxes without title

Browse Source
This commit is contained in:
Jonathan Jenne
2022-05-23 15:07:07 +02:00
parent ce7261acca
commit 39c69704f4
56 changed files with 683 additions and 432 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
GUIs.Common/ObjectPropertyDialog/ctrlObjectPropertyDialog.vb
View File

@@ -15,13 +15,13 @@ Public Class ctrlObjectPropertyDialog
Private Property LogConfig As LogConfig Implements IBaseForm.LogConfig
Private Property Logger As Logger Implements IBaseForm.Logger
Private Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
Private Property ControlManager As AttributeControls
Private Property GridBuilder As GridBuilder
Private Property Client As Client
Private Property Environment As Environment
Private Property ObjectId As Long
Private Property HostForm As Form
Private Property FormHelper As FormHelper
Private ReadOnly Changes As New Dictionary(Of String, Object)
@@ -42,7 +42,6 @@ Public Class ctrlObjectPropertyDialog
LogConfig = pLogConfig
Logger = pLogConfig.GetLogger()
HostForm = pHostForm
ErrorHandler = New BaseErrorHandler(pLogConfig, pHostForm)
ControlManager = New AttributeControls(pLogConfig, pEnv, pClient)
GridBuilder = New GridBuilder(ViewObjectHistory, ViewValueHistory)
@@ -67,10 +66,10 @@ Public Class ctrlObjectPropertyDialog
})
Next
ErrorHandler.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!")
FormHelper.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!")
Changes.Clear()
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "SaveChanges")
FormHelper.ShowErrorMessage(ex, "SaveChanges")
End Try
End Function

9
GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb
View File

@@ -20,10 +20,10 @@ Public Class frmObjectPropertyDialog
Private ReadOnly ObjectId As Int64
Private ReadOnly DatabaseIDB As MSSQLServer
Private ReadOnly ControlManager As AttributeControls
Private Property FormHelper As FormHelper
Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig
Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger
Private ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
Private ReadOnly Changes As New Dictionary(Of String, Object)
@@ -41,7 +41,6 @@ Public Class frmObjectPropertyDialog
ControlManager = New AttributeControls(LogConfig, Environment, pClient)
AddHandler ControlManager.EditValueChanged, AddressOf BaseEdit_EditValueChanged
ErrorHandler = New BaseErrorHandler(LogConfig, Me)
End Sub
Private Async Sub frmObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -68,7 +67,7 @@ Public Class frmObjectPropertyDialog
cmbBusinessEntity.EditValue = oEntityIds.First()
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "frmObjectPropertyDialog_Load")
FormHelper.ShowErrorMessage(ex, "frmObjectPropertyDialog_Load")
Finally
If oHandle IsNot Nothing Then
SplashScreenManager.CloseOverlayForm(oHandle)
@@ -225,10 +224,10 @@ Public Class frmObjectPropertyDialog
})
Next
ErrorHandler.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!")
FormHelper.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!", "btnSave_ItemClick")
Changes.Clear()
Catch ex As Exception
ErrorHandler.ShowErrorMessage(ex, "btnSave_ItemClick")
FormHelper.ShowErrorMessage(ex, "btnSave_ItemClick")
End Try
End Sub