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,37 @@
+Option Strict Off
+Imports System
+Imports System.ComponentModel
+Imports System.Drawing
+Imports System.Drawing.Design
+Imports System.Reflection
+Imports System.Windows.Forms
+Imports System.Windows.Forms.Design
+
+' This UITypeEditor can be associated with Int32, Double and Single
+' properties to provide a design-mode angle selection interface.
+<System.Security.Permissions.PermissionSetAttribute(System.Security.Permissions.SecurityAction.Demand, Name:="FullTrust")> _
+Public Class SISHtmlEditor
+    Inherits System.Drawing.Design.UITypeEditor
+
+    Public Sub New()
+    End Sub
+
+    ' Indicates whether the UITypeEditor provides a form-based (modal) dialog, 
+    ' drop down dialog, or no UI outside of the properties window.
+    Public Overloads Overrides Function GetEditStyle(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.Drawing.Design.UITypeEditorEditStyle
+        Return UITypeEditorEditStyle.Modal
+    End Function
+
+    ' Displays the UI for value selection.
+    Public Overloads Overrides Function EditValue(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As System.IServiceProvider, ByVal value As Object) As Object
+        Dim edSvc As IWindowsFormsEditorService = CType(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
+        If (edSvc IsNot Nothing) Then
+            ' Display an angle selection control and retrieve the value.
+            Dim HtmlControl As New DevExpress.ExpressApp.HtmlPropertyEditor.Win.HtmlEditor
+            edSvc.ShowDialog(HtmlControl.FindForm)
+            Return HtmlControl.Html
+        End If
+        Return value
+    End Function
+End Class
+