Dyalog APL 16 GUI对象样式自定义问题咨询

这些控件（<PropertySheet>、<TabControl>、Push样式<Button>）无法通过<BCol>属性修改背景色，核心原因是Windows API的限制，并非Dyalog APL遗漏了设置项。Windows原生控件中，这类控件的渲染逻辑由系统接管，常规属性无法直接覆盖其默认背景绘制行为。以下是可行的解决方法：

1. Push样式Button #

通过**自绘（Owner-Draw）**实现自定义背景：

• 给Button控件添加Style 'OwnerDraw'属性
• 绑定Draw事件，在事件处理函数中手动绘制背景和文本。示例代码：

'customBtn' ⎕WC 'Button' '提交' ('Style' 'OwnerDraw') ('Draw' 'DrawCustomBtn')
DrawCustomBtn←{
    ⍝ 填充自定义灰色背景
    ⍵.FillRect ⍵.ClientRect 'E0E0E0'
    ⍝ 居中绘制按钮文本
    ⍵.DrawText ⍵.Text ⍵.ClientRect 'Center' 'VCenter'
}

2. TabControl #

分两部分处理标签头部和页面内容：

• 标签头部：设置Style 'OwnerDrawFixed'，绑定DrawItem事件，在事件中绘制标签的背景与文本
• 页面内容：对每个Tab对应的容器控件（如<Group>）设置<BCol>属性，确保页面背景统一

示例代码片段：

'tab' ⎕WC 'TabControl' ('Style' 'OwnerDrawFixed') ('DrawItem' 'DrawTab')
'tab.page1' ⎕WC 'Group' ('BCol' 'E0E0E0')
DrawTab←{
    idx←⍵.DrawItemInfo.Index
    rect←⍵.DrawItemInfo.Rect
    ⍝ 绘制标签背景
    ⍵.FillRect rect 'E0E0E0'
    ⍝ 绘制标签文本
    ⍵.DrawText ⍵.Tabs[idx] rect 'Center' 'VCenter'
}

3. PropertySheet #

PropertySheet是TabControl与对话框的组合，处理逻辑类似TabControl：

• 先修改每个属性页内部容器的<BCol>属性
• 对PropertySheet的Tab区域启用自绘（Style 'OwnerDrawFixed'），通过DrawItem事件自定义标签背景色

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