edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RKSV_DE (Storno), Sprache div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-06 08:44:22 +01:00
parent 18bf96928a
commit 9a8b19aab4
20 changed files with 26005 additions and 3818 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -183,6 +183,23 @@ Public Class cAllgemein
Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, lan As String)
_TRANSLATE(o, o, lan)
End Sub
Public Shared Function _getTRANSLATE_SUB(oMain As System.Windows.Forms.Control, o As System.Windows.Forms.Control, s As Object, Optional defaultStr As String = "") As String
If defaultStr = "" Then defaultStr = s.Text
If _LAN = "DE" Then Return defaultStr
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = oMain.Name And x.trs_control = o.Name And (x.trs_subControl IsNot DBNull.Value AndAlso x.trs_subControl = s.Name) And x.trs_sprache = _LAN)
If TextTmp IsNot Nothing And TextTmp.Count > 0 Then
Return TextTmp(0).trs_text
End If
Return defaultStr
End Function
Public Shared Function _getTRANSLATE(oMain As System.Windows.Forms.Control, o As System.Windows.Forms.Control, Optional defaultStr As String = "") As String
If defaultStr = "" Then defaultStr = o.Text
Dim TextTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE.list.FindAll(Function(x) x.trs_object = oMain.Name And x.trs_control = o.Name And x.trs_sprache = _LAN)
If TextTmp IsNot Nothing And TextTmp.Count > 0 Then
Return TextTmp(0).trs_text
End If
Return defaultStr
End Function
Public Shared Sub _TRANSLATE(o As System.Windows.Forms.Control, s As System.Windows.Forms.Control, lan As String)
If lan = "" Then Exit Sub
If lan = "DE" Then Exit Sub
@@ -206,6 +223,9 @@ Public Class cAllgemein
If (TypeOf obj Is System.Windows.Forms.Button) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.FlatButton) Then
DirectCast(obj, System.Windows.Forms.Button).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.CheckBox) Or (TypeOf obj Is VERAG_PROG_ALLGEMEIN.MyCheckbox) Then
DirectCast(obj, System.Windows.Forms.CheckBox).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.TabPage) Then
DirectCast(obj, System.Windows.Forms.TabPage).Text = TXT.trs_text
End If
@@ -215,6 +235,15 @@ Public Class cAllgemein
If (TypeOf obj Is System.Windows.Forms.GroupBox) Then
DirectCast(obj, System.Windows.Forms.GroupBox).Text = TXT.trs_text
End If
If (TypeOf obj Is System.Windows.Forms.MenuStrip) Then
For Each tb As System.Windows.Forms.ToolStripMenuItem In DirectCast(obj, System.Windows.Forms.MenuStrip).Items
If tb.Name = TXT.trs_subControl Then
tb.Text = TXT.trs_text
End If
Next
End If
'If (TypeOf obj Is System.Windows.Forms.TabControl) Then -->in Tabpage geregelt
' For Each tb As System.Windows.Forms.TabPage In DirectCast(obj, System.Windows.Forms.TabControl).TabPages
' If tb.Name = TXT.trs_subControl Then