delphi - TTreeView自定义绘制所选项目

Question

我正在尝试为我的应用程序模拟 Outlook 2013 左 Pane TreeView 菜单。我使用 CustomDraw 因为我只想更改一些简单的字体和背景属性。

这就是我想要的:

但是，我总是获得选定节点和热跟踪节点的默认选定绘图。我没有 Windows 7 或 XP，无法查看这是否是正常行为或者是否与我的操作系统 (Windows 8) 有关。

这是我得到的:

这是我的代码:

procedure TMainForm.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Node.Level = 1 then
    Sender.Canvas.Font.Size := Sender.Canvas.Font.Size + 2;

  if cdsHot in State then
    Sender.Canvas.Brush.Color := $00F7E6CD
  else if (cdsSelected in State) or (cdsFocused in State) or
    (cdsChecked in State) then
    Sender.Canvas.Brush.Color := $00F2F2F2
  else
    Sender.Canvas.Brush.Color := $00DEDEDE;
  DefaultDraw := true;
end;

如何为选定的热门项目绘制不同颜色的背景？

Answer 1

尝试以下操作:

type
  TTreeView = class(Vcl.ComCtrls.TTreeView)
  protected
    procedure CreateWnd; override;
  end;


uses uxtheme;

procedure TTreeView.CreateWnd;
begin
  inherited;
  SetWindowTheme(Handle, nil , nil);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

   TreeView1.Font.Name := 'Segoe UI';
   TreeView1.HotTrack := True;
   TreeView1.Font.Size := TreeView1.Font.Size + 1;
   TreeView1.Color := $00DEDEDE;

end;

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin

   if cdsFocused in State then begin
     Sender.Canvas.Brush.Color := $00F2F2F2;
     Sender.Canvas.Font.Color := clblack;
     Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsBold];
   end else if cdsHot in State then
    Sender.Canvas.Brush.Color := $00F7E6CD
   else
    Sender.Canvas.Brush.Color := $00DEDEDE;

end;

<小时/>

说明:

关于此的 Microsoft 文档非常模糊，我可以肯定地说，每当对项目执行操作(选择、热跟踪、取消选择等...)时( Node)，发送一条特定的消息，该消息通过参数标志包含节点的状态，该参数标志在最后内部决定如何根据当前的 Windows 主题以可视方式更新该项目。

这可能是为什么禁用 TreeView 组件的主题会删除默认选择矩形和主题着色的原因。 Control state flags 的文档部分支持这一理论。