staxrip/Source/Forms/MacroEditorDialog.vb

Imports StaxRip.UI

Public Class MacroEditorDialog
    Inherits DialogBase

#Region " Designer "
    Friend WithEvents MacroEditorControl As StaxRip.MacroEditorControl
    Friend WithEvents bnContext As ButtonEx
    Friend WithEvents bnCancel As ButtonEx
    Friend WithEvents bnOK As ButtonEx
    Friend WithEvents tlp As TableLayoutPanel
    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MacroEditorControl = New StaxRip.MacroEditorControl()
        Me.bnContext = New ButtonEx
        Me.bnCancel = New ButtonEx
        Me.bnOK = New ButtonEx
        Me.tlp = New System.Windows.Forms.TableLayoutPanel()
        Me.tlp.SuspendLayout()
        Me.SuspendLayout()
        '
        'MacroEditorControl
        '
        Me.MacroEditorControl.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.tlp.SetColumnSpan(Me.MacroEditorControl, 3)
        Me.MacroEditorControl.Location = New System.Drawing.Point(15, 0)
        Me.MacroEditorControl.Margin = New System.Windows.Forms.Padding(15, 0, 15, 0)
        Me.MacroEditorControl.Name = "MacroEditorControl"
        Me.MacroEditorControl.Size = New System.Drawing.Size(845, 607)
        Me.MacroEditorControl.TabIndex = 0
        '
        'bnContext
        '
        Me.bnContext.Anchor = System.Windows.Forms.AnchorStyles.Left
        Me.bnContext.Location = New System.Drawing.Point(15, 622)
        Me.bnContext.Margin = New System.Windows.Forms.Padding(15)
        Me.bnContext.Name = "bnContext"
        Me.bnContext.Size = New System.Drawing.Size(350, 70)
        Me.bnContext.TabIndex = 2
        Me.bnContext.Visible = False
        '
        'bnCancel
        '
        Me.bnCancel.Anchor = System.Windows.Forms.AnchorStyles.None
        Me.bnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.bnCancel.Location = New System.Drawing.Point(610, 622)
        Me.bnCancel.Margin = New System.Windows.Forms.Padding(15)
        Me.bnCancel.Size = New System.Drawing.Size(250, 70)
        Me.bnCancel.Text = "Cancel"
        '
        'bnOK
        '
        Me.bnOK.Anchor = System.Windows.Forms.AnchorStyles.None
        Me.bnOK.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.bnOK.Location = New System.Drawing.Point(345, 622)
        Me.bnOK.Margin = New System.Windows.Forms.Padding(0)
        Me.bnOK.Size = New System.Drawing.Size(250, 70)
        Me.bnOK.Text = "OK"
        '
        'tlp
        '
        Me.tlp.ColumnCount = 3
        Me.tlp.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
        Me.tlp.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
        Me.tlp.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
        Me.tlp.Controls.Add(Me.bnCancel, 2, 1)
        Me.tlp.Controls.Add(Me.MacroEditorControl, 0, 0)
        Me.tlp.Controls.Add(Me.bnContext, 0, 1)
        Me.tlp.Controls.Add(Me.bnOK, 1, 1)
        Me.tlp.Dock = System.Windows.Forms.DockStyle.Fill
        Me.tlp.Location = New System.Drawing.Point(0, 0)
        Me.tlp.Margin = New System.Windows.Forms.Padding(5)
        Me.tlp.Name = "tlp"
        Me.tlp.RowCount = 2
        Me.tlp.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
        Me.tlp.RowStyles.Add(New System.Windows.Forms.RowStyle())
        Me.tlp.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
        Me.tlp.Size = New System.Drawing.Size(875, 707)
        Me.tlp.TabIndex = 3
        '
        'MacroEditorDialog
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(288.0!, 288.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
        Me.CancelButton = Me.bnCancel
        Me.ClientSize = New System.Drawing.Size(875, 707)
        Me.Controls.Add(Me.tlp)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
        Me.KeyPreview = True
        Me.Margin = New System.Windows.Forms.Padding(11, 10, 11, 10)
        Me.Name = "MacroEditorDialog"
        Me.Text = $"Macro Editor - {g.DefaultCommands.GetApplicationDetails()}"
        Me.tlp.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private HelpText As String

    Sub New()
        MyBase.New()
        InitializeComponent()
        SetMacroDefaults()

        ApplyTheme()

        AddHandler ThemeManager.CurrentThemeChanged, AddressOf OnThemeChanged
    End Sub

    Protected Overrides Sub Dispose(disposing As Boolean)
        RemoveHandler ThemeManager.CurrentThemeChanged, AddressOf OnThemeChanged
        components?.Dispose()
        MyBase.Dispose(disposing)
    End Sub

    Sub OnThemeChanged(theme As Theme)
        ApplyTheme(theme)
    End Sub

    Sub ApplyTheme()
        ApplyTheme(ThemeManager.CurrentTheme)
    End Sub

    Sub ApplyTheme(theme As Theme)
        If DesignHelp.IsDesignMode Then
            Exit Sub
        End If

        BackColor = theme.General.BackColor
    End Sub

    Sub SetBatchDefaults()
        Text = $"Batch Editor - {g.DefaultCommands.GetApplicationDetails()}"
        HelpText = "Editor for batch script editing."
        MacroEditorControl.SetCommandLineDefaults()
        ScaleClientSize(45, 30)
    End Sub

    Sub SetMacroDefaults()
        Text = $"Macro Editor - {g.DefaultCommands.GetApplicationDetails()}"
        HelpText = "Editor for strings that may contain macros."
        MacroEditorControl.SetMacroDefaults()
        ScaleClientSize(45, 30)
    End Sub

    Sub SetScriptDefaults()
        Text = $"Script Editor - {g.DefaultCommands.GetApplicationDetails()}"
        HelpText = "Editor for scripts that may contain macros."
        MacroEditorControl.SetScriptDefaults()
        ScaleClientSize(45, 30)
    End Sub

    Sub UniversalEditor_HelpRequested(sender As Object, e As HelpEventArgs) Handles Me.HelpRequested
        Dim form As New HelpForm()
        form.Doc.WriteStart(Text)
        form.Doc.WriteParagraph(HelpText)
        form.Doc.WriteTips(MacroEditorControl.TipProvider.GetTips)
        form.Doc.WriteTable("Macros", Macro.GetTips(True, False, True, True, False))
        form.Show()
    End Sub

    Protected Overrides Sub OnLoad(e As EventArgs)
        MyBase.OnLoad(e)

        bnContext.AutoSize = True
        Dim editorControl = MacroEditorControl
        Dim textSize = TextRenderer.MeasureText(editorControl.rtbEdit.Text, editorControl.rtbEdit.Font)
        Dim workingArea = Screen.FromControl(Me).WorkingArea

        If Width > workingArea.Width * 0.8 Then
            Width = CInt(workingArea.Width * 0.8)
        End If

        If Height > workingArea.Height * 0.9 Then
            Height = CInt(workingArea.Height * 0.9)
        End If
    End Sub
End Class