Namespace UI
    Public Class StringEditorForm
        Inherits ExtendedForm

#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.
        Public WithEvents tb As System.Windows.Forms.TextBox
        Public WithEvents bOK As System.Windows.Forms.Button
        Public WithEvents cbWrap As System.Windows.Forms.CheckBox
        Friend WithEvents SmartTagProvider As Stax.UI.Design.SmartTagProvider
        Public WithEvents bCancel As System.Windows.Forms.Button
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Me.bOK = New System.Windows.Forms.Button
            Me.bCancel = New System.Windows.Forms.Button
            Me.tb = New System.Windows.Forms.TextBox
            Me.cbWrap = New System.Windows.Forms.CheckBox
            Me.SmartTagProvider = New Stax.UI.Design.SmartTagProvider
            Me.SuspendLayout()
            '
            '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.Location = New System.Drawing.Point(320, 324)
            Me.bOK.Name = "bOK"
            Me.bOK.Size = New System.Drawing.Size(75, 24)
            Me.bOK.TabIndex = 0
            Me.bOK.Text = "OK"
            '
            '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.Location = New System.Drawing.Point(401, 324)
            Me.bCancel.Name = "bCancel"
            Me.bCancel.Size = New System.Drawing.Size(75, 24)
            Me.bCancel.TabIndex = 1
            Me.bCancel.Text = "Cancel"
            '
            'tb
            '
            Me.tb.AcceptsReturn = True
            Me.tb.AcceptsTab = True
            Me.tb.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.tb.Location = New System.Drawing.Point(13, 13)
            Me.tb.Multiline = True
            Me.tb.Name = "tb"
            Me.tb.ScrollBars = System.Windows.Forms.ScrollBars.Both
            Me.tb.Size = New System.Drawing.Size(463, 305)
            Me.tb.TabIndex = 2
            Me.tb.WordWrap = False
            '
            'cbWrap
            '
            Me.cbWrap.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
            Me.cbWrap.AutoSize = True
            Me.cbWrap.Location = New System.Drawing.Point(12, 331)
            Me.cbWrap.Name = "cbWrap"
            Me.cbWrap.Size = New System.Drawing.Size(48, 17)
            Me.cbWrap.TabIndex = 3
            Me.cbWrap.Text = "Wrap"
            '
            'StringEditorForm
            '
            Me.AcceptButton = Me.bOK
            Me.CancelButton = Me.bCancel
            Me.ClientSize = New System.Drawing.Size(488, 360)
            Me.Controls.Add(Me.cbWrap)
            Me.Controls.Add(Me.tb)
            Me.Controls.Add(Me.bCancel)
            Me.Controls.Add(Me.bOK)
            Me.MinimizeBox = False
            Me.Name = "StringEditorForm"
            Me.ShowIcon = False
            Me.ShowInTaskbar = False
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
            Me.Text = "String Editor"
            Me.ResumeLayout(False)
            Me.PerformLayout()

        End Sub

#End Region

        Public Sub New()
            MyBase.New()
            InitializeComponent()
            cbWrap.Checked = True
        End Sub

        Private Sub tb_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles tb.KeyDown
            If e.KeyData = (Keys.Enter Or Keys.Control) Then
                e.Handled = True
                bOK.PerformClick()
            End If
        End Sub

        Private Sub cbWrap_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles cbWrap.CheckedChanged
            tb.WordWrap = cbWrap.Checked
        End Sub
    End Class
End Namespace