Reconfigure for GIT

2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,63 @@
+' Developer Express Code Central Example:
+' How to create a PropertyEditor based on the XtraRichEdit control
+' 
+' Take special note that this editor is intended to be used for a simple and most
+' common scenario when only one text property in a Detail View is edited with the
+' help of the XtraRichEdit control. Other scenarios are not supported in this
+' example and are required to be implemented manually. For example, if there are
+' more than one property, edited with this editor in a Detail View, then there may
+' be problems with merging in ribbons. See the issue for more detailed
+' information. See Also: Implement Custom Property Editors How to: Implement a
+' Property Editor for Windows Forms Applications XtraRichEdit Home
+' 
+' You can find sample updates and versions for different programming languages here:
+' http://www.devexpress.com/example=E1509
+
+Imports Microsoft.VisualBasic
+Imports System
+Imports DevExpress.ExpressApp.Win.Editors
+Imports DevExpress.ExpressApp.Model
+Imports DevExpress.Xpo
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Editors
+
+<PropertyEditor(GetType([String]), False)> _
+Public Class RichEditPropertyEditor
+    Inherits WinPropertyEditor
+    Public Sub New(ByVal objectType As Type, ByVal info As IModelMemberViewItem)
+        MyBase.New(objectType, info)
+        ControlBindingProperty = "RtfText"
+    End Sub
+    Private richEditUserControlCore As RichEditUserControl = Nothing
+    Public ReadOnly Property RichEditUserControl() As RichEditUserControl
+        Get
+            Return richEditUserControlCore
+        End Get
+    End Property
+    Protected Overrides Function CreateControlCore() As Object
+        richEditUserControlCore = New RichEditUserControl()
+        AddHandler richEditUserControlCore.RichEditControl.RtfTextChanged, AddressOf RichEditControl_RtfTextChanged
+        UpdateReadOnly()
+        Return richEditUserControlCore
+    End Function
+    Protected Overrides Sub OnAllowEditChanged()
+        MyBase.OnAllowEditChanged()
+        UpdateReadOnly()
+    End Sub
+    Private Sub UpdateReadOnly()
+        'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        'Dim _Customers_Collection As New XPCollection(Of Customers)(_ocur.Session)
+        'If RichEditUserControl IsNot Nothing AndAlso RichEditUserControl.RichEditControl IsNot Nothing Then
+
+        '    RichEditUserControl.RichEditControl.ReadOnly = Not AllowEdit
+        '    'RichEditUserControl.RichEditControl.Options.MailMerge.DataSource = _Customers_Collection
+        'End If
+    End Sub
+
+    Private Sub RichEditControl_RtfTextChanged(sender As Object, e As EventArgs)
+        'Me.PropertyValue = Me.RichEditUserControl.RichEditControl.RtfText
+        OnControlValueChanged()
+    End Sub
+
+End Class
+