如何为Tcl/Tk程序的菜单栏和标题栏设置自定义颜色？

一、菜单栏颜色修改 #

你当前代码仅配置了顶层菜单栏.menu_bar的样式，但Windows系统下Tk顶层菜单栏默认使用原生系统控件，直接设置-bg等参数可能无法生效；同时下拉菜单（如.level_0）未配置样式，导致修改效果不明显。以下是正确实现方式：

1. 配置下拉菜单样式 #

给所有下拉菜单添加颜色配置，确保菜单展开后的样式生效：

.level_0 configure -bg black -fg white -activebackground #333333 -activeforeground white

2. 调整顶层菜单栏样式 #

Windows下顶层菜单栏的原生样式限制了背景色显示，可通过-relief flat去掉默认边框，并配置选中状态的颜色：

.menu_bar configure -bg black -fg white -activebackground #333333 -activeforeground white -relief flat

修改后的完整菜单代码片段 #

#§§§§§
# Start: Menu Bar
#§§§§§
menu .menu_bar 
. configure -menu .menu_bar
menu .level_0 -tearoff 0

# 配置顶层菜单栏样式
.menu_bar configure -bg black -fg white -activebackground #333333 -activeforeground white -relief flat
.menu_bar add cascade -menu .level_0 -label "Menu" -underline 0 

# 配置下拉菜单样式
.level_0 configure -bg black -fg white -activebackground #333333 -activeforeground white
.level_0 add command -label "Resize App" -command {Resize_Win1} \
-image                 Icon_Resize   -compound left
#
.level_0 add separator
.level_0 add command -label Exit -underline 0 -command {exit} \
-image                 Icon_Exit  -compound left  
#§§§§§
# End: Menu Bar
#§§§§§

二、Windows系统标题栏颜色修改方案 #

Tk本身无法直接修改原生标题栏颜色，以下是两种可行替代方案：

方案1：自定义模拟标题栏 #

完全隐藏原生标题栏，用Tk组件手动实现可自定义样式的标题栏，步骤如下：

1. 隐藏原生窗口边框和标题栏：

wm overrideredirect 1

2. 创建自定义标题栏Frame并添加组件：

frame .title_bar -bg #2c3e50 -height 30
label .title_bar.title -text "自定义标题栏" -bg #2c3e50 -fg white -padx 10
button .title_bar.close -text "×" -bg #e74c3c -fg white -bd 0 -width 3 -command exit
button .title_bar.max -text "□" -bg #2c3e50 -fg white -bd 0 -width 3 -command {
    if {[wm state .] eq "normal"} {
        wm state . zoomed
    } else {
        wm state . normal
    }
}
button .title_bar.min -text "−" -bg #2c3e50 -fg white -bd 0 -width 3 -command {wm iconify .}

# 布局标题栏组件
pack .title_bar.title -side left -fill y -expand yes
pack .title_bar.min .title_bar.max .title_bar.close -side right -fill y
pack .title_bar -fill x

3. 实现标题栏拖动窗口功能：

bind .title_bar <ButtonPress-1> {set start_x %x; set start_y %y}
bind .title_bar <B1-Motion> {
    wm geometry . +[expr %X - $start_x]+[expr %Y - $start_y]
}

方案2：通过Twapi调用Windows API修改原生标题栏 #

Twapi是Tcl的Windows扩展，可直接调用系统API修改窗口非客户区颜色：

1. 安装Twapi扩展；
2. 使用以下代码设置标题栏颜色：

package require twapi

# 获取窗口句柄
set hwnd [twapi::get_window_handle .]

# 设置标题栏背景色（RGB转BGR格式）
twapi::set_window_attribute $hwnd -nonclient_rendering_policy 1
twapi::set_window_attribute $hwnd -nonclient_rendering_color 0x002c3e50

内容的提问来源于stack exchange，提问作者Badri