ps12exe

0.0.17

GUI/Src/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')

    $Script:refs.Values | Where-Object { $_.GetType().Name -eq 'TextBox' } | ForEach-Object {

        $_.BackColor = 'WindowFrame'

        $_.ForeColor = 'Window'

        $_.BorderStyle = 'FixedSingle'

    }

    $Script:refs.Values | Where-Object { $_.GetType().Name -eq 'Button' } | ForEach-Object {

        $_.BackColor = 'WindowFrame'

        $_.ForeColor = 'Window'

        $_.FlatStyle = 'Flat'

    }

    $Script:refs.Values | Where-Object { $_.GetType().Name -eq 'CheckBox' } | ForEach-Object {

        $_.ForeColor = 'Window'

        $_.FlatStyle = 'Flat'

    }

    $Script:refs.Values | Where-Object { $_.GetType().Name -eq 'GroupBox' } | ForEach-Object {

        $_.ForeColor = [System.Drawing.ColorTranslator]::FromHtml('#FFFFFF')

    }

    # DWMWA_USE_IMMERSIVE_DARK_MODE

    [Dwm]::SetWindowAttribute($Script:refs['MainForm'].Handle, 20, 1)

    # DWMWA_MICA_EFFECT

    [Dwm]::SetWindowAttribute($Script:refs['MainForm'].Handle, 1029 , 1)

    # DWMWA_BORDER_COLOR

    [Dwm]::SetWindowBorderColor($Script:refs['MainForm'].Handle, [System.Drawing.ColorTranslator]::FromHtml('#FFFFFF'))

}