Private/Show-ADTHelpConsoleInternal.ps1
|
#----------------------------------------------------------------------------- # # MARK: Show-ADTHelpConsoleInternal # #----------------------------------------------------------------------------- function Show-ADTHelpConsoleInternal { [CmdletBinding()] param ( [Parameter(Mandatory = $true)] [ValidateNotNullOrEmpty()] [System.String]$ModuleName, [Parameter(Mandatory = $true)] [ValidateNotNullOrEmpty()] [System.Guid]$Guid, [Parameter(Mandatory = $true)] [ValidateNotNullOrEmpty()] [System.Version]$ModuleVersion ) # Ensure script runs in strict mode since this may be called in a new scope. $ErrorActionPreference = [System.Management.Automation.ActionPreference]::Stop $ProgressPreference = [System.Management.Automation.ActionPreference]::SilentlyContinue Set-StrictMode -Version 3 # Import the module and store its passthru data so we can access it later. $module = Import-Module -FullyQualifiedName ([Microsoft.PowerShell.Commands.ModuleSpecification]::new($PSBoundParameters)) -PassThru # Build out the form's listbox. $helpListBox = [System.Windows.Forms.ListBox]::new() $helpListBox.ClientSize = [System.Drawing.Size]::new(261, 675) $helpListBox.Font = [System.Drawing.SystemFonts]::MessageBoxFont $helpListBox.Location = [System.Drawing.Point]::new(3, 0) $helpListBox.add_SelectedIndexChanged({ $helpTextBox.Text = [System.String]::Join("`n", ((Get-Help -Name $helpListBox.SelectedItem -Full | Out-String -Stream -Width ([System.Int32]::MaxValue)) -replace '^\s+$').TrimEnd()).Trim() }) $null = $helpListBox.Items.AddRange(($module.ExportedCommands.Keys | Sort-Object)) # Build out the form's textbox. $helpTextBox = [System.Windows.Forms.RichTextBox]::new() $helpTextBox.ClientSize = [System.Drawing.Size]::new(1250, 675) $helpTextBox.Font = [System.Drawing.Font]::new('Consolas', 9) $helpTextBox.Location = [System.Drawing.Point]::new(271, 0) $helpTextBox.ReadOnly = $true $helpTextBox.WordWrap = $false # Build out the form. The suspend/resume is crucial for HiDPI support! $helpForm = [System.Windows.Forms.Form]::new() $helpForm.SuspendLayout() $helpForm.Text = "$($module.Name) Help Console" $helpForm.Font = [System.Drawing.SystemFonts]::MessageBoxFont $helpForm.AutoScaleDimensions = [System.Drawing.SizeF]::new(7, 15) $helpForm.AutoScaleMode = [System.Windows.Forms.AutoScaleMode]::Font $helpForm.AutoSize = $true $helpForm.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::Fixed3D $helpForm.MaximizeBox = $false $helpForm.Controls.Add($helpListBox) $helpForm.Controls.Add($helpTextBox) $helpForm.ResumeLayout() # Show the form. Using Application.Run automatically manages disposal for us. [System.Windows.Forms.Application]::Run($helpForm) } |