GUI/Src/UITools.ps1
|
Add-Type @"
using System; using System.Collections.Generic; using System.Windows.Forms; using System.Runtime.InteropServices; public class psd { public static void SetCompat() { Application.EnableVisualStyles(); Application.SetCompatibleTextRenderingDefault(false); } [System.Runtime.InteropServices.DllImport("user32.dll")] public static extern bool SetProcessDPIAware(); } "@ -ReferencedAssemblies System.Windows.Forms, System.Drawing, System.Drawing.Primitives, System.Net.Primitives, System.ComponentModel.Primitives, Microsoft.Win32.Primitives $script:tscale = 1 #region Functions $vscreen = [System.Windows.Forms.SystemInformation]::VirtualScreen.height [psd]::SetProcessDPIAware() $screen = [System.Windows.Forms.SystemInformation]::VirtualScreen.height $script:tscale = ($screen / $vscreen) [psd]::SetCompat() function Update-ErrorLog { param( [System.Management.Automation.ErrorRecord]$ErrorRecord, [string]$Message, [switch]$Promote ) if ( $Message -ne '' ) { [void][System.Windows.Forms.MessageBox]::Show("$($Message)`r`n`r`nCheck '$($BaseDir)\exceptions.txt' for details.", 'Exception Occurred') } $date = Get-Date -Format 'yyyyMMdd HH:mm:ss' $ErrorRecord | Out-File "$($BaseDir)\tmpError.txt" Add-Content -Path "$($BaseDir)\exceptions.txt" -Value "$($date): $($(Get-Content "$($BaseDir)\tmpError.txt") -replace "\s+"," ")" Remove-Item -Path "$($BaseDir)\tmpError.txt" 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 ) { #brandoncomputer_ToolStripFix_Export if ( $Xml.ToString() -eq 'ToolStrip' ) { $newControl = New-Object System.Windows.Forms.MenuStrip $ParentControl.Controls.Add($newControl) } else { if ( $Xml.ToString() -match "^ToolStrip" ) { if ( $ParentControl.GetType().Name -match "^ToolStrip" ) { [void]$ParentControl.DropDownItems.Add($newControl) } else { [void]$ParentControl.Items.Add($newControl) } } elseif ( $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() $attrib = $_ $attribName = $_.ToString() if ($attribName -eq 'Size') { $n = $attrib.Value.split(',') $n[0] = [math]::round(($n[0] / 1) * $tscale) $n[1] = [math]::round(($n[1] / 1) * $tscale) if ("$($n[0]),$($n[1])" -ne ",") { $attrib.Value = "$($n[0]),$($n[1])" } } if ($attribName -eq 'Location') { $n = $attrib.Value.split(',') $n[0] = [math]::round(($n[0] / 1) * $tscale) $n[1] = [math]::round(($n[1] / 1) * $tscale) if ("$($n[0]),$($n[1])" -ne ",") { $attrib.Value = "$($n[0]),$($n[1])" } } if ($attribName -eq 'MaximumSize') { $n = $attrib.Value.split(',') $n[0] = [math]::round(($n[0] / 1) * $tscale) $n[1] = [math]::round(($n[1] / 1) * $tscale) if ("$($n[0]),$($n[1])" -ne ",") { $attrib.Value = "$($n[0]),$($n[1])" } } if ($attribName -eq 'MinimumSize') { $n = $attrib.Value.split(',') $n[0] = [math]::round(($n[0] / 1) * $tscale) $n[1] = [math]::round(($n[1] / 1) * $tscale) if ("$($n[0]),$($n[1])" -ne ",") { $attrib.Value = "$($n[0]),$($n[1])" } } if ($attribName -eq 'ImageScalingSize') { $n = $attrib.Value.split(',') $n[0] = [math]::round(($n[0] / 1) * $tscale) $n[1] = [math]::round(($n[1] / 1) * $tscale) if ("$($n[0]),$($n[1])" -ne ",") { $attrib.Value = "$($n[0]),$($n[1])" } } 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($_) } } } else { switch ($attribName) { FlatAppearance { $attrib.Value.Split('|') | ForEach-Object { $newControl.FlatAppearance.$($_.Split('=')[0]) = $_.Split('=')[1] } } default { if ( $null -ne $newControl.$attribName ) { if ( $newControl.$attribName.GetType().Name -eq 'Boolean' ) { if ( $attrib.Value -eq 'True' ) { $value = $true } else { $value = $false } } else { $value = $attrib.Value } } else { $value = $attrib.Value } #brandoncomputer_VariousDialogFixesInExport switch ($xml.ToString()) { "FolderBrowserDialog" { if ($xml.Description) { $newControl.Description = $xml.Description } if ($xml.Tag) { $newControl.Tag = $xml.Tag } if ($xml.RootFolder) { $newControl.RootFolder = $xml.RootFolder } if ($xml.SelectedPath) { $newControl.SelectedPath = $xml.SelectedPath } if ($xml.ShowNewFolderButton) { $newControl.ShowNewFolderButton = $xml.ShowNewFolderButton } } "OpenFileDialog" { if ($xml.AddExtension) { $newControl.AddExtension = $xml.AddExtension } if ($xml.AutoUpgradeEnabled) { $newControl.AutoUpgradeEnabled = $xml.AutoUpgradeEnabled } if ($xml.CheckFileExists) { $newControl.CheckFileExists = $xml.CheckFileExists } if ($xml.CheckPathExists) { $newControl.CheckPathExists = $xml.CheckPathExists } if ($xml.DefaultExt) { $newControl.DefaultExt = $xml.DefaultExt } if ($xml.DereferenceLinks) { $newControl.DereferenceLinks = $xml.DereferenceLinks } if ($xml.FileName) { $newControl.FileName = $xml.FileName } if ($xml.Filter) { $newControl.Filter = $xml.Filter } if ($xml.FilterIndex) { $newControl.FilterIndex = $xml.FilterIndex } if ($xml.InitialDirectory) { $newControl.InitialDirectory = $xml.InitialDirectory } if ($xml.Multiselect) { $newControl.Multiselect = $xml.Multiselect } if ($xml.ReadOnlyChecked) { $newControl.ReadOnlyChecked = $xml.ReadOnlyChecked } if ($xml.RestoreDirectory) { $newControl.RestoreDirectory = $xml.RestoreDirectory } if ($xml.ShowHelp) { $newControl.ShowHelp = $xml.ShowHelp } if ($xml.ShowReadOnly) { $newControl.ShowReadOnly = $xml.ShowReadOnly } if ($xml.SupportMultiDottedExtensions) { $newControl.SupportMultiDottedExtensions = $xml.SupportMultiDottedExtensions } if ($xml.Tag) { $newControl.Tag = $xml.Tag } if ($xml.Title) { $newControl.Title = $xml.Title } if ($xml.ValidateNames) { $newControl.ValidateNames = $xml.ValidateNames } } "ColorDialog" { if ($xml.AllowFullOpen) { $newControl.AllowFullOpen = $xml.AllowFullOpen } if ($xml.AnyColor) { $newControl.AnyColor = $xml.AnyColor } if ($xml.Color) { $newControl.Color = $xml.Color } if ($xml.FullOpen) { $newControl.FullOpen = $xml.FullOpen } if ($xml.ShowHelp) { $newControl.ShowHelp = $xml.ShowHelp } if ($xml.SolidColorOnly) { $newControl.SolidColorOnly = $xml.SolidColorOnly } if ($xml.Tag) { $newControl.Tag = $xml.Tag } } "FontDialog" { if ($xml.AllowScriptChange) { $newControl.AllowScriptChange = $xml.AllowScriptChange } if ($xml.AllowSimulations) { $newControl.AllowSimulations = $xml.AllowSimulations } if ($xml.AllowVectorFonts) { $newControl.AllowVectorFonts = $xml.AllowVectorFonts } if ($xml.Color) { $newControl.Color = $xml.Color } if ($xml.FixedPitchOnly) { $newControl.FixedPitchOnly = $xml.FixedPitchOnly } if ($xml.Font) { $newControl.Font = $xml.Font } if ($xml.FontMustExists) { $newControl.FontMustExists = $xml.FontMustExists } if ($xml.MaxSize) { $newControl.MaxSize = $xml.MaxSize } if ($xml.MinSize) { $newControl.MinSize = $xml.MinSize } if ($xml.ScriptsOnly) { $newControl.ScriptsOnly = $xml.ScriptsOnly } if ($xml.ShowApply) { $newControl.ShowApply = $xml.ShowApply } if ($xml.ShowColor) { $newControl.ShowColor = $xml.ShowColor } if ($xml.ShowEffects) { $newControl.ShowEffects = $xml.ShowEffects } if ($xml.ShowHelp) { $newControl.ShowHelp = $xml.ShowHelp } if ($xml.Tag) { $newControl.Tag = $xml.Tag } } "PageSetupDialog" { if ($xml.AllowMargins) { $newControl.AllowMargins = $xml.AllowMargins } if ($xml.AllowOrientation) { $newControl.AllowOrientation = $xml.AllowOrientation } if ($xml.AllowPaper) { $newControl.AllowPaper = $xml.AllowPaper } if ($xml.Document) { $newControl.Document = $xml.Document } if ($xml.EnableMetric) { $newControl.EnableMetric = $xml.EnableMetric } if ($xml.MinMargins) { $newControl.MinMargins = $xml.MinMargins } if ($xml.ShowHelp) { $newControl.ShowHelp = $xml.ShowHelp } if ($xml.ShowNetwork) { $newControl.ShowNetwork = $xml.ShowNetwork } if ($xml.Tag) { $newControl.Tag = $xml.Tag } } "PrintDialog" { if ($xml.AllowCurrentPage) { $newControl.AllowCurrentPage = $xml.AllowCurrentPage } if ($xml.AllowPrintToFile) { $newControl.AllowPrintToFile = $xml.AllowPrintToFile } if ($xml.AllowSelection) { $newControl.AllowSelection = $xml.AllowSelection } if ($xml.AllowSomePages) { $newControl.AllowSomePages = $xml.AllowSomePages } if ($xml.Document) { $newControl.Document = $xml.Document } if ($xml.PrintToFile) { $newControl.PrintToFile = $xml.PrintToFile } if ($xml.ShowHelp) { $newControl.ShowHelp = $xml.ShowHelp } if ($xml.ShowNetwork) { $newControl.ShowNetwork = $xml.ShowNetwork } if ($xml.Tag) { $newControl.Tag = $xml.Tag } if ($xml.UseEXDialog) { $newControl.UseEXDialog = $xml.UseEXDialog } } "PrintPreviewDialog" { if ($xml.AutoSizeMode) { $newControl.AutoSizeMode = $xml.AutoSizeMode } if ($xml.Document) { $newControl.Document = $xml.Document } if ($xml.MainMenuStrip) { $newControl.MainMenuStrip = $xml.MainMenuStrip } if ($xml.ShowIcon) { $newControl.ShowIcon = $xml.ShowIcon } if ($xml.UseAntiAlias) { $newControl.UseAntiAlias = $xml.UseAntiAlias } } "SaveFileDialog" { if ($xml.AddExtension) { $newControl.AddExtension = $xml.AddExtension } if ($xml.AutoUpgradeEnabled) { $newControl.AutoUpgradeEnabled = $xml.AutoUpgradeEnabled } if ($xml.CheckFileExists) { $newControl.CheckFileExists = $xml.CheckFileExists } if ($xml.CheckPathExists) { $newControl.CheckPathExists = $xml.CheckPathExists } if ($xml.CreatePrompt) { $newControl.CreatePrompt = $xml.CreatePrompt } if ($xml.DefaultExt) { $newControl.DefaultExt = $xml.DefaultExt } if ($xml.DereferenceLinks) { $newControl.DereferenceLinks = $xml.DereferenceLinks } if ($xml.FileName) { $newControl.FileName = $xml.FileName } if ($xml.Filter) { $newControl.Filter = $xml.Filter } if ($xml.FilterIndex) { $newControl.FilterIndex = $xml.FilterIndex } if ($xml.InitialDirectory) { $newControl.InitialDirectory = $xml.InitialDirectory } if ($xml.Multiselect) { $newControl.OverwritePrompt = $xml.OverwritePrompt } if ($xml.RestoreDirectory) { $newControl.RestoreDirectory = $xml.RestoreDirectory } if ($xml.ShowHelp) { $newControl.ShowHelp = $xml.ShowHelp } if ($xml.SupportMultiDottedExtensions) { $newControl.SupportMultiDottedExtensions = $xml.SupportMultiDottedExtensions } if ($xml.Tag) { $newControl.Tag = $xml.Tag } if ($xml.Title) { $newControl.Title = $xml.Title } if ($xml.ValidateNames) { $newControl.ValidateNames = $xml.ValidateNames } } "Timer" { if ($xml.Enabled) { $newControl.Enabled = $xml.Enabled } if ($xml.Interval) { $newControl.Interval = $xml.Interval } if ($xml.Tag) { $newControl.Tag = $xml.Tag } } default { $newControl.$attribName = $value } } } } } #brandoncomputer_DirectReferenceObjectsExport if ($newControl.Name) { New-Variable -Name $newControl.Name -Scope Script -Value $newControl | Out-Null } 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 |