如何删除或更改类别面板控件中的“水平分隔符”？

Question

我一直在玩Delphi 2010中的类别面板控件。我已经能够修改颜色并让它们以我喜欢的方式工作。但是，每个面板标题之间都有一个银色的“横向分隔符”（我不知道还有什么要称之）。

如何更改此“水平分隔符”的外观或将其全部删除？

Answer 1

一看T（自定义）CategoryPanel的源揭示了一个方法DrawCollapsedPanel。它无条件地绘制分隔符。从DrawHeader调用DrawCollapsedPanel，检查唯一条件是面板是否折叠。

更重要的是，DrawCollapsedPanel是虚拟的，所以你可以创建自己的后代或者使用拦截器类：

TCategoryPanel = class(ExtCtrls.TCategoryPanel) 
protected 
    procedure DrawCollapsedPanel(ACanvas: TCanvas); override; 
    function GetCollapsedHeight: Integer; override; 
end; 

如果你把它放进一个单独的单元，所有你需要做的就是包括它在ExtCtrls单元之后，你想要一个你自己的行为的类别面板。

为了取悦大卫:-)

procedure TCategoryPanel.DrawCollapsedPanel(ACanvas: TCanvas); 
begin 
    // Don't call inherited, we do not want the default separator. 
    // And don't draw anything you don't want. 
end; 

，我们需要重写GetCollapsedHeight为好，因为它确定任何你想要的标题下绘制了折叠可用于室内：

function TCategoryPanel.GetCollapsedHeight: Integer; 
begin 
    // As we don't want anything under here, 
    // don't call inherited and just return the HeaderHeight. 
    // (Instead of HeaderHeight + 6; 
    Result := HeaderHeight; 
end; 

截图：