zoukankan      html  css  js  c++  java
  • delphi TreeView修改选中的节点的颜色和背景

     
    TreeView修改选中的节点的颜色和背景
     
      TCustomDrawTarget = (dtControl, dtItem, dtSubItem);
      TCustomDrawStage = (cdPrePaint, cdPostPaint, cdPreErase, cdPostErase);
      TCustomDrawState = set of (cdsSelected, cdsGrayed, cdsDisabled, cdsChecked,
        cdsFocused, cdsDefault, cdsHot, cdsMarked, cdsIndeterminate);



    procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
      Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
    begin
        if (cdsSelected in State) then
       begin
          with Sender.Canvas do
          begin
            Brush.Color :=clBlue;
            Font.Color :=clRed;
            Font.Size := 11;
            Font.Style:=[fsBold];
          end;
       end;
    end;


    如何画图片 节点的整行的
    procedure TForm1.TreeView1AdvancedCustomDraw(Sender: TCustomTreeView;
    const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
    procedure TForm1.TreeView1AdvancedCustomDrawItem(Sender: TCustomTreeView;
    Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
    var PaintImages, DefaultDraw: Boolean);
     
    procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView;
    const ARect: TRect; var DefaultDraw: Boolean);
     
    procedure TForm1.TreeView2CustomDrawItem(Sender: TCustomTreeView;
      Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
     




  • 相关阅读:
    Installing Oracle Database 12c Release 2(12.2) RAC on RHEL7.3 in Silent Mode
    周四测试
    假期生活
    《人月神话》阅读笔记三
    《人月神话》阅读笔记二
    《人月神话》阅读笔记一
    软件进度7
    软件进度6
    软件进度5
    软件进度4
  • 原文地址:https://www.cnblogs.com/xe2011/p/3884193.html
Copyright © 2011-2022 走看看