diff --git a/IniFileControl/IniFileContentView.en.resx b/IniFileControl/IniFileContentView.en.resx
deleted file mode 100644
index 51fab4e..0000000
--- a/IniFileControl/IniFileContentView.en.resx
+++ /dev/null
@@ -1,123 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- text/microsoft-resx
-
-
- 2.0
-
-
- System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- Inifilecontentview
-
-
\ No newline at end of file
diff --git a/IniFileControl/IniFileControl.vbproj b/IniFileControl/IniFileControl.vbproj
index 156f631..3953ff7 100644
--- a/IniFileControl/IniFileControl.vbproj
+++ b/IniFileControl/IniFileControl.vbproj
@@ -143,36 +143,24 @@
IniFileCommentEdit.vb
-
- IniFileCommentEdit.vb
-
IniFileCommentEdit.vb
IniFileContentView.vb
-
- IniFileContentView.vb
-
IniFileContentView.vb
IniFileEntryValueEdit.vb
-
- IniFileEntryValueEdit.vb
-
IniFileEntryValueEdit.vb
IniFileListEdit.vb
-
- IniFileListEdit.vb
-
IniFileListEdit.vb
diff --git a/IniFileControl/IniFileCommentEdit.en.resx b/SevenSegmentControl/SevSegMultiDigit.resx
similarity index 87%
rename from IniFileControl/IniFileCommentEdit.en.resx
rename to SevenSegmentControl/SevSegMultiDigit.resx
index 7ad4783..56dda74 100644
--- a/IniFileControl/IniFileCommentEdit.en.resx
+++ b/SevenSegmentControl/SevSegMultiDigit.resx
@@ -117,10 +117,19 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
- Take Over
+
+ en-US
+
+
+ True
+
+
+ False
+
+
+ SevSegMultiDigit
-
- IniFileCommentEdit
+
+ System.Windows.Forms.Control, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
\ No newline at end of file
diff --git a/SevenSegmentControl/SevSegMultiDigit.vb b/SevenSegmentControl/SevSegMultiDigit.vb
index 9ea078a..f8d7645 100644
--- a/SevenSegmentControl/SevSegMultiDigit.vb
+++ b/SevenSegmentControl/SevSegMultiDigit.vb
@@ -468,6 +468,12 @@ Public Class SevSegMultiDigit
e.Graphics.Clear(Me._backgroundColor)
End Sub
+ Private Sub InitializeComponent()
+ Me.SuspendLayout()
+ Me.ResumeLayout(False)
+
+ End Sub
+
#End Region
diff --git a/IniFileControl/IniFileListEdit.en.resx b/SevenSegmentControl/SevSegSingleDigit.resx
similarity index 86%
rename from IniFileControl/IniFileListEdit.en.resx
rename to SevenSegmentControl/SevSegSingleDigit.resx
index 334206f..a870fb7 100644
--- a/IniFileControl/IniFileListEdit.en.resx
+++ b/SevenSegmentControl/SevSegSingleDigit.resx
@@ -1,4 +1,4 @@
-
+
"
'
'TextBox2
'
Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.TextBox2.Location = New System.Drawing.Point(296, 112)
+ resources.ApplyResources(Me.TextBox2, "TextBox2")
Me.TextBox2.Name = "TextBox2"
- Me.TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Both
- Me.TextBox2.Size = New System.Drawing.Size(101, 20)
- Me.TextBox2.TabIndex = 8
- Me.TextBox2.WordWrap = False
'
'TextBox1
'
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
- Me.TextBox1.Location = New System.Drawing.Point(174, 112)
+ resources.ApplyResources(Me.TextBox1, "TextBox1")
Me.TextBox1.Name = "TextBox1"
- Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both
- Me.TextBox1.Size = New System.Drawing.Size(101, 20)
- Me.TextBox1.TabIndex = 7
- Me.TextBox1.WordWrap = False
+ '
+ 'Label2
+ '
+ resources.ApplyResources(Me.Label2, "Label2")
+ Me.Label2.Name = "Label2"
'
'SevSegMultiDigit1
'
- Me.SevSegMultiDigit1.DigitCount = 2
+ Me.SevSegMultiDigit1.DigitCount = 1
Me.SevSegMultiDigit1.DigitPadding = New System.Windows.Forms.Padding(10, 4, 10, 4)
Me.SevSegMultiDigit1.InactiveColor = System.Drawing.Color.DarkGray
Me.SevSegMultiDigit1.ItalicFactor = -0.1!
- Me.SevSegMultiDigit1.Location = New System.Drawing.Point(296, 12)
+ resources.ApplyResources(Me.SevSegMultiDigit1, "SevSegMultiDigit1")
Me.SevSegMultiDigit1.Name = "SevSegMultiDigit1"
Me.SevSegMultiDigit1.SegmentWidth = 10
Me.SevSegMultiDigit1.ShowDecimalPoint = True
- Me.SevSegMultiDigit1.Size = New System.Drawing.Size(120, 80)
- Me.SevSegMultiDigit1.TabIndex = 6
Me.SevSegMultiDigit1.TabStop = False
Me.SevSegMultiDigit1.Value = Nothing
'
@@ -78,24 +71,21 @@ Partial Class FormSevenSegmentControl
Me.SevSegSingleDigit1.ColonActive = False
Me.SevSegSingleDigit1.CustomBitPattern = 0
Me.SevSegSingleDigit1.DecimalPointActive = False
- Me.SevSegSingleDigit1.DigitValue = Nothing
+ Me.SevSegSingleDigit1.DigitValue = ""
Me.SevSegSingleDigit1.InactiveColor = System.Drawing.Color.DarkGray
Me.SevSegSingleDigit1.ItalicFactor = -0.1!
- Me.SevSegSingleDigit1.Location = New System.Drawing.Point(174, 12)
+ resources.ApplyResources(Me.SevSegSingleDigit1, "SevSegSingleDigit1")
Me.SevSegSingleDigit1.Name = "SevSegSingleDigit1"
- Me.SevSegSingleDigit1.Padding = New System.Windows.Forms.Padding(10, 4, 10, 4)
Me.SevSegSingleDigit1.SegmentWidth = 10
Me.SevSegSingleDigit1.ShowColon = False
Me.SevSegSingleDigit1.ShowDecimalPoint = True
- Me.SevSegSingleDigit1.Size = New System.Drawing.Size(60, 80)
- Me.SevSegSingleDigit1.TabIndex = 5
Me.SevSegSingleDigit1.TabStop = False
'
'FormSevenSegmentControl
'
- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+ resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(526, 149)
+ Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
@@ -105,8 +95,6 @@ Partial Class FormSevenSegmentControl
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "FormSevenSegmentControl"
- Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
- Me.Text = "SevenSegment - Control - Test"
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -117,4 +105,5 @@ Partial Class FormSevenSegmentControl
Private WithEvents TextBox1 As TextBox
Private WithEvents SevSegMultiDigit1 As SchlumpfSoft.Controls.SevenSegmentControl.SevSegMultiDigit
Private WithEvents SevSegSingleDigit1 As SchlumpfSoft.Controls.SevenSegmentControl.SevSegSingleDigit
+ Private WithEvents Label2 As Label
End Class
diff --git a/IniFileControl/IniFileEntryValueEdit.en.resx b/TestApp/FormSevenSegmentControl.en-US.resx
similarity index 95%
rename from IniFileControl/IniFileEntryValueEdit.en.resx
rename to TestApp/FormSevenSegmentControl.en-US.resx
index d9234e9..f7e8231 100644
--- a/IniFileControl/IniFileEntryValueEdit.en.resx
+++ b/TestApp/FormSevenSegmentControl.en-US.resx
@@ -117,10 +117,13 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
- Take Over
+
+ Enter characters:
-
- IniFileEntryValueEdit
+
+ Enter characters:
+
+
+ Seevens segment - control - test
\ No newline at end of file
diff --git a/TestApp/FormSevenSegmentControl.resx b/TestApp/FormSevenSegmentControl.resx
index 1af7de1..d6082b9 100644
--- a/TestApp/FormSevenSegmentControl.resx
+++ b/TestApp/FormSevenSegmentControl.resx
@@ -117,4 +117,199 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ True
+
+
+
+ NoControl
+
+
+
+ 10, 114
+
+
+ 96, 13
+
+
+ 9
+
+
+ Zeichen eingeben:
+
+
+ Label1
+
+
+ System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ $this
+
+
+ 1
+
+
+ 112, 254
+
+
+ 7
+
+
+ Both
+
+
+ 61, 20
+
+
+ 8
+
+
+ False
+
+
+ TextBox2
+
+
+ System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ $this
+
+
+ 2
+
+
+ 113, 112
+
+
+ 1
+
+
+ Both
+
+
+ 60, 20
+
+
+ 7
+
+
+ False
+
+
+ TextBox1
+
+
+ System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ $this
+
+
+ 3
+
+
+ True
+
+
+ NoControl
+
+
+ 10, 256
+
+
+ 96, 13
+
+
+ 10
+
+
+ Zeichen eingeben:
+
+
+ Label2
+
+
+ System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ $this
+
+
+ 0
+
+
+ 113, 153
+
+
+ 60, 81
+
+
+ 6
+
+
+ SevSegMultiDigit1
+
+
+ SchlumpfSoft.Controls.SevenSegmentControl.SevSegMultiDigit, SevenSegmentControl, Version=1.2024.22.8, Culture=neutral, PublicKeyToken=null
+
+
+ $this
+
+
+ 4
+
+
+ 113, 12
+
+
+ 10, 4, 10, 4
+
+
+ 60, 80
+
+
+ 5
+
+
+ SevSegSingleDigit1
+
+
+ SchlumpfSoft.Controls.SevenSegmentControl.SevSegSingleDigit, SevenSegmentControl, Version=1.2024.22.8, Culture=neutral, PublicKeyToken=null
+
+
+ $this
+
+
+ 5
+
+
+ en-US
+
+
+ True
+
+
+ 6, 13
+
+
+ 542, 286
+
+
+ NoControl
+
+
+ CenterParent
+
+
+ SevenSegment - Control - Test
+
+
+ FormSevenSegmentControl
+
+
+ System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
\ No newline at end of file
diff --git a/TestApp/FormSevenSegmentControl.vb b/TestApp/FormSevenSegmentControl.vb
index a21c473..f1f339f 100644
--- a/TestApp/FormSevenSegmentControl.vb
+++ b/TestApp/FormSevenSegmentControl.vb
@@ -5,22 +5,63 @@
'
+Imports System.Globalization
+Imports System.Threading
+
+
Public Class FormSevenSegmentControl
- Private Sub TextBox_TextChanged(
- sender As Object,
- e As EventArgs) Handles _
+ Public Sub New()
+
+ 'Zuletzt verwendete Sprache einstellen
+ Thread.CurrentThread.CurrentCulture = New CultureInfo(My.Settings.LangCode)
+ Thread.CurrentThread.CurrentUICulture = New CultureInfo(My.Settings.LangCode)
+
+ ' Dieser Aufruf ist für den Designer erforderlich.
+ Me.InitializeComponent()
+
+ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+ 'Anzahl der eingebaren Zeichen der textboxen begrenzen
+ Me.TextBox1.MaxLength = 1
+ Me.TextBox2.MaxLength = 7
+
+ End Sub
+
+
+ Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) Handles _
TextBox2.TextChanged,
TextBox1.TextChanged
+ Dim text As String = CType(sender, TextBox).Text
+
Select Case True
Case sender Is Me.TextBox1
- Me.SevSegSingleDigit1.DigitValue = Me.TextBox1.Text
+ Me.SevSegSingleDigit1.DigitValue = text
Case sender Is Me.TextBox2
- Me.SevSegMultiDigit1.Value = Me.TextBox2.Text
+
+ 'Anzeige auf die Anzahl der eingegebenen Zeichen (min = 1, max = 7) anpassen
+ Select Case text.Length
+
+ Case < 1
+ 'kein oder ein zeichen
+ Me.SevSegMultiDigit1.DigitCount = 1
+ Me.SevSegMultiDigit1.Size = New Size With {
+ .Height = Me.SevSegMultiDigit1.Size.Height,
+ .Width = 60}
+
+ Case Else
+ 'zwei oder mehr Zeichen
+ Me.SevSegMultiDigit1.DigitCount = text.Length
+ Me.SevSegMultiDigit1.Size = New Size With {
+ .Height = Me.SevSegMultiDigit1.Size.Height,
+ .Width = 60 * text.Length}
+
+ End Select
+
+ Me.SevSegMultiDigit1.Value = text
End Select
diff --git a/TestApp/TestApp.vbproj b/TestApp/TestApp.vbproj
index 246393d..ccd2624 100644
--- a/TestApp/TestApp.vbproj
+++ b/TestApp/TestApp.vbproj
@@ -182,6 +182,9 @@
FormNotifyFormControl.vb
+
+ FormSevenSegmentControl.vb
+
FormSevenSegmentControl.vb