更改平面滚动条的颜色（FlatSB_SetScrollProp 函数中的自定义调色板）

Question

我的一位客户在其 VB6 应用程序的列表/网格控件内使用 MSIE 4 中引入的标准平面滚动条。 现在他想在他的应用程序中实现一个深色主题，并需要分别为这些平面滚动条着色。 FlatSB_SetScrollProp WinAPI 函数允许我们更改平面滚动条的颜色参数。 我可以使用 WSB_PROP_HBKGCOLOR/WSB_PROP_VBKGCOLOR 值轻松指定阴影轴的背景颜色，但我们需要更改其他颜色 - 滚动框的背景颜色、按钮上箭头的颜色等。 FlatSB_SetScrollProp 为我们提供了能力使用 WSB_PROP_PALETTE 值为滚动条指定自定义调色板，但我在 Internet 上找不到任何显示如何执行此操作的工作示例。 我发现的是像这样和这样的代码片段，但显然它们不起作用。 有人可以为带有 WSB_PROP_PALETTE 的 FlatSB_SetScrollProp 提供工作示例吗？

---

我曾经在平面滚动条中使用调色板的一些 VB6 源代码：

Private Type PALETTEENTRY
   peRed As Byte
   peGreen As Byte
   peBlue As Byte
   peFlags As Byte
End Type

Private Type LOGPALETTE
   palVersion As Integer
   palNumEntries As Integer
   palPalEntry(255) As PALETTEENTRY ' Enough for 256 colors.
End Type

Private Declare Function CreatePalette Lib "gdi32" (ByRef lpLogPalette As LOGPALETTE) As Long

Private Const WSB_PROP_PALETTE = &H800&

Private Declare Function FlatSB_SetScrollProp Lib "comctl32.dll" (ByVal hWnd As Long, ByVal Index As Long, ByVal newValue As Long, ByVal fRedraw As Boolean) As Long

Friend Sub SetCustomPalette()
   Dim LogPal As LOGPALETTE
   Dim hPal As Long
   
   LogPal.palNumEntries = 256
   LogPal.palVersion = &H300
   
   Dim iPalEntry As Long
   For iPalEntry = 0 To 255
      LogPal.palPalEntry(iPalEntry).peRed = iPalEntry
      'LogPal.palPalEntry(iPalEntry).peGreen = iPalEntry
      'LogPal.palPalEntry(iPalEntry).peBlue = iPalEntry
      'LogPal.palPalEntry(iPalEntry).peFlags = 4
   Next
   
   hPal = CreatePalette(LogPal)
   
   Dim lRes As Long
   lRes = FlatSB_SetScrollProp(m_hWnd, WSB_PROP_PALETTE, hPal, True)
End Sub

我检查了 CreatePalette 和 FlatSB_SetScrollProp 调用的结果 - 他们成功了。 我尝试仅填充 peRed 组件或调色板条目的所有 R/G/B，尝试了 peFlags 的所有可用值，但没有任何帮助。

也许，我们还需要在设置调色板后更新目标窗口中的滚动条或执行其他操作以使其工作。 欢迎对此提出任何建议或想法。

Answer 1

WSB_PROP_VBKGCOLOR 和 WSB_PROP_HBKGCOLOR 的 FlatSB_SetScrollProp 实际上是唯一可以为滚动条更改的。 如果更改了调色板，则不会更改滚动条上的任何其他元素。

对于应用程序，不再推荐使用调色板，并且在较新的窗口样式中，flatsb API 不再有效。 如果您想将调色板中的最适合颜色用于请求的颜色，您可以使用 GetNearestPaletteIndex 获取逻辑调色板条目的索引并从中获取 RGB 值以用作 VBKGCOLOR 和 HBKGCOLOR 的颜色.