如何設置VirtualStringTree標題的顏色？

Question

VirtualStringTree標題具有「背景」屬性，但將其設置爲不同的顏色不會更改顏色。我懷疑樹是使用Windows主題渲染的。

如何設置顏色？

Answer 1

您可以使用屬性THeader.Background，但您必須從TreeOptions.PaintOptions排除toThemeAware。這會關閉主題，正如TLama在他上面的評論中所說的那樣。

---

我建議你使用的事件OnAdvancedHeaderDraw和OnHeaderDrawQueryElements。必須包含在Header.Options中才能生效。 （至少）[hpeBackground]和OnAdvancedHeaderDraw您自定義繪圖。

參見該示例（source）：

procedure TfrmMain.MyVSTHeaderDrawQueryElements(Sender: TVTHeader; 
    var PaintInfo: THeaderPaintInfo; var Elements: THeaderPaintElements); 
begin 
    Elements := [hpeBackground]; 
end; 

procedure TfrmMain.MyVSTAdvancedHeaderDraw(Sender: TVTHeader; 
    var PaintInfo: THeaderPaintInfo; const Elements: THeaderPaintElements); 
begin 
    if hpeBackground in Elements then 
    begin 
    PaintInfo.TargetCanvas.Brush.Color := clFuchsia; // <-- your color here 
    if Assigned(PaintInfo.Column) then 
     DrawFrameControl(PaintInfo.TargetCanvas.Handle, PaintInfo.PaintRectangle, DFC_BUTTON, DFCS_FLAT or DFCS_ADJUSTRECT); // <-- I think, that this keeps the style of the header background, but I'm not sure about that 
    PaintInfo.TargetCanvas.FillRect(PaintInfo.PaintRectangle); 
    end; 
end; 

Answer 2

procedure TfrmDepositDefrayalSingly.vstItemsManuallyHeaderDrawQueryElements(Sender: TVTHeader; 
    var PaintInfo: THeaderPaintInfo; var Elements: THeaderPaintElements); 
begin 
    Elements := [hpeBackground]; 
end; 


procedure TfrmDepositDefrayalSingly.vstItemsManuallyAdvancedHeaderDraw(Sender: TVTHeader; 
    var PaintInfo: THeaderPaintInfo; const Elements: THeaderPaintElements); 
begin 
    if hpeBackground in Elements then 
    begin 
    PaintInfo.TargetCanvas.Brush.Color := cGlobalVar.BasicColor; 
    PaintInfo.TargetCanvas.FillRect(PaintInfo.PaintRectangle); 

    if Assigned(PaintInfo.Column) then 
    begin 
     PaintInfo.TargetCanvas.Brush.Color := clGray; 
     PaintInfo.TargetCanvas.FrameRect(PaintInfo.PaintRectangle); 
    end; 
    end; 
end;