commit 4d83214097dd64cd10701b170662e4bd5245f1e2
Author: KES\stroh <gerhard@weniger.work>
Date:   Sun Mar 17 13:03:09 2024 +0100

    erstes commit

diff --git a/AuerMenuMain01.ps1 b/AuerMenuMain01.ps1
new file mode 100644
index 0000000..dea268c
--- /dev/null
+++ b/AuerMenuMain01.ps1
@@ -0,0 +1,183 @@
+Add-Type -AssemblyName System.Windows.Forms
+Add-Type -AssemblyName System.Drawing
+
+$global:bt_width = 150
+$global:bt_hight = 23
+$global:row_distance = 15
+
+$global:bt_StartPosX = 35
+$global:bt_StartPosY = -20
+$global:bt_HightDiff = 25
+
+$global:NrRows = 3
+$global:arrCurPosX = New-Object 'Int16[]' $NrRows
+$global:arrCurPosY = New-Object 'Int16[]' $NrRows
+$i=0
+while ($i -lt $NrRows){
+    $arrCurPosX[$i] = $bt_StartPosX + $i*($bt_width+$row_distance)
+    $arrCurPosY[$i] = $bt_StartPosY
+    $i++
+}
+
+$global:form = New-Object System.Windows.Forms.Form
+
+$global:ButtonScriptblock = {
+    $txt = "Hi! I am the general scriptblock!"
+    Write-Host $txt
+    Show-Messagebox $txt
+}
+
+$global:ButtonResettedScriptblock = {
+    $txt = "Hi! I am the resetted scriptblock!"
+    Write-Host $txt
+    Show-Messagebox $txt
+}
+
+function AddButton([String] $ButtonName, [int] $MyRow) {
+    $MyRow = $MyRow - 1 
+    $NewButton = New-Object System.Windows.Forms.Button
+    $arrCurPosY[$MyRow] += $bt_HightDiff
+    $NewButton.Location = New-Object System.Drawing.Size($arrCurPosX[$MyRow], $arrCurPosY[$MyRow])
+    $NewButton.Size = New-Object System.Drawing.Size($bt_width, $bt_hight)
+    $NewButton.Text = $ButtonName
+    $NewButton.Add_Click($ButtonScriptblock)
+    $Form.Controls.Add($NewButton)
+    $NewButton = $null
+    $global:ButtonScriptblock = $ButtonResettedScriptblock
+}
+
+function AddHeader([String] $HeaderTXT, [int] $MyRow) {
+    $MyRow = $MyRow - 1 
+    $NewText = New-Object System.Windows.Forms.Label
+    $arrCurPosY[$MyRow] += 2 * $bt_HightDiff
+    $NewText.Location = New-Object System.Drawing.Size($arrCurPosX[$MyRow], $arrCurPosY[$MyRow])
+    $NewText.Size = New-Object System.Drawing.Size($bt_width, $bt_hight)
+    $NewText.BackColor = 'white'
+    $NewText.Text = $HeaderTXT
+    $NewText.TextAlign ="MiddleCenter"
+    $NewFontSize =     $NewText.Font.Size 
+    $FontName = $NewText.Font.Name
+    $FontStyle = "style=bold"
+    $NewText.Font = "$FontName, $NewFontSize, $FontStyle"
+    $Form.Controls.Add($NewText)
+    $NewText = $null
+}
+
+function Show-MessageBox {
+    # https://stackoverflow.com/questions/58718191/is-there-a-way-to-display-a-pop-up-message-box-in-powershell-that-is-compatible
+    [CmdletBinding(PositionalBinding=$false)]
+    param(
+      [Parameter(Mandatory, Position=0)]
+      [string] $Message,
+      [Parameter(Position=1)]
+      [string] $Title,
+      [Parameter(Position=2)]
+      [ValidateSet('OK', 'OKCancel', 'AbortRetryIgnore', 'YesNoCancel', 'YesNo', 'RetryCancel')]
+      [string] $Buttons = 'OK',
+      [ValidateSet('Information', 'Warning', 'Stop')]
+      [string] $Icon = 'Information',
+      [ValidateSet(0, 1, 2)]
+      [int] $DefaultButtonIndex
+    )
+  
+    # So that the $IsLinux and $IsMacOS PS Core-only
+    # variables can safely be accessed in WinPS.
+    Set-StrictMode -Off
+  
+    $buttonMap = @{ 
+      'OK'               = @{ buttonList = 'OK'; defaultButtonIndex = 0 }
+      'OKCancel'         = @{ buttonList = 'OK', 'Cancel'; defaultButtonIndex = 0; cancelButtonIndex = 1 }
+      'AbortRetryIgnore' = @{ buttonList = 'Abort', 'Retry', 'Ignore'; defaultButtonIndex = 2; ; cancelButtonIndex = 0 }; 
+      'YesNoCancel'      = @{ buttonList = 'Yes', 'No', 'Cancel'; defaultButtonIndex = 2; cancelButtonIndex = 2 };
+      'YesNo'            = @{ buttonList = 'Yes', 'No'; defaultButtonIndex = 0; cancelButtonIndex = 1 }
+      'RetryCancel'      = @{ buttonList = 'Retry', 'Cancel'; defaultButtonIndex = 0; cancelButtonIndex = 1 }
+    }
+  
+    $numButtons = $buttonMap[$Buttons].buttonList.Count
+    $defaultIndex = [math]::Min($numButtons - 1, ($buttonMap[$Buttons].defaultButtonIndex, $DefaultButtonIndex)[$PSBoundParameters.ContainsKey('DefaultButtonIndex')])
+    $cancelIndex = $buttonMap[$Buttons].cancelButtonIndex
+  
+    if ($IsLinux) { 
+      Throw "Not supported on Linux." 
+    }
+    elseif ($IsMacOS) {
+  
+      $iconClause = if ($Icon -ne 'Information') { 'as ' + $Icon -replace 'Stop', 'critical' }
+      $buttonClause = "buttons { $($buttonMap[$Buttons].buttonList -replace '^', '"' -replace '$', '"' -join ',') }"
+  
+      $defaultButtonClause = 'default button ' + (1 + $defaultIndex)
+      if ($null -ne $cancelIndex -and $cancelIndex -ne $defaultIndex) {
+        $cancelButtonClause = 'cancel button ' + (1 + $cancelIndex)
+      }
+  
+      $appleScript = "display alert `"$Title`" message `"$Message`" $iconClause $buttonClause $defaultButtonClause $cancelButtonClause"            #"
+  
+      Write-Verbose "AppleScript command: $appleScript"
+  
+      # Show the dialog.
+      # Note that if a cancel button is assigned, pressing Esc results in an
+      # error message indicating that the user canceled.
+      $result = $appleScript | osascript 2>$null
+  
+      # Output the name of the button chosen (string):
+      # The name of the cancel button, if the dialog was canceled with ESC, or the
+      # name of the clicked button, which is reported as "button:<name>"
+      if (-not $result) { $buttonMap[$Buttons].buttonList[$buttonMap[$Buttons].cancelButtonIndex] } else { $result -replace '.+:' }
+    }
+    else { # Windows
+      Add-Type -Assembly System.Windows.Forms        
+      # Show the dialog.
+      # Output the chosen button as a stringified [System.Windows.Forms.DialogResult] enum value,
+      # for consistency with the macOS behavior.
+      [System.Windows.Forms.MessageBox]::Show($Message, $Title, $Buttons, $Icon, $defaultIndex * 256).ToString()
+    }
+}
+
+$Click_Button1 = {
+    $txt = "Hi! I am in scriptblock 1!"
+    Write-Host $txt
+    Show-Messagebox $txt
+}
+
+$Click_Button2 = {
+    $txt = "Hi! I am in scriptblock 2!"
+    Write-Host $txt
+    Show-Messagebox $txt
+}
+
+$Click_Button3 = {
+    $txt = "Hi! I am in scriptblock 3!"
+    Write-Host $txt
+    Show-Messagebox $txt
+}
+
+AddHeader "Spalte 1" 1
+AddHeader "Spalte 2" 2
+
+$ButtonScriptblock = $Click_Button1
+AddButton "Button11" 1
+
+$ButtonScriptblock = $Click_Button2
+AddButton "Button12" 1
+
+$ButtonScriptblock = $Click_Button3
+AddButton "Button21" 2
+AddButton "Button22" 2
+
+$i=0
+$maxPosX =0
+$maxPosY =0
+
+while ($i -lt $NrRows){
+    if ($maxPosX -lt $arrCurPosX[$i]) {$maxPosX=$arrCurPosX[$i]}
+    if ($maxPosY -lt $arrCurPosY[$i]) {$maxPosY=$arrCurPosY[$i]}
+    $i++
+}
+
+$form.Width =$maxPosX + $bt_StartPosX
+$form.Height =$maxPosY + 4 * $bt_hight
+
+$form.text = "***Auer Signal Admin Menu ***"
+$form.StartPosition = "CenterScreen" #Wird auf dem Hauptbildschirm zentriert angezeigt
+
+$form.showdialog()