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

Replace resource strings with hardcoded English messages

Browse Source 
All user-facing messages previously using resource strings have been changed to hardcoded English text. This affects MsgBox dialogs, Worker.ReportProgress updates, and exception messages, removing localization support and standardizing messages to plain English.
This commit is contained in:
OlgunR
2026-02-18 08:48:52 +01:00
parent f1b34dfa42
commit 341713d4cb
1 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
EnvelopeGenerator.Form/frmSplashScreen.vb
View File

@@ -36,10 +36,10 @@ Public Class frmSplashScreen
ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString
ConfigManager.Save() ConfigManager.Save()
MsgBox(Resources.Envelope.Database_configured, MsgBoxStyle.Critical, Text) MsgBox("Database configured ", MsgBoxStyle.Critical, Text)
Application.Restart() Application.Restart()
Else Else
MsgBox(Resources.Envelope.No_database_configured, MsgBoxStyle.Critical, Text) MsgBox("No database configured", MsgBoxStyle.Critical, Text)
Application.Exit() Application.Exit()
End If End If
End If End If
@@ -54,7 +54,7 @@ Public Class frmSplashScreen
}) })
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
MsgBox(Resources.Envelope.Error_during_initialization & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, MsgBoxStyle.Critical, Text) MsgBox("Error during initialization" & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, MsgBoxStyle.Critical, Text)
Application.Exit() Application.Exit()
End Try End Try
@@ -63,19 +63,19 @@ Public Class frmSplashScreen
Private Sub Worker_DoWork(sender As Object, e As DoWorkEventArgs) Handles Worker.DoWork Private Sub Worker_DoWork(sender As Object, e As DoWorkEventArgs) Handles Worker.DoWork
MyState = DirectCast(e.Argument, State) MyState = DirectCast(e.Argument, State)
Worker.ReportProgress(20, Resources.Envelope.Initializing_database) Worker.ReportProgress(20, "Initializing database")
Thread.Sleep(300) Thread.Sleep(300)
Dim oConnectionString = MSSQLServer.DecryptConnectionString(MyState.Config.ConnectionString) Dim oConnectionString = MSSQLServer.DecryptConnectionString(MyState.Config.ConnectionString)
MyState.Database = New MSSQLServer(MyState.LogConfig, oConnectionString) MyState.Database = New MSSQLServer(MyState.LogConfig, oConnectionString)
If MyState.Database?.DBInitialized = False Then If MyState.Database?.DBInitialized = False Then
Throw New ApplicationException(Resources.Envelope.Could_not_connect_to_database) Throw New ApplicationException("Could not connect to database")
Else Else
DB_DD_ECM = MyState.Database DB_DD_ECM = MyState.Database
End If End If
Worker.ReportProgress(40, Resources.Envelope.Initializing_Configuration) Worker.ReportProgress(40, "Initializing Configuration")
Thread.Sleep(300) Thread.Sleep(300)
Dim oSQl = "SELECT * FROM TBDD_SQL_COMMANDS" Dim oSQl = "SELECT * FROM TBDD_SQL_COMMANDS"
@@ -104,7 +104,7 @@ Public Class frmSplashScreen
DEF_TF_ENABLED = MyState.DbConfig.Default_TFA_Enabled DEF_TF_ENABLED = MyState.DbConfig.Default_TFA_Enabled
DEF_TF_ENABLED_WITH_PHONE = MyState.DbConfig.Default_TFA_WithPhone DEF_TF_ENABLED_WITH_PHONE = MyState.DbConfig.Default_TFA_WithPhone
' DOCUMENT_PATH_MOVE_AFTSEND = oState.DbConfig.DOCUMENT_PATH_MOVE_AFTSEND ' DOCUMENT_PATH_MOVE_AFTSEND = oState.DbConfig.DOCUMENT_PATH_MOVE_AFTSEND
Worker.ReportProgress(60, Resources.Envelope.Initializing_User) Worker.ReportProgress(60, "Initializing User")
Dim oKey = MyState.Database.GetScalarValue("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' and ACTIVE = 1") Dim oKey = MyState.Database.GetScalarValue("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' and ACTIVE = 1")
Thread.Sleep(300) Thread.Sleep(300)
If oKey.ToString <> String.Empty Then If oKey.ToString <> String.Empty Then
@@ -115,7 +115,7 @@ Public Class frmSplashScreen
Dim oUser = MyUserModel.SelectUser() Dim oUser = MyUserModel.SelectUser()
Worker.ReportProgress(80, Resources.Envelope.Initializing_Rights) Worker.ReportProgress(80, "Initializing Rights")
Thread.Sleep(300) Thread.Sleep(300)
' This checks for module access and admin rights ' This checks for module access and admin rights
@@ -124,7 +124,7 @@ Public Class frmSplashScreen
End If End If
MYUSER = oUser MYUSER = oUser
Worker.ReportProgress(100, Resources.Envelope.Starting_Application) Worker.ReportProgress(100, "Starting Application")
Thread.Sleep(300) Thread.Sleep(300)
MyState.User = oUser MyState.User = oUser
@@ -157,7 +157,7 @@ Public Class frmSplashScreen
CultureInfo.DefaultThreadCurrentUICulture = oCultureInfo CultureInfo.DefaultThreadCurrentUICulture = oCultureInfo
If oState.User.HasAccess = False Then If oState.User.HasAccess = False Then
Dim msg As String = String.Format(Resources.Envelope.User_unknown, Environment.UserName) Dim msg As String = String.Format("User {0} is unknown. Please contact your administrator. Application will close!", Environment.UserName)
Throw New ApplicationException(msg) Throw New ApplicationException(msg)
End If End If
@@ -175,7 +175,7 @@ Public Class frmSplashScreen
Close() Close()
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
MsgBox(Resources.Envelope.Error_during_initialization & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, MsgBoxStyle.Critical, Text) MsgBox("Error during initialization" & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, MsgBoxStyle.Critical, Text)
Application.Exit() Application.Exit()
End Try End Try
End Sub End Sub