ps12exe

0.1.31

src/GUI/UItools.ps1

Add-Type @"
using System;
using System.Runtime.InteropServices;
namespace ps12exeGUI {
    public class Dwm {
        [DllImport("dwmapi.dll")]
        public static extern int DwmSetWindowAttribute(IntPtr hwnd, int attr, ref int attrValue, int attrSize);
        public static void SetWindowAttribute(IntPtr hwnd, int attr, int attrValue)
        {
            DwmSetWindowAttribute(hwnd, attr, ref attrValue, sizeof(int));
        }
    }
    public class Win32 {
        [DllImport("user32.dll", CharSet = CharSet.Auto)]
        public static extern IntPtr SendMessage(IntPtr hWnd, uint Msg, IntPtr wParam, IntPtr lParam);
        // GetConsoleWindow
        [DllImport("kernel32.dll", ExactSpelling = true)]
        public static extern IntPtr GetConsoleWindow();
        [DllImport("user32.dll")]
        public static extern bool ShowWindow(IntPtr hWnd, Int32 nCmdShow);
    }
}
"@    -ReferencedAssemblies System.Windows.Forms, System.Drawing, System.Drawing.Primitives, System.Net.Primitives, System.ComponentModel.Primitives, Microsoft.Win32.Primitives
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

function Set-WindowIcon ($hWnd, $iconPath) {
    $icon = [System.Drawing.Icon]::ExtractAssociatedIcon($iconPath)
    $hIcon = $icon.Handle
    $WM_SETICON = 0x0080
    $ICON_SMALL = 0
    $ICON_BIG = 1
    [ps12exeGUI.Win32]::SendMessage($hWnd, $WM_SETICON, $ICON_SMALL, $hIcon) | Out-Null
    [ps12exeGUI.Win32]::SendMessage($hWnd, $WM_SETICON, $ICON_BIG, $hIcon) | Out-Null
    $icon.Dispose()
}

function Update-ErrorLog {
    param(
        [System.Management.Automation.ErrorRecord]$ErrorRecord,
        [string]$Message,
        [switch]$Promote
    )

    if ( $Message -ne '' ) { [void][System.Windows.Forms.MessageBox]::Show($Message + $($ErrorRecord | Out-String), 'Exception Occurred') }

    Write-Error $ErrorRecord

    if ( $Promote ) { throw $ErrorRecord }
}

function ConvertFrom-WinFormsXML {
    param(
        [Parameter(Mandatory = $true)]$Xml,
        [string]$Reference,
        $ParentControl,
        [switch]$Suppress
    )

    try {
        if ( $Xml.GetType().Name -eq 'String' ) { $Xml = ([xml]$Xml).ChildNodes }

        if ( $Xml.ToString() -ne 'SplitterPanel' ) { $newControl = New-Object System.Windows.Forms.$($Xml.ToString()) }

        if ( $ParentControl ) {
            if ( $Xml.ToString() -eq 'ContextMenuStrip' ) { $ParentControl.ContextMenuStrip = $newControl }
            elseif ( $Xml.ToString() -eq 'SplitterPanel' ) { $newControl = $ParentControl.$($Xml.Name.Split('_')[-1]) }
            else { $ParentControl.Controls.Add($newControl) }
        }

        $Xml.Attributes | ForEach-Object {
            $attrib = $_
            $attribName = $_.ToString()

            if ( $Script:specialProps.Array -contains $attribName ) {
                if ( $attribName -eq 'Items' ) {
                    $($_.Value -replace "\|\*BreakPT\*\|", "`n").Split("`n") | ForEach-Object { [void]$newControl.Items.Add($_) }
                }
                else {
                    # Other than Items only BoldedDate properties on MonthCalendar control
                    $methodName = "Add$($attribName)" -replace "s$"

                    $($_.Value -replace "\|\*BreakPT\*\|", "`n").Split("`n") | ForEach-Object { $newControl.$attribName.$methodName($_) }
                }
            }
            elseif ( $null -ne $newControl.$attribName ) {
                $value = $attrib.Value
                if ( $newControl.$attribName.GetType().Name -eq 'Boolean' ) {
                    if ( $attrib.Value -eq 'True' ) { $value = $true } else { $value = $false }
                }
                $newControl.$attribName = $value
            }

            if (( $attrib.ToString() -eq 'Name' ) -and ( $Reference -ne '' )) {
                try { $refHashTable = Get-Variable -Name $Reference -Scope Script -ErrorAction Stop }
                catch {
                    New-Variable -Name $Reference -Scope Script -Value @{} | Out-Null
                    $refHashTable = Get-Variable -Name $Reference -Scope Script -ErrorAction SilentlyContinue
                }

                $refHashTable.Value.Add($attrib.Value, $newControl)
            }
        }

        if ( $Xml.ChildNodes ) { $Xml.ChildNodes | ForEach-Object { ConvertFrom-WinformsXML -Xml $_ -ParentControl $newControl -Reference $Reference -Suppress } }

        if ( $Suppress -eq $false ) { return $newControl }
    }
    catch { Update-ErrorLog -ErrorRecord $_ -Message "Exception encountered adding $($Xml.ToString()) to $($ParentControl.Name)" }
}

#endregion Functions


#region Environment Setup

try {
    Add-Type -AssemblyName System.Windows.Forms
    Add-Type -AssemblyName System.Drawing
}
catch { Update-ErrorLog -ErrorRecord $_ -Message "Exception encountered during Environment Setup." }

#endregion Environment Setup