小编stO*_*OrM的帖子

好吧,我有以下问题:

我根据一些布尔变量绘制了不同颜色的树状单元格.例:

• isProcessService,
• isProcessInDebugger,
• isProcessService,
• isProcessElevated,
• isProcessNet,
• isProcessOwner,
• isProcessinJob,
• isProcessPacked,
• isProcessMarkedForDeletion,
• isProcessMarkedForCreation:Boolean;

因此,在BeforeCellPaint中,我将基于那些布尔值绘制单元格背景颜色,如:

procedure TMainForm.ProcessVstBeforeCellPaint(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
var
  NodeData: PProcessData;
begin
 if Node = nil then
    Exit;

  NodeData := Sender.GetNodeData(Node);

  if NodeData = nil then
    Exit;

  if (NodeData^.isProcessOwner) then
  begin
    TargetCanvas.Brush.Color := $00AAFFFF;
    TargetCanvas.FillRect(TargetCanvas.ClipRect);
  end;

  if (NodeData^.isProcessInDebugger) then
  begin
    TargetCanvas.Brush.Color := $00E5A5A5;
    TargetCanvas.FillRect(TargetCanvas.ClipRect);
  end;

    if (NodeData^.pProcessID = 0) or (NodeData^.pProcessID = 4) then
  begin
    TargetCanvas.Brush.Color := $00FFCCAA;
    TargetCanvas.FillRect(TargetCanvas.ClipRect); …