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

fix admin layout, added who,etc textboxes, postprocessing inputs

Browse Source
This commit is contained in:
Jonathan Jenne
2020-05-29 15:14:11 +02:00
parent 71c05a0fba
commit 8c11a8170f
3 changed files with 708 additions and 1113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
Global_Indexer/frmAdministration.vb
View File

@@ -633,9 +633,13 @@ Public Class frmAdministration
Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged
If TYPEComboBox.SelectedIndex <> -1 Then
FUNCTION1TextBox.Visible = False
FUNCTION2TextBox.Visible = False
Function1Label.Visible = False
Function2Label.Visible = False
Select Case TYPEComboBox.Text
Case "VBREPLACE"
If USER_LANGUAGE = "de-DE" Then
Text1Label.Text = "Alter Wert:"
Text2Label.Text = "Neuer Wert:"
@@ -644,74 +648,52 @@ Public Class frmAdministration
Text2Label.Text = "New Value:"
End If
Me.TEXT1TextBox.Visible = True
TEXT1TextBox.Width = 165
Text1Label.Visible = True
Text1TextBox.Visible = True
Text1TextBox.Width = 150
Me.TEXT2TextBox.Visible = True
Me.TEXT2TextBox.Width = 191
Me.Text3Label.Visible = False
Me.TEXT3TextBox.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
Me.Function1Label.Visible = False
Me.Function2Label.Visible = False
Text2Label.Visible = True
Text2TextBox.Visible = True
Text2TextBox.Width = 150
Me.Function1Label.Visible = False
Me.Function2Label.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
Text3Label.Visible = False
Text3TextBox.Visible = False
Case "VBSPLIT"
If USER_LANGUAGE = "de-DE" Then
Text1Label.Text = "Split-Zeichen:"
Text2Label.Text = "Wähle Vorkommen: Achtung Nullbasierend - Erstes Vorkommen = '0'"
Text2Label.Text = "Wähle Vorkommen: (Nullbasierend)"
Else
Text1Label.Text = "Split-Character:"
Text2Label.Text = "Choose occurrence: 0-Based - First occurrence = '0'"
Text2Label.Text = "Choose occurrence: (Zero-Based)"
End If
Me.FUNCTION1TextBox.Visible = True
Me.FUNCTION2TextBox.Visible = True
Me.Function1Label.Visible = True
Me.Function2Label.Visible = True
Text1Label.Visible = True
Text1TextBox.Visible = True
Text1TextBox.Width = 150
Text2Label.Visible = True
Text2TextBox.Visible = True
Text2TextBox.Width = 150
Me.TEXT1TextBox.Visible = True
TEXT1TextBox.Width = 50
Text3Label.Visible = False
Text3TextBox.Visible = False
Me.TEXT2TextBox.Visible = True
Me.TEXT2TextBox.Width = 50
Me.TEXT3TextBox.Visible = False
Me.Text3Label.Visible = False
Me.Function1Label.Visible = False
Me.Function2Label.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
Case "REG. EXPRESSION"
If USER_LANGUAGE = "de-DE" Then
Me.Text1Label.Text = "Regulärer Ausdruck:"
Text1Label.Text = "Regulärer Ausdruck:"
Else
Me.Text1Label.Text = "Regular Expression:"
Text1Label.Text = "Regular Expression:"
End If
Me.TEXT1TextBox.Visible = True
TEXT1TextBox.Width = 537
Me.Text2Label.Visible = False
Me.TEXT2TextBox.Visible = False
Me.Text3Label.Visible = False
Me.TEXT3TextBox.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
Me.Function1Label.Visible = False
Me.Function2Label.Visible = False
Text1TextBox.Visible = True
Text1TextBox.Width = 300
Me.Function1Label.Visible = False
Me.Function2Label.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
Text2Label.Visible = False
Text2TextBox.Visible = False
Text3Label.Visible = False
Text3TextBox.Visible = False
End Select
End If