First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,32 @@
+Partial Class ViewHintController
+
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+        MyClass.New()
+
+        'Required for Windows.Forms Class Composition Designer support
+        Container.Add(Me)
+
+    End Sub
+
+    'Component overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing AndAlso components IsNot Nothing Then
+            components.Dispose()
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'Required by the Component Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Component Designer
+    'It can be modified using the Component Designer.
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        components = New System.ComponentModel.Container()
+    End Sub
+
+End Class
@@ -0,0 +1,66 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Templates
+Imports System.Windows.Forms
+Imports DevExpress.Utils.Frames
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Model
+
+Partial Public Class ViewHintController
+    Inherits ViewController
+    Public Sub New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        AddHandler Frame.GetController(Of WindowHintController)().HintPanelReady, AddressOf ViewHintController_HintPanelReady
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        RemoveHandler Frame.GetController(Of WindowHintController)().HintPanelReady, AddressOf ViewHintController_HintPanelReady
+    End Sub
+    Private Sub ViewHintController_HintPanelReady(ByVal sender As Object, ByVal e As HintPanelReadyEventArgs)
+
+        e.HintPanel.Text = ""
+        e.HintPanel.Visible = False
+
+        If TryCast(View, DevExpress.ExpressApp.ListView) IsNot Nothing Then
+            Dim _ListView As DevExpress.ExpressApp.ListView = TryCast(View, DevExpress.ExpressApp.ListView)
+            Dim _IModelListView As IModelListView
+            Dim _IModelListViewExtender As IModelListViewExtender
+
+            _IModelListView = _ListView.Model
+            _IModelListViewExtender = TryCast(_IModelListView, IModelListViewExtender)
+
+            If String.IsNullOrEmpty(_IModelListViewExtender.Hints) = False Then
+                e.HintPanel.Text = _IModelListViewExtender.Hints
+                e.HintPanel.Visible = True
+            End If
+        End If
+
+        If TryCast(View, DevExpress.ExpressApp.DetailView) IsNot Nothing Then
+            Dim _DetailView As DevExpress.ExpressApp.DetailView = TryCast(View, DevExpress.ExpressApp.DetailView)
+            Dim _IModelDetailView As IModelDetailView
+            Dim _IModelDetailViewExtender As IModelDetailViewExtender
+
+            _IModelDetailView = _DetailView.Model
+            _IModelDetailViewExtender = TryCast(_IModelDetailView, IModelDetailViewExtender)
+
+            If String.IsNullOrEmpty(_IModelDetailViewExtender.Hints) = False Then
+                e.HintPanel.Text = _IModelDetailViewExtender.Hints
+                e.HintPanel.Visible = True
+            End If
+        End If
+
+
+    End Sub
+End Class
@@ -0,0 +1,31 @@
+Partial Class WindowHintController
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+        MyClass.New()
+
+        'Required for Windows.Forms Class Composition Designer support
+        Container.Add(Me)
+
+    End Sub
+
+    'Component overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing AndAlso components IsNot Nothing Then
+            components.Dispose()
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'Required by the Component Designer
+    Private components As System.ComponentModel.IContainer
+
+    'NOTE: The following procedure is required by the Component Designer
+    'It can be modified using the Component Designer.
+    'Do not modify it using the code editor.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        components = New System.ComponentModel.Container()
+    End Sub
+
+End Class
@@ -0,0 +1,63 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Utils.Frames
+Imports DevExpress.ExpressApp.Templates
+Imports System.Windows.Forms
+
+Partial Public Class WindowHintController
+    Inherits WindowController
+    Private hintPanel_Renamed As NotePanelEx
+    Public Sub New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        AddHandler Window.TemplateViewChanged, AddressOf Window_TemplateViewChanged
+    End Sub
+    Public ReadOnly Property HintPanel() As NotePanelEx
+        Get
+            Return hintPanel_Renamed
+        End Get
+    End Property
+    Private Sub Window_TemplateViewChanged(ByVal sender As Object, ByVal e As EventArgs)
+        If TypeOf Frame.Template Is IViewSiteTemplate Then
+            PlaceHintPanel()
+        End If
+    End Sub
+    Public Event HintPanelReady As EventHandler(Of HintPanelReadyEventArgs)
+    Private Sub PlaceHintPanel()
+        hintPanel_Renamed = New NotePanelEx()
+        hintPanel_Renamed.BackColor = System.Drawing.Color.LightGoldenrodYellow
+        hintPanel_Renamed.Dock = System.Windows.Forms.DockStyle.Bottom
+        hintPanel_Renamed.MinimumSize = New System.Drawing.Size(350, 33)
+        hintPanel_Renamed.Visible = False
+        Dim viewSiteControl As Control = TryCast((TryCast(Frame.Template, IViewSiteTemplate)).ViewSiteControl, Control)
+        viewSiteControl.Controls.Add(hintPanel_Renamed)
+        DoHintPanelReady(hintPanel_Renamed)
+    End Sub
+    Private Sub DoHintPanelReady(ByVal hintPanel As NotePanelEx)
+        RaiseEvent HintPanelReady(Me, New HintPanelReadyEventArgs(hintPanel))
+    End Sub
+End Class
+Public Class HintPanelReadyEventArgs
+    Inherits EventArgs
+    Private hintPanel_Renamed As NotePanelEx
+    Public Sub New(ByVal hintPanel As NotePanelEx)
+        MyBase.New()
+        Me.hintPanel_Renamed = hintPanel
+    End Sub
+    Public ReadOnly Property HintPanel() As NotePanelEx
+        Get
+            Return hintPanel_Renamed
+        End Get
+    End Property
+End Class