AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix BaseRibbonForm

Browse Source
This commit is contained in:
Jonathan Jenne 2021-05-17 10:38:34 +02:00
parent 9d51d4ffb9
commit 7b31514ccf
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Controls.SQLEditor/frmSQLEditor.vb
View File

@ -38,7 +38,6 @@ Public Class frmSQLEditor
End Class End Class
Public Sub New(LogConfig As LogConfig, SQLServer As MSSQLServer) Public Sub New(LogConfig As LogConfig, SQLServer As MSSQLServer)
MyBase.New(LogConfig)
InitializeComponent() InitializeComponent()
Me.LogConfig = LogConfig Me.LogConfig = LogConfig
@ -48,6 +47,8 @@ Public Class frmSQLEditor
Private Sub frmSQLEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmSQLEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
Init(LogConfig)
txtSQL.Text = SQLString txtSQL.Text = SQLString
BindingSourcePlaceholder.DataSource = Placeholders BindingSourcePlaceholder.DataSource = Placeholders

6
GUIs.Common/Base/BaseRibbonForm.vb
View File

@ -18,8 +18,8 @@ Namespace Base
Public Class BaseRibbonForm Public Class BaseRibbonForm
Inherits RibbonForm Inherits RibbonForm
Private ReadOnly _Logger As Logger Private _Logger As Logger
Private ReadOnly _ErrorHandler As BaseErrorHandler Private _ErrorHandler As BaseErrorHandler
Protected ReadOnly Property Logger As Logger Protected ReadOnly Property Logger As Logger
Get Get
@ -30,7 +30,7 @@ Namespace Base
Public Sub New() Public Sub New()
End Sub End Sub
Public Sub New(LogConfig As LogConfig) Public Sub Init(LogConfig As LogConfig)
' Get the full name of the inheriting form ' Get the full name of the inheriting form
' so the log messages have the right classname ' so the log messages have the right classname
Dim oClassName = [GetType]().FullName Dim oClassName = [GetType]().FullName