'Imports Stax.ComponentModel
'Imports System.ComponentModel

'Public Class PropertyEditor
'    Inherits System.Windows.Forms.Form

'#Region " Windows Form Designer generated code "

'    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
'        If disposing Then
'            If Not (components Is Nothing) Then
'                components.Dispose()
'            End If
'        End If
'        MyBase.Dispose(disposing)
'    End Sub

'    'Required by the Windows Form Designer
'    Private components As System.ComponentModel.IContainer

'    'NOTE: The following procedure is required by the Windows Form Designer
'    'It can be modified using the Windows Form Designer.  
'    'Do not modify it using the code editor.
'    Friend WithEvents pPanel As System.Windows.Forms.Panel
'    Friend WithEvents bCancel As System.Windows.Forms.Button
'    Friend WithEvents bOK As System.Windows.Forms.Button
'    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'        Me.pPanel = New System.Windows.Forms.Panel
'        Me.bCancel = New System.Windows.Forms.Button
'        Me.bOK = New System.Windows.Forms.Button
'        Me.SuspendLayout()
'        '
'        'pPanel
'        '
'        Me.pPanel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
'                    Or System.Windows.Forms.AnchorStyles.Left) _
'                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
'        Me.pPanel.Location = New System.Drawing.Point(8, 8)
'        Me.pPanel.Name = "pPanel"
'        Me.pPanel.Size = New System.Drawing.Size(250, 224)
'        Me.pPanel.TabIndex = 0
'        '
'        'bCancel
'        '
'        Me.bCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
'        Me.bCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
'        Me.bCancel.FlatStyle = System.Windows.Forms.FlatStyle.System
'        Me.bCancel.Location = New System.Drawing.Point(178, 240)
'        Me.bCancel.Name = "bCancel"
'        Me.bCancel.Size = New System.Drawing.Size(80, 24)
'        Me.bCancel.TabIndex = 1
'        Me.bCancel.Text = "Cancel"
'        '
'        'bOK
'        '
'        Me.bOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
'        Me.bOK.DialogResult = System.Windows.Forms.DialogResult.OK
'        Me.bOK.FlatStyle = System.Windows.Forms.FlatStyle.System
'        Me.bOK.Location = New System.Drawing.Point(90, 240)
'        Me.bOK.Name = "bOK"
'        Me.bOK.Size = New System.Drawing.Size(80, 24)
'        Me.bOK.TabIndex = 2
'        Me.bOK.Text = "OK"
'        '
'        'EditFilter
'        '
'        Me.AcceptButton = Me.bOK
'        Me.CancelButton = Me.bCancel
'        Me.ClientSize = New System.Drawing.Size(266, 270)
'        Me.Controls.Add(Me.bOK)
'        Me.Controls.Add(Me.bCancel)
'        Me.Controls.Add(Me.pPanel)
'        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
'        Me.MaximizeBox = False
'        Me.MinimizeBox = False
'        Me.Name = "EditFilter"
'        Me.ShowInTaskbar = False
'        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
'        Me.Text = "Edit Filter"
'        Me.ResumeLayout(False)

'    End Sub

'#End Region

'    Public Sub New(ByVal o As Object)
'        MyBase.New()
'        InitializeComponent()

'        TemporaryObject = ObjectHelp.GetCopy(o)
'        Dim pc As New PropertyControl(TemporaryObject.GetType)
'        pc.Dock = DockStyle.Fill
'        pPanel.Controls.Add(pc)
'        pc.SetSelectedObjects(New Object() {TemporaryObject})

'        Dim c As Control = pc.Controls(pc.Controls.Count - 1)
'        ClientSize = New Size(Width, c.Top + c.Height + (ClientSize.Height - pPanel.Height))
'    End Sub

'    Private TemporaryObjectValue As Object

'    Public Property TemporaryObject() As Object
'        Get
'            Return TemporaryObjectValue
'        End Get
'        Set(ByVal Value As Object)
'            TemporaryObjectValue = Value
'        End Set
'    End Property
'End Class
