Functions/New-FontPicker.ps1
|
function New-FontPicker { <# .SYNOPSIS Present a dialog to the user and allow them to select a font and its characteristics .DESCRIPTION Present a dialog to the user and allow them to select a font and its characteristics .EXAMPLE New-FontPicker Will present the user with a font dialog and return the following if Arial 18 point italic was selected: FontFamily : [FontFamily: Name=Arial] Bold : False GdiCharSet : 0 GdiVerticalFont : False Italic : True Name : Arial OriginalFontName : Strikeout : False Underline : False Style : Italic Size : 18 SizeInPoints : 18 Unit : Point Height : 28 IsSystemFont : False SystemFontName : .NOTES If the user selects 'Cancel' from the dialog box no value is returned. #> [CmdletBinding()] [Diagnostics.CodeAnalysis.SuppressMessageAttribute('PSUseShouldProcessForStateChangingFunctions', '')] param ( ) begin { Write-Verbose -Message "Starting [$($MyInvocation.Mycommand)]" #~~< FontPicker >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $FontPicker = New-Object -TypeName System.Windows.Forms.Form $FontPicker.ClientSize = New-Object -TypeName System.Drawing.Size -ArgumentList (496, 204) $FontPicker.Font = New-Object -TypeName System.Drawing.Font -ArgumentList ('Segoe UI', 10.0, [System.Drawing.FontStyle]::Regular, [System.Drawing.GraphicsUnit]::Point, ([byte](0))) $FontPicker.Text = 'Font Picker' $FontPicker.AutoSize = $true $FontPicker.AutoSizeMode = 'GrowOnly' $FontPicker.Icon = (Join-Path -Path $Script:ModulePath -ChildPath 'PoshFunctions.ico') #~~< OKButton >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $OKButton = New-Object -TypeName System.Windows.Forms.Button $OKButton.DialogResult = [System.Windows.Forms.DialogResult]::OK $OKButton.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (389, 69) $OKButton.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (95, 23) $OKButton.TabIndex = 1 $OKButton.Text = 'OK' $OKButton.UseVisualStyleBackColor = $true $FontPicker.AcceptButton = $OKButton #~~< CancelButton >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $CancelButton = New-Object -TypeName System.Windows.Forms.Button $CancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel $CancelButton.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (389, 125) $CancelButton.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (95, 23) $CancelButton.TabIndex = 2 $CancelButton.Text = 'Cancel' $CancelButton.UseVisualStyleBackColor = $true $FontPicker.CancelButton = $CancelButton #~~< ItalicsCheck >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $ItalicsCheck = New-Object -TypeName System.Windows.Forms.CheckBox $ItalicsCheck.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (261, 153) $ItalicsCheck.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (104, 24) $ItalicsCheck.TabIndex = 10 $ItalicsCheck.Text = 'Italic' $ItalicsCheck.Enabled = $false $ItalicsCheck.UseVisualStyleBackColor = $true #~~< BoldCheck >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $BoldCheck = New-Object -TypeName System.Windows.Forms.CheckBox $BoldCheck.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (261, 100) $BoldCheck.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (104, 24) $BoldCheck.TabIndex = 9 $BoldCheck.Text = 'Bold' $BoldCheck.Enabled = $false $BoldCheck.UseVisualStyleBackColor = $true #~~< StyleText >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $StyleText = New-Object -TypeName System.Windows.Forms.TextBox $StyleText.Enabled = $false $StyleText.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (13, 156) $StyleText.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (161, 21) $StyleText.TabIndex = 8 $StyleText.TabStop = $false $StyleText.Text = '' #~~< StyleLabel >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $StyleLabel = New-Object -TypeName System.Windows.Forms.Label $StyleLabel.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (12, 130) $StyleLabel.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (100, 23) $StyleLabel.TabIndex = 7 $StyleLabel.Text = 'Style' #~~< SizeText >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $SizeText = New-Object -TypeName System.Windows.Forms.TextBox $SizeText.Enabled = $false $SizeText.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (12, 100) $SizeText.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (60, 21) $SizeText.TabIndex = 6 $SizeText.TabStop = $false $SizeText.Text = '' #~~< SizeLabel >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $SizeLabel = New-Object -TypeName System.Windows.Forms.Label $SizeLabel.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (12, 74) $SizeLabel.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (100, 23) $SizeLabel.TabIndex = 5 $SizeLabel.Text = 'Font size' #~~< NameText >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $NameText = New-Object -TypeName System.Windows.Forms.TextBox $NameText.Enabled = $false $NameText.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (13, 42) $NameText.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (312, 21) $NameText.TabIndex = 4 $NameText.TabStop = $false $NameText.Text = '' #~~< NameLabel >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $NameLabel = New-Object -TypeName System.Windows.Forms.Label $NameLabel.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (13, 25) $NameLabel.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (100, 23) $NameLabel.TabIndex = 3 $NameLabel.Text = 'Font name' #~~< FontButon >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $FontButon = New-Object -TypeName System.Windows.Forms.Button $FontButon.Location = New-Object -TypeName System.Drawing.Point -ArgumentList (389, 21) $FontButon.Size = New-Object -TypeName System.Drawing.Size -ArgumentList (95, 23) $FontButon.TabIndex = 0 $FontButon.Text = 'Font dialog' $FontButon.UseVisualStyleBackColor = $true $FontButon.add_Click( { FontButonClick -object ($FontButon) }) $FontPicker.Controls.Add($ItalicsCheck) $FontPicker.Controls.Add($BoldCheck) $FontPicker.Controls.Add($StyleText) $FontPicker.Controls.Add($StyleLabel) $FontPicker.Controls.Add($SizeText) $FontPicker.Controls.Add($SizeLabel) $FontPicker.Controls.Add($NameText) $FontPicker.Controls.Add($NameLabel) $FontPicker.Controls.Add($CancelButton) $FontPicker.Controls.Add($OKButton) $FontPicker.Controls.Add($FontButon) $FontPicker.add_Load( { FormLoad -object ($FontPicker) }) #~~< FontDialog >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $FontDialog = New-Object -TypeName System.Windows.Forms.FontDialog $FontDialog.ShowHelp = $true function FontButonClick { [CmdletBinding()] [Diagnostics.CodeAnalysis.SuppressMessageAttribute('PSReviewUnusedParameter', '')] param ( $object ) $FontResult = $FontDialog.ShowDialog() if ($FontResult -eq 'OK') { $NameText.Text = $FontDialog.Font.Name $SizeText.Text = $FontDialog.Font.Size $StyleText.Text = $FontDialog.Font.Style $BoldCheck.Checked = $FontDialog.Font.Bold $ItalicsCheck.Checked = $FontDialog.Font.Italic } } function FormLoad { [CmdletBinding()] [Diagnostics.CodeAnalysis.SuppressMessageAttribute('PSReviewUnusedParameter', '')] param ( $object ) $NameText.Text = $FontDialog.Font.Name $SizeText.Text = $FontDialog.Font.Size $StyleText.Text = $FontDialog.Font.Style $BoldCheck.Checked = $FontDialog.Font.Bold $ItalicsCheck.Checked = $FontDialog.Font.Italic } } process { [System.Windows.Forms.Application]::EnableVisualStyles() $Result = $FontPicker.ShowDialog() if ($Result -eq 'OK') { Write-Output -InputObject $FontDialog.Font } } end { Write-Verbose -Message "Ending [$($MyInvocation.Mycommand)]" } } |