ps12exe

0.1.30

src/GUI/DarkMode.ps1

if ($UIMode -eq 'Auto' -or -not $UIMode) {
    $DarkMode = Get-ItemPropertyValue -Path "HKCU:\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" -Name "AppsUseLightTheme" -ErrorAction SilentlyContinue
    $DarkMode = $DarkMode -eq 0
}
else {
    $DarkMode = $UIMode -eq 'Dark'
}

if ($DarkMode) {
    $Script:refs.MainForm.BackColor = [System.Drawing.ColorTranslator]::FromHtml('#333333')
    $Script:refs.MainForm.ForeColor = [System.Drawing.ColorTranslator]::FromHtml('#FFFFFF')
    function ForEachControl($Control, $RunScriptBlock) {
        $Script:refs.Values | Where-Object { $_.GetType().Name -eq $Control } | ForEach-Object $RunScriptBlock
    }
    ForEachControl 'TextBox' {
        $_.BackColor = 'WindowFrame'
        $_.ForeColor = 'Window'
        $_.BorderStyle = 'FixedSingle'
    }
    ForEachControl 'Button' {
        $_.BackColor = 'WindowFrame'
        $_.FlatStyle = 'Flat'
    }
    ForEachControl 'CheckBox' {
        $_.ForeColor = 'Window'
        $_.FlatStyle = 'Flat'
    }
    ForEachControl 'GroupBox' {
        $_.ForeColor = [System.Drawing.ColorTranslator]::FromHtml('#FFFFFF')
    }
    # DWMWA_USE_IMMERSIVE_DARK_MODE
    [ps12exeGUI.Dwm]::SetWindowAttribute($Script:refs.MainForm.Handle, 20, 1)
    # DWMWA_MICA_EFFECT
    [ps12exeGUI.Dwm]::SetWindowAttribute($Script:refs.MainForm.Handle, 1029 , 1)
    # DWMWA_BORDER_COLOR
    $color = 0x181818
    $color = (($color -band 0xff) -shl 16) + ($color -band 0xff00) + (($color -shr 16) -band 0xff)
    [ps12exeGUI.Dwm]::SetWindowAttribute($Script:refs.MainForm.Handle, 34, $color)
}