jj 07.03.2016 start translation of editor property grid

app/DD-Record-Organiser/ClassControlProperties.vb

@@ -1,6 +1,36 @@
 Imports System.ComponentModel
+Imports System.Resources
+
 
 Module ClassControlProperties
+    ' ++++++ LOCALIZE PROPERTIES ++++++
+
+    Private Function Lookup(key As String)
+        Try
+            Return My.Resources.ControlProperties.ResourceManager.GetString(key)
+        Catch ex As Exception
+            Return key
+        End Try
+    End Function
+
+    Public Class LocalizedDescriptionAttribute
+        Inherits DescriptionAttribute
+
+        Public Sub New(key As String)
+            MyBase.New(Lookup(key))
+        End Sub
+    End Class
+
+    Public Class LocalizedCategoryAttribute
+        Inherits CategoryAttribute
+
+        Public Sub New(key As String)
+            MyBase.New(Lookup(key))
+        End Sub
+    End Class
+
+    ' +++++ END LOCALIZE PROPERTIES +++++
+
     ' +++++ ABSTRACT CLASSES +++++
     Public MustInherit Class BaseProperties
         Private _id As Integer
@@ -8,8 +38,8 @@ Module ClassControlProperties
         Private _location As Point
         Private _name As String
 
-        <CategoryAttribute("ID")>
-        <DescriptionAttribute("Gibt die eindeutige ID des Elements an.")>
+        <LocalizedCategoryAttribute("category_id")>
+        <LocalizedDescriptionAttribute("desc_id")>
         <ReadOnlyAttribute(True)>
         Public Property ID() As Integer
             Get
@@ -20,8 +50,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt die Größe des Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_size")>
         Public Property Size() As Size
             Get
                 Return _size
@@ -31,8 +61,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt die Position des Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_location")>
         Public Property Location() As Point
             Get
                 Return _location
@@ -42,8 +72,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt den internen Namen des Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_name")>
         Public Property Name() As String
             Get
                 Return _name
@@ -73,8 +103,8 @@ Module ClassControlProperties
         Private _font As Font
         Private _font_color As Color
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt den Spaltentitel des Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_col_title")>
         Public Property ColumnTitle() As String
             Get
                 Return _column_title
@@ -84,8 +114,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Other Configurations")>
-        <DescriptionAttribute("Gibt an ob dieses Element benötigt wird um die Eingabe abzuschließen.")>
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_required")>
         Public Property IsRequired() As Boolean
             Get
                 Return _required
@@ -95,8 +125,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Other Configurations")>
-        <DescriptionAttribute("Gibt an, ob dieses Element nur lesbar ist.")>
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_readonly")>
         Public Property IsReadOnly() As Boolean
             Get
                 Return _read_only
@@ -106,19 +136,19 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Database Configurations")>
-        <DescriptionAttribute("Gibt die Datenbankverbindung für dieses Element an.")>
-        Public Property SQLConnection() As SQLValue
-            Get
-                Return New SQLValue(_sql_connection)
-            End Get
-            Set(value As SQLValue)
-                _sql_connection = value.Value
-            End Set
-        End Property
+        '<LocalizedCategoryAttribute("category_database")>
+        '<LocalizedDescriptionAttribute("Gibt die Datenbankverbindung für dieses Element an.")>
+        'Public Property SQLConnection() As SQLValue
+        '    Get
+        '        Return New SQLValue(_sql_connection)
+        '    End Get
+        '    Set(value As SQLValue)
+        '        _sql_connection = value.Value
+        '    End Set
+        'End Property
 
-        <CategoryAttribute("Database Configurations")>
-        <DescriptionAttribute("Gibt die Datenbank-Abfrage für dieses Element an. Es können @RECORD_ID und @FORM_ID als Platzhalter verwendet werden.")>
+        <LocalizedCategoryAttribute("category_database")>
+        <LocalizedDescriptionAttribute("desc_sqlcommand")>
         Public Property SQLCommand() As SQLValue
             Get
                 Return New SQLValue(_sql_command)
@@ -127,8 +157,8 @@ Module ClassControlProperties
                 _sql_command = value.Value
             End Set
         End Property
-        <CategoryAttribute("Font Configurations")>
-        <DescriptionAttribute("Gibt die Schriftart an.")>
+        <LocalizedCategoryAttribute("category_font")>
+        <LocalizedDescriptionAttribute("desc_fontstyle")>
         Public Property Font() As Font
             Get
                 Return _font
@@ -138,8 +168,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Font Configurations")>
-        <DescriptionAttribute("Gibt die Schriftfarbe an.")>
+        <LocalizedCategoryAttribute("category_font")>
+        <LocalizedDescriptionAttribute("desc_fontcolor")>
         Public Property FontColor() As Color
             Get
                 Return _font_color
@@ -158,8 +188,8 @@ Module ClassControlProperties
         Private _tab_stop As Boolean
         Private _show_column As Boolean
 
-        <CategoryAttribute("Other Configurations")>
-        <DescriptionAttribute("Gibt die Reihenfolge an, in der das Element durch die Tabulatortaste aktiviert wird.")>
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_tabindex")>
         Public Property TabIndex() As Integer
             Get
                 Return _tab_index
@@ -168,8 +198,8 @@ Module ClassControlProperties
                 _tab_index = value
             End Set
         End Property
-        <CategoryAttribute("Other Configurations")>
-        <DescriptionAttribute("Gibt an, ob das Element durch die Tabulartortaste aktiviert werden soll.")>
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_tabstop")>
         Public Property TabStop() As Boolean
             Get
                 Return _tab_stop
@@ -178,8 +208,8 @@ Module ClassControlProperties
                 _tab_stop = value
             End Set
         End Property
-        <CategoryAttribute("Other Configurations")>
-        <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_defaultvalue")>
         <DefaultValue("")>
         Public Property DefaultValue() As String
             Get
@@ -190,8 +220,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt an, ob das Feld als Spalte im Grid angezeigt wird.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_showcolumn")>
         Public Property ShowColumn() As Boolean
             Get
                 Return _show_column
@@ -202,7 +232,7 @@ Module ClassControlProperties
         End Property
 
     End Class
-   
+
     ' +++++ CONTROL CLASSES +++++
 
     Public Class LabelProperties
@@ -211,8 +241,8 @@ Module ClassControlProperties
         Private _caption As String = ""
 
         <Browsable(False)>
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt den Spaltentitel des Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_columntitle")>
         Public Overloads Property ColumnTitle() As String
             Get
                 Return ""
@@ -222,8 +252,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt den Beschreibungstext dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_caption")>
         Public Property Caption() As String
             Get
                 Return _caption
@@ -240,8 +270,8 @@ Module ClassControlProperties
         Private _multiline As Boolean
         Private _format As String
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt das Format des Textes an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_format")>
         Public Property Format() As EnumFormatOptions
             Get
                 Return _format
@@ -251,8 +281,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt an, ob das Feld mehrzeilig sein soll.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_multiline")>
         Public Property Multiline() As Boolean
             Get
                 Return _multiline
@@ -269,8 +299,8 @@ Module ClassControlProperties
         Private _static_list As String
         Private _format As EnumFormatOptions
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt das Format des Textes an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_format")>
         Public Property Format() As EnumFormatOptions
             Get
                 Return _format
@@ -290,8 +320,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Daten")>
-        <DescriptionAttribute("Eine Liste von statischen Werten, die durch ';' getrennt sind. Überschreibt die Daten aus 'Datenbank-Einstellungen'")>
+        <LocalizedCategoryAttribute("category_data")>
+        <LocalizedDescriptionAttribute("desc_staticlist")>
         Public Property StaticList() As String
             Get
                 Return _static_list
@@ -307,8 +337,8 @@ Module ClassControlProperties
 
         Private _default_value As EnumDateTimePickerDefaultValueOptions = EnumDateTimePickerDefaultValueOptions.Empty
 
-        <CategoryAttribute("Other Configurations")>
-        <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_defaultvalue")>
         Public Overloads Property DefaultValue() As EnumDateTimePickerDefaultValueOptions
             Get
                 Return _default_value
@@ -324,8 +354,8 @@ Module ClassControlProperties
         Private _caption As String = ""
         Private _default_value As Boolean = False
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt den Beschreibungstext dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_caption")>
         Public Property Caption() As String
             Get
                 Return _caption
@@ -335,8 +365,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Other Configurations")>
-        <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_defaultvalue")>
         <DefaultValue(False)>
         Public Overloads Property DefaultValue As Boolean
             Get
@@ -355,8 +385,8 @@ Module ClassControlProperties
         Private _default_value As Boolean = False
 
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt den Beschreibungstext dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_caption")>
         Public Property Caption() As String
             Get
                 Return _caption
@@ -366,8 +396,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Other Configurations")>
-        <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_other")>
+        <LocalizedDescriptionAttribute("desc_defaultvalue")>
         <DefaultValue(False)>
         Public Overloads Property DefaultValue As Boolean
             Get
@@ -390,8 +420,8 @@ Module ClassControlProperties
         Private _caption As String = ""
         Private _back_color As Color
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt den Beschreibungstext dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_caption")>
         Public Property Caption() As String
             Get
                 Return _caption
@@ -401,8 +431,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt die Hintergrundfarbe des Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_backcolor")>
         Public Property BackColor() As Color
             Get
                 Return _back_color
@@ -428,8 +458,8 @@ Module ClassControlProperties
         Private _place As String
         Private _description As String
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt den Beschreibungstext dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_caption")>
         Public Property Caption() As String
             Get
                 Return _caption
@@ -439,8 +469,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Termin Einstellungen")>
-        <DescriptionAttribute("Gibt den Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden")>
+        <LocalizedCategoryAttribute("category_appointment")>
+        <LocalizedDescriptionAttribute("desc_subject")>
         Public Property Subject() As String
             Get
                 Return _subject
@@ -450,8 +480,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Termin Einstellungen")>
-        <DescriptionAttribute("Gibt den optionalen zweiten Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden")>
+        <LocalizedCategoryAttribute("category_appointment")>
+        <LocalizedDescriptionAttribute("desc_subject2")>
         Public Property Subject2() As String
             Get
                 Return _subject2
@@ -461,8 +491,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Termin Einstellungen")>
-        <DescriptionAttribute("Gibt den Ort des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden")>
+        <LocalizedCategoryAttribute("category_appointment")>
+        <LocalizedDescriptionAttribute("desc_place")>
         Public Property Place() As String
             Get
                 Return _place
@@ -472,8 +502,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Termin Einstellungen")>
-        <DescriptionAttribute("Gibt die Beschreibung des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden")>
+        <LocalizedCategoryAttribute("category_appointment")>
+        <LocalizedDescriptionAttribute("desc_description")>
         Public Property Description() As String
             Get
                 Return _description
@@ -483,8 +513,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Datums Einstellungen")>
-        <DescriptionAttribute("Der Name eines Elements von dem das End-Datum gelesen wird.")>
+        <LocalizedCategoryAttribute("category_date")>
+        <LocalizedDescriptionAttribute("desc_fromdate")>
         Public Property FromDate() As String
             Get
                 Return _from_date
@@ -494,8 +524,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Datums Einstellungen")>
-        <DescriptionAttribute("Der Name eines Elements von dem das Start-Datum gelesen wird.")>
+        <LocalizedCategoryAttribute("category_date")>
+        <LocalizedDescriptionAttribute("desc_todate")>
         Public Property ToDate() As String
             Get
                 Return _to_date
@@ -513,8 +543,8 @@ Module ClassControlProperties
         Private _form_id As Integer
         Private _screen_id As Integer
 
-        <CategoryAttribute("ViewConfigurations")>
-        <DescriptionAttribute("Gibt den Beschreibungstext dieses Elements an.")>
+        <LocalizedCategoryAttribute("category_view")>
+        <LocalizedDescriptionAttribute("desc_caption")>
         Public Property Caption() As String
             Get
                 Return _caption
@@ -524,8 +554,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Form Einstellungen")>
-        <DescriptionAttribute("Gibt die Form-ID der zu öffnenden Form an.")>
+        <LocalizedCategoryAttribute("category_form")>
+        <LocalizedDescriptionAttribute("Gibt die Form-ID der zu öffnenden Form an.")>
         Public Property FormID() As Integer
             Get
                 Return _form_id
@@ -535,8 +565,8 @@ Module ClassControlProperties
             End Set
         End Property
 
-        <CategoryAttribute("Form Einstellungen")>
-        <DescriptionAttribute("Gibt die Screen-ID der zu öffnenden Form an.")>
+        <LocalizedCategoryAttribute("category_form")>
+        <LocalizedDescriptionAttribute("Gibt die Screen-ID der zu öffnenden Form an.")>
         Public Property ScreenID() As Integer
             Get
                 Return _screen_id