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);
     




  • 相关阅读:
    【Demo 0087】线程创建使用消亡
    【Demo 0083】查看进程启动时间
    【Demo 0080】进程
    关于.vhd文件的一个问题
    此服务器上的时间与主域控制器的时间不一致解决方法
    centos5.6下安装mysql5.5.16
    杂谈,入社见闻录
    Oracle 11g学习笔记(1)
    Oracle 11g学习笔记(2)
    转:如何彻底卸载MySQL
  • 原文地址:https://www.cnblogs.com/xe2011/p/3884193.html
Copyright © 2011-2022 走看看