diff --git a/GUIs.Common/Common.vbproj b/GUIs.Common/Common.vbproj index 5a509861..59ef84e8 100644 --- a/GUIs.Common/Common.vbproj +++ b/GUIs.Common/Common.vbproj @@ -124,10 +124,6 @@ - - True - Application.myapp - True True @@ -174,7 +170,6 @@ MyApplicationCodeGenerator - Application.Designer.vb SettingsSingleFileGenerator diff --git a/GUIs.Common/My Project/Application.Designer.vb b/GUIs.Common/My Project/Application.Designer.vb deleted file mode 100644 index 8ab460ba..00000000 --- a/GUIs.Common/My Project/Application.Designer.vb +++ /dev/null @@ -1,13 +0,0 @@ -'------------------------------------------------------------------------------ -' -' 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 - diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb index e0231a28..8adbae39 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.Designer.vb @@ -255,78 +255,78 @@ Partial Class frmObjectPropertyDialog ' 'txtCreatedWhen ' - Me.txtCreatedWhen.Location = New System.Drawing.Point(85, 37) + Me.txtCreatedWhen.Location = New System.Drawing.Point(94, 37) Me.txtCreatedWhen.Name = "txtCreatedWhen" Me.txtCreatedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtCreatedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtCreatedWhen.Properties.ReadOnly = True - Me.txtCreatedWhen.Size = New System.Drawing.Size(199, 20) + Me.txtCreatedWhen.Size = New System.Drawing.Size(190, 20) Me.txtCreatedWhen.StyleController = Me.LayoutControlObject Me.txtCreatedWhen.TabIndex = 4 ' 'txtChangedWhen ' - Me.txtChangedWhen.Location = New System.Drawing.Point(85, 61) + Me.txtChangedWhen.Location = New System.Drawing.Point(94, 61) Me.txtChangedWhen.Name = "txtChangedWhen" Me.txtChangedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtChangedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtChangedWhen.Properties.ReadOnly = True - Me.txtChangedWhen.Size = New System.Drawing.Size(199, 20) + Me.txtChangedWhen.Size = New System.Drawing.Size(190, 20) Me.txtChangedWhen.StyleController = Me.LayoutControlObject Me.txtChangedWhen.TabIndex = 5 ' 'txtAccessedWhen ' - Me.txtAccessedWhen.Location = New System.Drawing.Point(85, 85) + Me.txtAccessedWhen.Location = New System.Drawing.Point(94, 85) Me.txtAccessedWhen.Name = "txtAccessedWhen" Me.txtAccessedWhen.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtAccessedWhen.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtAccessedWhen.Properties.ReadOnly = True - Me.txtAccessedWhen.Size = New System.Drawing.Size(199, 20) + Me.txtAccessedWhen.Size = New System.Drawing.Size(190, 20) Me.txtAccessedWhen.StyleController = Me.LayoutControlObject Me.txtAccessedWhen.TabIndex = 6 ' 'txtObjectId ' - Me.txtObjectId.Location = New System.Drawing.Point(85, 12) + Me.txtObjectId.Location = New System.Drawing.Point(94, 12) Me.txtObjectId.Name = "txtObjectId" Me.txtObjectId.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtObjectId.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtObjectId.Properties.ReadOnly = True - Me.txtObjectId.Size = New System.Drawing.Size(475, 20) + Me.txtObjectId.Size = New System.Drawing.Size(466, 20) Me.txtObjectId.StyleController = Me.LayoutControlObject Me.txtObjectId.TabIndex = 7 ' 'txtCreatedWho ' - Me.txtCreatedWho.Location = New System.Drawing.Point(361, 37) + Me.txtCreatedWho.Location = New System.Drawing.Point(370, 37) Me.txtCreatedWho.Name = "txtCreatedWho" Me.txtCreatedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtCreatedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtCreatedWho.Properties.ReadOnly = True - Me.txtCreatedWho.Size = New System.Drawing.Size(199, 20) + Me.txtCreatedWho.Size = New System.Drawing.Size(190, 20) Me.txtCreatedWho.StyleController = Me.LayoutControlObject Me.txtCreatedWho.TabIndex = 8 ' 'txtChangedWho ' - Me.txtChangedWho.Location = New System.Drawing.Point(361, 61) + Me.txtChangedWho.Location = New System.Drawing.Point(370, 61) Me.txtChangedWho.Name = "txtChangedWho" Me.txtChangedWho.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.txtChangedWho.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.txtChangedWho.Properties.ReadOnly = True - Me.txtChangedWho.Size = New System.Drawing.Size(199, 20) + Me.txtChangedWho.Size = New System.Drawing.Size(190, 20) Me.txtChangedWho.StyleController = Me.LayoutControlObject Me.txtChangedWho.TabIndex = 9 ' 'TextEdit1 ' - Me.TextEdit1.Location = New System.Drawing.Point(361, 85) + Me.TextEdit1.Location = New System.Drawing.Point(370, 85) Me.TextEdit1.Name = "TextEdit1" Me.TextEdit1.Properties.AppearanceReadOnly.BackColor = System.Drawing.Color.White Me.TextEdit1.Properties.AppearanceReadOnly.Options.UseBackColor = True Me.TextEdit1.Properties.ReadOnly = True - Me.TextEdit1.Size = New System.Drawing.Size(199, 20) + Me.TextEdit1.Size = New System.Drawing.Size(190, 20) Me.TextEdit1.StyleController = Me.LayoutControlObject Me.TextEdit1.TabIndex = 10 ' diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.resx b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.resx index fb61d3f3..7c3b9791 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.resx +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.resx @@ -120,7 +120,7 @@ - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAACcFAAAC77u/ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi diff --git a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb index 4cac70d8..163be21a 100644 --- a/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb +++ b/GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb @@ -88,7 +88,8 @@ Public Class frmObjectPropertyDialog .ID = oRow.Item("ATTR_ID"), .Title = oRow.Item("ATTR_TITLE"), .TypeID = oRow.Item("TYPE_ID"), - .TypeName = oRow.Item("TYPE_NAME") + .TypeName = oRow.Item("TYPE_NAME"), + .IsSystem = Convert.ToBoolean(oRow.Item("SYS_ATTRIBUTE")) }) Next @@ -175,7 +176,8 @@ Public Class frmObjectPropertyDialog End If For Each oAttribute As Attribute In oAttributes - Dim oControl = _Controls.GetControlForAttribute(oAttribute, True) + Dim oEditable = ShouldControlBeEditable(oAttribute) + Dim oControl = _Controls.GetControlForAttribute(oAttribute, Not oEditable) Dim oItem As LayoutControlItem = AttributeLayout.AddItem() oItem.Text = oAttribute.Title @@ -188,11 +190,13 @@ Public Class frmObjectPropertyDialog Dim oValue = Await GetAttributeValue(oItem.Name, _ObjectId) Dim oEdit = DirectCast(oItem.Control, BaseEdit) oEdit.EditValue = oValue + ElseIf TypeOf oItem.Control Is GridControl Then Dim oValueTable = Await GetAttributeValueAsTable(oItem.Name, _ObjectId) Dim oGrid = DirectCast(oItem.Control, GridControl) oGrid.DataSource = oValueTable + End If Next Catch ex As Exception @@ -200,6 +204,15 @@ Public Class frmObjectPropertyDialog End Try End Sub + + Private Function ShouldControlBeEditable(pAttribute As Attribute) As Boolean + If pAttribute.IsSystem Then + Return False + End If + + Return True + End Function + Private Function ShowAttributeHistory(pDatatable As DataTable) As Boolean Try If pDatatable.Rows.Count > 0 @@ -234,8 +247,4 @@ Public Class frmObjectPropertyDialog Return False End Try End Function - - Private Sub TabFormControl1_Click(sender As Object, e As EventArgs) Handles TabFormControl1.Click - - End Sub End Class \ No newline at end of file diff --git a/Modules.ZooFlow/Params/Attribute.vb b/Modules.ZooFlow/Params/Attribute.vb index b9e11ed7..3fc9052d 100644 --- a/Modules.ZooFlow/Params/Attribute.vb +++ b/Modules.ZooFlow/Params/Attribute.vb @@ -10,4 +10,5 @@ Public Property Title As String Public Property TypeID As Long Public Property TypeName As String + Public Property IsSystem As Boolean End Class