From fcddb353c111e09d9784622fd41bc752e6a5a14f Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 23 Jan 2019 14:57:57 +0100 Subject: [PATCH] jj --- EDMI_ClientSuite/ClassUtils.vb | 17 + .../EntityDesigner/ClassControlBuilder.vb | 18 +- .../ClassControlLocalization.vb | 27 + .../EntityDesigner/ClassControlUtils.vb | 3 + .../BaseClasses/ClassBaseProperties.vb | 40 ++ .../BaseClasses/ClassInputProperties.vb | 27 + .../BaseClasses/ClassMultiInputProperties.vb | 27 + .../ControlProperties/ClassBaseProperties.vb | 10 - .../ControlProperties/ClassLabelProperties.vb | 7 - .../Controls/ClassComboboxProperties.vb | 7 + .../Controls/ClassLabelProperties.vb | 14 + .../Controls/ClassTextboxProperties.vb | 13 + .../Editors/ClassStaticListEditor.vb | 72 +++ .../Editors/frmStaticListEditor.Designer.vb | 81 +++ .../Editors/frmStaticListEditor.en-US.resx | 136 +++++ .../Editors/frmStaticListEditor.resx | 279 +++++++++++ .../Editors/frmStaticListEditor.vb | 11 + .../ControlSnapPanel.vb} | 2 +- .../frmEntityDesigner.Designer.vb | 105 ++-- .../EntityDesigner/frmEntityDesigner.vb | 126 ++++- .../Strings/ControlProperties.Designer.vb | 463 ++++++++++++++++++ .../Strings/ControlProperties.en.Designer.vb | 0 .../Strings/ControlProperties.en.resx | 252 ++++++++++ .../Strings/ControlProperties.resx | 252 ++++++++++ 24 files changed, 1913 insertions(+), 76 deletions(-) create mode 100644 EDMI_ClientSuite/EntityDesigner/ClassControlLocalization.vb create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassBaseProperties.vb create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassInputProperties.vb create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassMultiInputProperties.vb delete mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/ClassBaseProperties.vb delete mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/ClassLabelProperties.vb create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassComboboxProperties.vb create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassLabelProperties.vb create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassTextboxProperties.vb create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/ClassStaticListEditor.vb create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.Designer.vb create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.en-US.resx create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.resx create mode 100644 EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.vb rename EDMI_ClientSuite/{UserControls/SnapPanel.vb => EntityDesigner/ControlSnapPanel.vb} (98%) create mode 100644 EDMI_ClientSuite/Strings/ControlProperties.Designer.vb create mode 100644 EDMI_ClientSuite/Strings/ControlProperties.en.Designer.vb create mode 100644 EDMI_ClientSuite/Strings/ControlProperties.en.resx create mode 100644 EDMI_ClientSuite/Strings/ControlProperties.resx diff --git a/EDMI_ClientSuite/ClassUtils.vb b/EDMI_ClientSuite/ClassUtils.vb index d86f3d65..f8d50e14 100644 --- a/EDMI_ClientSuite/ClassUtils.vb +++ b/EDMI_ClientSuite/ClassUtils.vb @@ -15,4 +15,21 @@ Public Shared Function ToEnum(Of T)(value As String) As T Return [Enum].Parse(GetType(T), value) End Function + + ''' + ''' Checks a value for three different `null` values, + ''' Nothing, Empty String, DBNull + ''' + ''' Returns the original value if the value is not null, or `defaultValue` + ''' + ''' The type of the value + ''' The value + ''' The default Value + Public Function NotNull(Of T)(ByVal value As T, ByVal defaultValue As T) As T + If IsNothing(value) OrElse String.IsNullOrEmpty(value.ToString) OrElse IsDBNull(value) Then + Return defaultValue + Else + Return value + End If + End Function End Class diff --git a/EDMI_ClientSuite/EntityDesigner/ClassControlBuilder.vb b/EDMI_ClientSuite/EntityDesigner/ClassControlBuilder.vb index 3bee6344..56820341 100644 --- a/EDMI_ClientSuite/EntityDesigner/ClassControlBuilder.vb +++ b/EDMI_ClientSuite/EntityDesigner/ClassControlBuilder.vb @@ -1,4 +1,5 @@ -Imports EDMI_ClientSuite.ClassControlUtils +Imports DigitalData.Controls.LookupGrid +Imports DigitalData.GUIS.ClientSuite.ClassControlUtils Public Class ClassControlBuilder #Region "State" @@ -51,4 +52,19 @@ Public Class ClassControlBuilder Return oTextbox End Function + Public Function CreateCombobox() As LookupControl + Dim Metadata As New ControlMetadata() With { + .Id = 4711, + .Type = ControlType.Combobox + } + + Dim oCombobox As New LookupControl() With { + .Name = GetRandomControlName("Combobox"), + .Size = DEFAULT_SIZE, + .Tag = Metadata + } + + Return oCombobox + End Function + End Class diff --git a/EDMI_ClientSuite/EntityDesigner/ClassControlLocalization.vb b/EDMI_ClientSuite/EntityDesigner/ClassControlLocalization.vb new file mode 100644 index 00000000..95ab1efc --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ClassControlLocalization.vb @@ -0,0 +1,27 @@ +Imports System.ComponentModel + +Public Class ClassControlLocalization + Private Shared 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 Class diff --git a/EDMI_ClientSuite/EntityDesigner/ClassControlUtils.vb b/EDMI_ClientSuite/EntityDesigner/ClassControlUtils.vb index 252ea377..2fd6517f 100644 --- a/EDMI_ClientSuite/EntityDesigner/ClassControlUtils.vb +++ b/EDMI_ClientSuite/EntityDesigner/ClassControlUtils.vb @@ -2,10 +2,13 @@ Public Enum ControlType Label = 0 TextBox = 1 + Combobox = 2 End Enum Public Class ControlMetadata Public Id As Integer Public Type As ControlType End Class + + End Class diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassBaseProperties.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassBaseProperties.vb new file mode 100644 index 00000000..153977ff --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassBaseProperties.vb @@ -0,0 +1,40 @@ +Imports System.ComponentModel +Imports DigitalData.GUIS.ClientSuite.ClassControlLocalization +Imports DigitalData.GUIS.ClientSuite.ClassControlUtils + +Namespace ControlProperties + Public MustInherit Class ClassBaseProperties + + + + <[ReadOnly](True)> + Public Property Id As Integer + + + + <[ReadOnly](True)> + Public Property Type As ControlType + + + + Public Property Name As String + + + + Public Property Location As Point + + + + Public Property Size As Size + + + + Public Property Font() As Font + + + + Public Property Color() As Color + + End Class +End Namespace + diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassInputProperties.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassInputProperties.vb new file mode 100644 index 00000000..fc769200 --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassInputProperties.vb @@ -0,0 +1,27 @@ +Imports DigitalData.GUIS.ClientSuite.ClassControlLocalization + +Namespace ControlProperties + Public MustInherit Class ClassInputProperties + Inherits ClassBaseProperties + + + + Public Property IsRequired() As Boolean + + + + Public Property IsReadOnly() As Boolean + + + + Public Property DefaultValue() As String + + + + Public Property TabIndex() As Integer + + + + Public Property TabStop() As Boolean + End Class +End Namespace diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassMultiInputProperties.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassMultiInputProperties.vb new file mode 100644 index 00000000..8090f70d --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/BaseClasses/ClassMultiInputProperties.vb @@ -0,0 +1,27 @@ +Imports System.ComponentModel +Imports System.Drawing.Design +Imports DevExpress.XtraEditors.Repository +Imports DigitalData.GUIS.ClientSuite.ClassControlLocalization + +Namespace ControlProperties + + + + Public Class ClassMultiInputProperties + Inherits ClassInputProperties + + Private _static_list As String + + + + Public Property StaticList As StaticList + Get + Return New StaticList(_static_list) + End Get + Set(value As StaticList) + _static_list = value?.Value + End Set + End Property + End Class + +End Namespace diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/ClassBaseProperties.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/ClassBaseProperties.vb deleted file mode 100644 index 66f10403..00000000 --- a/EDMI_ClientSuite/EntityDesigner/ControlProperties/ClassBaseProperties.vb +++ /dev/null @@ -1,10 +0,0 @@ -Namespace ControlProperties - Public MustInherit Class ClassBaseProperties - - Public Property Id As Integer - Public Property Type As String - Public Property Name As String - - End Class -End Namespace - diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/ClassLabelProperties.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/ClassLabelProperties.vb deleted file mode 100644 index 0c6e4d16..00000000 --- a/EDMI_ClientSuite/EntityDesigner/ControlProperties/ClassLabelProperties.vb +++ /dev/null @@ -1,7 +0,0 @@ -Namespace ControlProperties - Public Class ClassLabelProperties - Inherits ClassBaseProperties - End Class - -End Namespace - diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassComboboxProperties.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassComboboxProperties.vb new file mode 100644 index 00000000..996c49cb --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassComboboxProperties.vb @@ -0,0 +1,7 @@ +Namespace ControlProperties + Public Class ClassComboboxProperties + Inherits ClassMultiInputProperties + End Class + +End Namespace + diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassLabelProperties.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassLabelProperties.vb new file mode 100644 index 00000000..9ec23415 --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassLabelProperties.vb @@ -0,0 +1,14 @@ +Imports System.ComponentModel +Imports DigitalData.GUIS.ClientSuite.ClassControlLocalization + +Namespace ControlProperties + Public Class ClassLabelProperties + Inherits ClassBaseProperties + + + + Public Property Caption As String + End Class + +End Namespace + diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassTextboxProperties.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassTextboxProperties.vb new file mode 100644 index 00000000..75fa15fc --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Controls/ClassTextboxProperties.vb @@ -0,0 +1,13 @@ +Imports System.ComponentModel +Imports DigitalData.GUIS.ClientSuite.ClassControlLocalization + +Namespace ControlProperties + Public Class ClassTextboxProperties + Inherits ClassInputProperties + + + + + Public Property Multiline() As Boolean + End Class +End Namespace diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/ClassStaticListEditor.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/ClassStaticListEditor.vb new file mode 100644 index 00000000..9baaca18 --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/ClassStaticListEditor.vb @@ -0,0 +1,72 @@ +Imports System.ComponentModel +'Imports System.ComponentModel.Design +Imports System.Drawing.Design +'Imports System.Windows.Forms +Imports System.Windows.Forms.Design + +Public Class ClassStaticListEditor + Inherits UITypeEditor + + Public Overrides Function GetEditStyle(context As ITypeDescriptorContext) As UITypeEditorEditStyle + Return UITypeEditorEditStyle.Modal + End Function + + Public Overrides Function EditValue(context As ITypeDescriptorContext, provider As IServiceProvider, value As Object) As Object + Dim oService As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService) + Dim oStaticListString As String = DirectCast(value, StaticList).Value + + If oService IsNot Nothing AndAlso oStaticListString IsNot Nothing Then + Using oForm As New frmStaticListEditor() + oStaticListString = oStaticListString.Replace(";", vbNewLine) ' Semikolon zu vbNewLine + oForm.Value = oStaticListString + If oService.ShowDialog(oForm) = DialogResult.OK Then + Dim oString As String = oForm.Value.Replace(vbNewLine, ";") ' vbNewLine zu Semikolon + Dim oStaticList As New StaticList(oString) + value = oStaticList + End If + End Using + End If + + Return value + End Function +End Class + + + +Public Class StaticList + + Public Sub New() + _Value = String.Empty + End Sub + + Public Sub New(Value As String) + _Value = Value + End Sub + + Public Property Value As String +End Class + +Public Class StaticListTypeConverter + Inherits TypeConverter + + + Public Overrides Function ToString() As String + Return MyBase.ToString() + End Function + + ' Diese Funktion gibt den String zurück, der im PropertyGrid für den Benutzer sichtbar ist, kann ruhig etwas hübscher sein als foo;bar;baz + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As Globalization.CultureInfo, value As Object, destinationType As Type) As Object + Dim oStaticListString = String.Empty + + If TypeOf value Is StaticList Then + Dim oStaticList As StaticList = DirectCast(value, StaticList) + oStaticListString = oStaticList.Value + ElseIf TypeOf value Is String Then + oStaticListString = value + Else + MsgBox("Error in Converting StaticList value") + End If + + Return oStaticListString.Replace(";", ", ") + End Function +End Class diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.Designer.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.Designer.vb new file mode 100644 index 00000000..d5576ba3 --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.Designer.vb @@ -0,0 +1,81 @@ + _ +Partial Class frmStaticListEditor + Inherits DevExpress.XtraEditors.XtraForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStaticListEditor)) + Me.txtValue = New System.Windows.Forms.TextBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label2 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'txtValue + ' + resources.ApplyResources(Me.txtValue, "txtValue") + Me.txtValue.Name = "txtValue" + ' + 'Button1 + ' + resources.ApplyResources(Me.Button1, "Button1") + Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Button1.Name = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label1 + ' + resources.ApplyResources(Me.Label1, "Label1") + Me.Label1.Name = "Label1" + ' + 'Button2 + ' + resources.ApplyResources(Me.Button2, "Button2") + Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Button2.Name = "Button2" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label2 + ' + resources.ApplyResources(Me.Label2, "Label2") + Me.Label2.Name = "Label2" + ' + 'frmStaticListEditor + ' + resources.ApplyResources(Me, "$this") + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.txtValue) + Me.Name = "frmStaticListEditor" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtValue As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Label2 As Label +End Class diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.en-US.resx b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.en-US.resx new file mode 100644 index 00000000..9250f51e --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.en-US.resx @@ -0,0 +1,136 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + Save + + + + 159, 13 + + + Enter Listelements (One per line) + + + Cancel + + + Edit Static List + + \ No newline at end of file diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.resx b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.resx new file mode 100644 index 00000000..cfdf8d8e --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.resx @@ -0,0 +1,279 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + Top, Bottom, Left, Right + + + + 12, 12 + + + + True + + + 494, 211 + + + 0 + + + txtValue + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 4 + + + Bottom, Right + + + 424, 229 + + + 82, 24 + + + 1 + + + Speichern + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + + + 12, 229 + + + 20, 24 + + + 2 + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + + + Bottom, Right + + + 336, 229 + + + 82, 24 + + + 4 + + + Abbrechen + + + Button2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + + + Bottom, Left + + + True + + + NoControl + + + 12, 235 + + + 236, 13 + + + 3 + + + Listenelemente eingeben (Ein Element pro Zeile) + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 1 + + + True + + + 6, 13 + + + 518, 265 + + + CenterScreen + + + Statische Liste bearbeiten + + + frmStaticListEditor + + + DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + \ No newline at end of file diff --git a/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.vb b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.vb new file mode 100644 index 00000000..d8e133d3 --- /dev/null +++ b/EDMI_ClientSuite/EntityDesigner/ControlProperties/Editors/frmStaticListEditor.vb @@ -0,0 +1,11 @@ +Public Class frmStaticListEditor + + Public Property Value() As String + Get + Return txtValue.Text + End Get + Set(value As String) + txtValue.Text = value + End Set + End Property +End Class \ No newline at end of file diff --git a/EDMI_ClientSuite/UserControls/SnapPanel.vb b/EDMI_ClientSuite/EntityDesigner/ControlSnapPanel.vb similarity index 98% rename from EDMI_ClientSuite/UserControls/SnapPanel.vb rename to EDMI_ClientSuite/EntityDesigner/ControlSnapPanel.vb index 45ce7b60..409f5de7 100644 --- a/EDMI_ClientSuite/UserControls/SnapPanel.vb +++ b/EDMI_ClientSuite/EntityDesigner/ControlSnapPanel.vb @@ -1,4 +1,4 @@ -Public Class SnapPanel +Public Class ControlSnapPanel Inherits Panel Private _ShowGrid As Boolean = True diff --git a/EDMI_ClientSuite/EntityDesigner/frmEntityDesigner.Designer.vb b/EDMI_ClientSuite/EntityDesigner/frmEntityDesigner.Designer.vb index d43b2c31..ba5b306a 100644 --- a/EDMI_ClientSuite/EntityDesigner/frmEntityDesigner.Designer.vb +++ b/EDMI_ClientSuite/EntityDesigner/frmEntityDesigner.Designer.vb @@ -22,37 +22,24 @@ Partial Class frmEntityDesigner 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.SplitContainerMain = New DevExpress.XtraEditors.SplitContainerControl() - Me.PanelMain = New EDMI_ClientSuite.SnapPanel() + Me.PanelMain = New EDMI_ClientSuite.ControlSnapPanel() Me.TabControlMain = New DevExpress.XtraTab.XtraTabControl() - Me.TabPageProperties = New DevExpress.XtraTab.XtraTabPage() - Me.PropertyGridMain = New DevExpress.XtraVerticalGrid.PropertyGridControl() Me.TabPageControls = New DevExpress.XtraTab.XtraTabPage() Me.btnTextbox = New System.Windows.Forms.Button() Me.btnLabel = New System.Windows.Forms.Button() - CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SplitContainerMain.SuspendLayout() + Me.TabPageProperties = New DevExpress.XtraTab.XtraTabPage() + Me.PropertyGridMain = New DevExpress.XtraVerticalGrid.PropertyGridControl() + Me.SplitContainerControlMain = New DevExpress.XtraEditors.SplitContainerControl() + Me.btnCombobox = New System.Windows.Forms.Button() CType(Me.TabControlMain, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabControlMain.SuspendLayout() + Me.TabPageControls.SuspendLayout() Me.TabPageProperties.SuspendLayout() CType(Me.PropertyGridMain, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabPageControls.SuspendLayout() + CType(Me.SplitContainerControlMain, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControlMain.SuspendLayout() Me.SuspendLayout() ' - 'SplitContainerMain - ' - Me.SplitContainerMain.Dock = System.Windows.Forms.DockStyle.Fill - Me.SplitContainerMain.Location = New System.Drawing.Point(0, 0) - Me.SplitContainerMain.Name = "SplitContainerMain" - Me.SplitContainerMain.Panel1.Controls.Add(Me.PanelMain) - Me.SplitContainerMain.Panel1.Text = "Panel1" - Me.SplitContainerMain.Panel2.Controls.Add(Me.TabControlMain) - Me.SplitContainerMain.Panel2.Text = "Panel2" - Me.SplitContainerMain.Size = New System.Drawing.Size(800, 450) - Me.SplitContainerMain.SplitterPosition = 571 - Me.SplitContainerMain.TabIndex = 0 - Me.SplitContainerMain.Text = "SplitContainerControl1" - ' 'PanelMain ' Me.PanelMain.AllowDrop = True @@ -61,7 +48,7 @@ Partial Class frmEntityDesigner Me.PanelMain.Location = New System.Drawing.Point(0, 0) Me.PanelMain.Name = "PanelMain" Me.PanelMain.ShowGrid = True - Me.PanelMain.Size = New System.Drawing.Size(571, 450) + Me.PanelMain.Size = New System.Drawing.Size(564, 450) Me.PanelMain.TabIndex = 0 ' 'TabControlMain @@ -70,32 +57,17 @@ Partial Class frmEntityDesigner Me.TabControlMain.Location = New System.Drawing.Point(0, 0) Me.TabControlMain.Name = "TabControlMain" Me.TabControlMain.SelectedTabPage = Me.TabPageControls - Me.TabControlMain.Size = New System.Drawing.Size(217, 450) + Me.TabControlMain.Size = New System.Drawing.Size(224, 450) Me.TabControlMain.TabIndex = 0 Me.TabControlMain.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.TabPageControls, Me.TabPageProperties}) ' - 'TabPageProperties - ' - Me.TabPageProperties.Controls.Add(Me.PropertyGridMain) - Me.TabPageProperties.Name = "TabPageProperties" - Me.TabPageProperties.Size = New System.Drawing.Size(215, 425) - Me.TabPageProperties.Text = "Properties" - ' - 'PropertyGridMain - ' - Me.PropertyGridMain.Cursor = System.Windows.Forms.Cursors.Hand - Me.PropertyGridMain.Dock = System.Windows.Forms.DockStyle.Fill - Me.PropertyGridMain.Location = New System.Drawing.Point(0, 0) - Me.PropertyGridMain.Name = "PropertyGridMain" - Me.PropertyGridMain.Size = New System.Drawing.Size(215, 425) - Me.PropertyGridMain.TabIndex = 0 - ' 'TabPageControls ' + Me.TabPageControls.Controls.Add(Me.btnCombobox) Me.TabPageControls.Controls.Add(Me.btnTextbox) Me.TabPageControls.Controls.Add(Me.btnLabel) Me.TabPageControls.Name = "TabPageControls" - Me.TabPageControls.Size = New System.Drawing.Size(215, 425) + Me.TabPageControls.Size = New System.Drawing.Size(222, 425) Me.TabPageControls.Text = "Controls" ' 'btnTextbox @@ -116,31 +88,70 @@ Partial Class frmEntityDesigner Me.btnLabel.Text = "Label" Me.btnLabel.UseVisualStyleBackColor = True ' + 'TabPageProperties + ' + Me.TabPageProperties.Controls.Add(Me.PropertyGridMain) + Me.TabPageProperties.Name = "TabPageProperties" + Me.TabPageProperties.Size = New System.Drawing.Size(222, 425) + Me.TabPageProperties.Text = "Properties" + ' + 'PropertyGridMain + ' + Me.PropertyGridMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.PropertyGridMain.Location = New System.Drawing.Point(0, 0) + Me.PropertyGridMain.Name = "PropertyGridMain" + Me.PropertyGridMain.Size = New System.Drawing.Size(222, 425) + Me.PropertyGridMain.TabIndex = 0 + ' + 'SplitContainerControlMain + ' + Me.SplitContainerControlMain.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainerControlMain.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.Panel2 + Me.SplitContainerControlMain.Location = New System.Drawing.Point(0, 0) + Me.SplitContainerControlMain.Name = "SplitContainerControlMain" + Me.SplitContainerControlMain.Panel1.Controls.Add(Me.PanelMain) + Me.SplitContainerControlMain.Panel1.Text = "Panel1" + Me.SplitContainerControlMain.Panel2.Controls.Add(Me.TabControlMain) + Me.SplitContainerControlMain.Panel2.Text = "Panel2" + Me.SplitContainerControlMain.Size = New System.Drawing.Size(800, 450) + Me.SplitContainerControlMain.SplitterPosition = 224 + Me.SplitContainerControlMain.TabIndex = 1 + Me.SplitContainerControlMain.Text = "SplitContainerControl1" + ' + 'btnCombobox + ' + Me.btnCombobox.Location = New System.Drawing.Point(15, 77) + Me.btnCombobox.Name = "btnCombobox" + Me.btnCombobox.Size = New System.Drawing.Size(122, 23) + Me.btnCombobox.TabIndex = 1 + Me.btnCombobox.Text = "Combobox" + Me.btnCombobox.UseVisualStyleBackColor = True + ' 'frmEntityDesigner ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Controls.Add(Me.SplitContainerMain) + Me.Controls.Add(Me.SplitContainerControlMain) Me.Name = "frmEntityDesigner" Me.Text = "Entitäten Designer" - CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit() - Me.SplitContainerMain.ResumeLayout(False) CType(Me.TabControlMain, System.ComponentModel.ISupportInitialize).EndInit() Me.TabControlMain.ResumeLayout(False) + Me.TabPageControls.ResumeLayout(False) Me.TabPageProperties.ResumeLayout(False) CType(Me.PropertyGridMain, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabPageControls.ResumeLayout(False) + CType(Me.SplitContainerControlMain, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControlMain.ResumeLayout(False) Me.ResumeLayout(False) End Sub - - Friend WithEvents SplitContainerMain As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents TabControlMain As DevExpress.XtraTab.XtraTabControl Friend WithEvents TabPageProperties As DevExpress.XtraTab.XtraTabPage Friend WithEvents PropertyGridMain As DevExpress.XtraVerticalGrid.PropertyGridControl Friend WithEvents TabPageControls As DevExpress.XtraTab.XtraTabPage - Friend WithEvents PanelMain As SnapPanel + Friend WithEvents PanelMain As ControlSnapPanel Friend WithEvents btnTextbox As Button Friend WithEvents btnLabel As Button + Friend WithEvents SplitContainerControlMain As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents btnCombobox As Button End Class diff --git a/EDMI_ClientSuite/EntityDesigner/frmEntityDesigner.vb b/EDMI_ClientSuite/EntityDesigner/frmEntityDesigner.vb index d939906f..21ef68bb 100644 --- a/EDMI_ClientSuite/EntityDesigner/frmEntityDesigner.vb +++ b/EDMI_ClientSuite/EntityDesigner/frmEntityDesigner.vb @@ -1,5 +1,7 @@ -Imports EDMI_ClientSuite.ClassControlUtils -Imports EDMI_ClientSuite.ControlProperties +Imports DigitalData.GUIS.ClientSuite.ClassControlUtils +Imports DigitalData.GUIS.ClientSuite.ControlProperties +Imports DevExpress.XtraEditors.Repository +Imports DevExpress.XtraVerticalGrid Public Class frmEntityDesigner Private _IsMouseDown As Boolean = False @@ -12,24 +14,45 @@ Public Class frmEntityDesigner Private _CurrentControl As Control = Nothing Private _ControlBuilder As ClassControlBuilder = Nothing + Private _DragDropButtonList As New List(Of Button) + Private Sub frmEntityDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load ' Assign Control Types to DragDrop Buttons btnLabel.Tag = ControlType.Label btnTextbox.Tag = ControlType.TextBox + btnCombobox.Tag = ControlType.Combobox + + ' Add Default Editors for certain datatypes in the PropertyGrid + Dim oColorEditor = New RepositoryItemColorEdit() + Dim oBooleanEditor = New RepositoryItemCheckEdit() + PropertyGridMain.DefaultEditors.Add(GetType(Color), oColorEditor) + PropertyGridMain.DefaultEditors.Add(GetType(Boolean), oBooleanEditor) + ' Create the control builder _ControlBuilder = New ClassControlBuilder(DesignMode:=True) + + ' Create a list of all DragDrop buttons + _DragDropButtonList.Add(btnLabel) + _DragDropButtonList.Add(btnTextbox) + _DragDropButtonList.Add(btnCombobox) + + ' Add EventHandlers for each button + For Each oButton As Button In _DragDropButtonList + AddHandler oButton.MouseDown, AddressOf DragDropButton_MouseDown + AddHandler oButton.MouseMove, AddressOf DragDropButton_MouseMove + Next End Sub #Region "Control Buttons Events" - Private Sub btnControl_MouseDown(sender As Object, e As MouseEventArgs) Handles btnLabel.MouseDown, btnTextbox.MouseDown + Private Sub DragDropButton_MouseDown(sender As Object, e As MouseEventArgs) _IsMouseDown = True End Sub - Private Sub btnControl_MouseMove(sender As Button, e As MouseEventArgs) Handles btnLabel.MouseMove, btnTextbox.MouseMove + Private Sub DragDropButton_MouseMove(sender As Button, e As MouseEventArgs) If _IsMouseDown Then Dim oButton = sender - Dim oType As ClassControlUtils.ControlType = oButton.Tag + Dim oType As ControlType = oButton.Tag oButton.DoDragDrop(oType.ToString, DragDropEffects.Copy) End If @@ -93,15 +116,25 @@ Public Class frmEntityDesigner End Sub Private Sub Control_MouseClick(sender As Control, e As MouseEventArgs) - TabControlMain.SelectedTabPage = TabPageControls + TabControlMain.SelectedTabPage = TabPageProperties HandleLoadProperties(sender) End Sub + Private Sub Control_MouseEnter(sender As Control, e As EventArgs) + Cursor = Cursors.Hand + End Sub + + Private Sub Control_MouseLeave(sender As Control, e As EventArgs) + Cursor = Cursors.Default + End Sub + Private Sub SetEventHandlers(Control As Control) AddHandler Control.MouseDown, AddressOf Control_MouseDown AddHandler Control.MouseMove, AddressOf Control_MouseMove AddHandler Control.MouseUp, AddressOf Control_MouseUp AddHandler Control.MouseClick, AddressOf Control_MouseClick + AddHandler Control.MouseEnter, AddressOf Control_MouseEnter + AddHandler Control.MouseLeave, AddressOf Control_MouseLeave End Sub #End Region @@ -112,10 +145,48 @@ Public Class frmEntityDesigner Select Case oType Case ControlType.Label - oProps = New ClassLabelProperties() - oProps.Id = oMetadata.Id - oProps.Name = Control.Name - oProps.Type = oType + oProps = New ClassLabelProperties With { + .Id = oMetadata.Id, + .Name = Control.Name, + .Type = oType, + .Location = Control.Location, + .Size = Control.Size, + .Font = Control.Font, + .Color = Control.ForeColor, + .Caption = Control.Text + } + Case ControlType.TextBox + oProps = New ClassTextboxProperties With { + .Id = oMetadata.Id, + .Name = Control.Name, + .Type = oType, + .Location = Control.Location, + .Size = Control.Size, + .Font = Control.Font, + .Color = ForeColor, + .IsReadOnly = False, + .IsRequired = False, + .Multiline = False, + .TabIndex = 0, + .TabStop = 1, + .DefaultValue = "" + } + Case ControlType.Combobox + oProps = New ClassComboboxProperties() With { + .Id = oMetadata.Id, + .Name = Control.Name, + .Type = oType, + .Location = Control.Location, + .Size = Control.Size, + .Font = Control.Font, + .Color = ForeColor, + .IsReadOnly = False, + .IsRequired = False, + .TabIndex = 0, + .TabStop = 1, + .DefaultValue = "", + .StaticList = New StaticList() + } Case Else Exit Sub End Select @@ -132,6 +203,8 @@ Public Class frmEntityDesigner oControl = _ControlBuilder.CreateLabel() Case ControlType.TextBox oControl = _ControlBuilder.CreateTextbox() + Case ControlType.Combobox + oControl = _ControlBuilder.CreateCombobox() Case Else MsgBox($"Unknown Control Type {type.ToString}") Exit Sub @@ -147,5 +220,38 @@ Public Class frmEntityDesigner PanelMain.Controls.Add(oControl) End Sub + Private Sub PropertyGridMain_RowChanged(sender As Object, e As DevExpress.XtraVerticalGrid.Events.RowChangedEventArgs) Handles PropertyGridMain.RowChanged + If e.ChangeType <> RowChangeTypeEnum.Value Then + Exit Sub + End If + Dim oPropertyName As String = e.Properties.FieldName + Dim oPropertyValue = e.Properties.Value + + + Select Case oPropertyName + Case "Name" + _CurrentControl.Name = oPropertyValue + Case "Location" + _CurrentControl.Location = oPropertyValue + Case "X" + _CurrentControl.Location = New Point(oPropertyValue, _CurrentControl.Location.Y) + Case "Y" + _CurrentControl.Location = New Point(_CurrentControl.Location.X, oPropertyValue) + Case "Size" + _CurrentControl.Size = oPropertyValue + Case "Width" + _CurrentControl.Size = New Size(oPropertyValue, _CurrentControl.Height) + Case "Height" + _CurrentControl.Size = New Size(_CurrentControl.Width, oPropertyValue) + Case "Font" + _CurrentControl.Font = oPropertyValue + Case "Color" + _CurrentControl.ForeColor = oPropertyValue + Case "Caption" + If TypeOf _CurrentControl Is Label Then + _CurrentControl.Text = oPropertyValue + End If + End Select + End Sub End Class \ No newline at end of file diff --git a/EDMI_ClientSuite/Strings/ControlProperties.Designer.vb b/EDMI_ClientSuite/Strings/ControlProperties.Designer.vb new file mode 100644 index 00000000..12f2a903 --- /dev/null +++ b/EDMI_ClientSuite/Strings/ControlProperties.Designer.vb @@ -0,0 +1,463 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Class ControlProperties + + Private Shared resourceMan As Global.System.Resources.ResourceManager + + Private Shared resourceCulture As Global.System.Globalization.CultureInfo + + _ + Friend Sub New() + MyBase.New + End Sub + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.GUIS.ClientSuite.ControlProperties", GetType(ControlProperties).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Shared Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Termin Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_appointment() As String + Get + Return ResourceManager.GetString("category_appointment", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Daten ähnelt. + ''' + Friend Shared ReadOnly Property category_data() As String + Get + Return ResourceManager.GetString("category_data", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Datenbank Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_database() As String + Get + Return ResourceManager.GetString("category_database", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Datums Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_date() As String + Get + Return ResourceManager.GetString("category_date", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Schrift Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_font() As String + Get + Return ResourceManager.GetString("category_font", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Form Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_form() As String + Get + Return ResourceManager.GetString("category_form", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Information ähnelt. + ''' + Friend Shared ReadOnly Property category_info() As String + Get + Return ResourceManager.GetString("category_info", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Eingabe Eigenschaften ähnelt. + ''' + Friend Shared ReadOnly Property category_input() As String + Get + Return ResourceManager.GetString("category_input", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Andere Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_other() As String + Get + Return ResourceManager.GetString("category_other", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Ansichts Einstellungen ähnelt. + ''' + Friend Shared ReadOnly Property category_view() As String + Get + Return ResourceManager.GetString("category_view", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Schlägt bereits eingegebene Einträge bei der der Eingabe vor. ähnelt. + ''' + Friend Shared ReadOnly Property desc_autosuggest() As String + Get + Return ResourceManager.GetString("desc_autosuggest", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Hintergrundfarbe des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_backcolor() As String + Get + Return ResourceManager.GetString("desc_backcolor", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Beschreibungstext dieses Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_caption() As String + Get + Return ResourceManager.GetString("desc_caption", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Spaltentitel des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_col_title() As String + Get + Return ResourceManager.GetString("desc_col_title", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Farbe an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_color() As String + Get + Return ResourceManager.GetString("desc_color", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Standardwert dieses Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_defaultvalue() As String + Get + Return ResourceManager.GetString("desc_defaultvalue", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Beschreibung des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden ähnelt. + ''' + Friend Shared ReadOnly Property desc_description() As String + Get + Return ResourceManager.GetString("desc_description", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt einen SQL Befehl an, der das Control abhängig vom Ergebnis (0 oder 1) aktiviert oder deaktiviert ähnelt. + ''' + Friend Shared ReadOnly Property desc_enabledwhen() As String + Get + Return ResourceManager.GetString("desc_enabledwhen", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Schriftart an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_fontstyle() As String + Get + Return ResourceManager.GetString("desc_fontstyle", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt das Format des Textes an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_format() As String + Get + Return ResourceManager.GetString("desc_format", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Form-ID der zu öffnenden Form an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_formid() As String + Get + Return ResourceManager.GetString("desc_formid", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Der Name eines Elements von dem das End-Datum gelesen wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_fromdate() As String + Get + Return ResourceManager.GetString("desc_fromdate", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Der Text, der beim überfahren des Controls angezeigt wird ähnelt. + ''' + Friend Shared ReadOnly Property desc_hint() As String + Get + Return ResourceManager.GetString("desc_hint", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die eindeutige ID des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_id() As String + Get + Return ResourceManager.GetString("desc_id", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Position des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_location() As String + Get + Return ResourceManager.GetString("desc_location", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Die Id des Formulars, das über das Kontextmenü geöffnet wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_masterdataid() As String + Get + Return ResourceManager.GetString("desc_masterdataid", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob das Feld mehrzeilig sein soll. ähnelt. + ''' + Friend Shared ReadOnly Property desc_multiline() As String + Get + Return ResourceManager.GetString("desc_multiline", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den internen Namen des Elements an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_name() As String + Get + Return ResourceManager.GetString("desc_name", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Ort des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden ähnelt. + ''' + Friend Shared ReadOnly Property desc_place() As String + Get + Return ResourceManager.GetString("desc_place", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob dieses Element nur lesbar ist. ähnelt. + ''' + Friend Shared ReadOnly Property desc_readonly() As String + Get + Return ResourceManager.GetString("desc_readonly", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an ob dieses Element benötigt wird um die Eingabe abzuschließen. ähnelt. + ''' + Friend Shared ReadOnly Property desc_required() As String + Get + Return ResourceManager.GetString("desc_required", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Screen-ID der zu öffnenden Form an. ähnelt. + ''' + Friend Shared ReadOnly Property desc_screenid() As String + Get + Return ResourceManager.GetString("desc_screenid", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob nur vorhandene Listeneinträge ausgewählt werden können ähnelt. + ''' + Friend Shared ReadOnly Property desc_select_only() As String + Get + Return ResourceManager.GetString("desc_select_only", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob das Feld als Spalte im Grid angezeigt wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_showcolumn() As String + Get + Return ResourceManager.GetString("desc_showcolumn", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Größe des Elements an ähnelt. + ''' + Friend Shared ReadOnly Property desc_size() As String + Get + Return ResourceManager.GetString("desc_size", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Datenbank-Abfrage für dieses Element an. Es können @RECORD_ID und @FORM_ID als Platzhalter verwendet werden. ähnelt. + ''' + Friend Shared ReadOnly Property desc_sqlcommand() As String + Get + Return ResourceManager.GetString("desc_sqlcommand", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Eine Liste von statischen Werten, die durch ';' getrennt sind. Überschreibt die Daten aus 'Datenbank-Einstellungen' ähnelt. + ''' + Friend Shared ReadOnly Property desc_staticlist() As String + Get + Return ResourceManager.GetString("desc_staticlist", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden ähnelt. + ''' + Friend Shared ReadOnly Property desc_subject() As String + Get + Return ResourceManager.GetString("desc_subject", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt den optionalen zweiten Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden ähnelt. + ''' + Friend Shared ReadOnly Property desc_subject2() As String + Get + Return ResourceManager.GetString("desc_subject2", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt die Reihenfolge an, in der das Element durch die Tabulatortaste aktiviert wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_tabindex() As String + Get + Return ResourceManager.GetString("desc_tabindex", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob das Element durch die Tabulartortaste aktiviert werden soll. ähnelt. + ''' + Friend Shared ReadOnly Property desc_tabstop() As String + Get + Return ResourceManager.GetString("desc_tabstop", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Der Name eines Elements von dem das Start-Datum gelesen wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_todate() As String + Get + Return ResourceManager.GetString("desc_todate", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Der Typ des Elements ähnelt. + ''' + Friend Shared ReadOnly Property desc_type() As String + Get + Return ResourceManager.GetString("desc_type", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gibt an, ob das Element angezeigt wird. ähnelt. + ''' + Friend Shared ReadOnly Property desc_visible() As String + Get + Return ResourceManager.GetString("desc_visible", resourceCulture) + End Get + End Property + End Class +End Namespace diff --git a/EDMI_ClientSuite/Strings/ControlProperties.en.Designer.vb b/EDMI_ClientSuite/Strings/ControlProperties.en.Designer.vb new file mode 100644 index 00000000..e69de29b diff --git a/EDMI_ClientSuite/Strings/ControlProperties.en.resx b/EDMI_ClientSuite/Strings/ControlProperties.en.resx new file mode 100644 index 00000000..e526f696 --- /dev/null +++ b/EDMI_ClientSuite/Strings/ControlProperties.en.resx @@ -0,0 +1,252 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + Scheduler Configuration + + + Data + + + Database Configuration + + + Date Configuration + + + Font Configuration + + + Form Configuration + + + Information + + + Other Configuration + + + View Configuration + + + Suggests already entered entries + + + The element's background color. + + + The element's caption. + + + The element's color. + + + The element's colum title. + + + The element's default value. + + + The appointment's description. Dynamic values from other controls can be inserted with the syntax [%controlname]. + + + An SQL Query that enables or disables the Control depending on the result (0 or 1) + + + The element's font style. + + + The element's number format. + + + The form-ID of the form that will be opened. + + + The appointment's start-date. Dynamic values from other controls can be inserted with the syntax [%controlname]. + + + The text that will be shown when the control is hovered over + + + The element's unique identifier. + + + The element's location + + + The Form's Id that will be opened via the contextmenu. + + + Should the element be a multiline field? + + + The element's internal name + + + The appointment's location. Dynamic values from other controls can be inserted with the syntax [%controlname]. + + + Is the element read-only? + + + Is the element required to be filled to complete the input? + + + The screen-ID of the form that will be opened. + + + Can only existing list items be selected? + + + Should the element be show as a column? + + + The element's size + + + The database query for this element. @RECORD_ID and @FORM_ID can be used as placeholders. Dynamic values from other controls can be inserted with the Syntax @controlid@. + + + A list of static values seperated by a semicolon (;) + + + The appointment's subject. Dynamic values from other controls can be inserted with the syntax [%controlname]. + + + The appointment's optional secondary subject. Dynamic values from other controls can be inserted with the syntax [%controlname]. + + + The order in which this element should be activated by the tab key. + + + Should this element be activated by the tab key? + + + The appointment's end-date. Dynamic values from other controls can be inserted with the syntax [%controlname]. + + + The element's type + + + Should the element be visible? + + + Input Configuration + + \ No newline at end of file diff --git a/EDMI_ClientSuite/Strings/ControlProperties.resx b/EDMI_ClientSuite/Strings/ControlProperties.resx new file mode 100644 index 00000000..af8c8fbb --- /dev/null +++ b/EDMI_ClientSuite/Strings/ControlProperties.resx @@ -0,0 +1,252 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + Termin Einstellungen + + + Daten + + + Datenbank Einstellungen + + + Datums Einstellungen + + + Schrift Einstellungen + + + Form Einstellungen + + + Information + + + Andere Einstellungen + + + Ansichts Einstellungen + + + Schlägt bereits eingegebene Einträge bei der der Eingabe vor. + + + Gibt die Hintergrundfarbe des Elements an. + + + Gibt den Beschreibungstext dieses Elements an. + + + Gibt die Farbe an. + + + Gibt den Spaltentitel des Elements an. + + + Gibt den Standardwert dieses Elements an. + + + Gibt die Beschreibung des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt einen SQL Befehl an, der das Control abhängig vom Ergebnis (0 oder 1) aktiviert oder deaktiviert + + + Gibt die Schriftart an. + + + Gibt das Format des Textes an. + + + Gibt die Form-ID der zu öffnenden Form an. + + + Der Name eines Elements von dem das End-Datum gelesen wird. + + + Der Text, der beim überfahren des Controls angezeigt wird + + + Gibt die eindeutige ID des Elements an. + + + Gibt die Position des Elements an. + + + Die Id des Formulars, das über das Kontextmenü geöffnet wird. + + + Gibt an, ob das Feld mehrzeilig sein soll. + + + Gibt den internen Namen des Elements an. + + + Gibt den Ort des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt an, ob dieses Element nur lesbar ist. + + + Gibt an ob dieses Element benötigt wird um die Eingabe abzuschließen. + + + Gibt die Screen-ID der zu öffnenden Form an. + + + Gibt an, ob nur vorhandene Listeneinträge ausgewählt werden können + + + Gibt an, ob das Feld als Spalte im Grid angezeigt wird. + + + Gibt die Größe des Elements an + + + Gibt die Datenbank-Abfrage für dieses Element an. Es können @RECORD_ID und @FORM_ID als Platzhalter verwendet werden. + + + Eine Liste von statischen Werten, die durch ';' getrennt sind. Überschreibt die Daten aus 'Datenbank-Einstellungen' + + + Gibt den Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt den optionalen zweiten Betreff des Termins an. Dynamische Werte aus anderen Controls können mit der Syntax [%controlname] eingefügt werden + + + Gibt die Reihenfolge an, in der das Element durch die Tabulatortaste aktiviert wird. + + + Gibt an, ob das Element durch die Tabulartortaste aktiviert werden soll. + + + Der Name eines Elements von dem das Start-Datum gelesen wird. + + + Der Typ des Elements + + + Gibt an, ob das Element angezeigt wird. + + + Eingabe Eigenschaften + + \ No newline at end of file