0

我正在尝试为 TListView 中的文本分配多种颜色，例如渐变，我尝试搜索，但在互联网上我只能找到单色方法，我尝试一次绘制一个字符并更改颜色，但这并没有工作。这是我尝试过的代码。

procedure TForm1.lvMainAdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
var txtWidth: Integer;
    Rct: TRect;
begin
  Rct := item.DisplayRect(drBounds);
  lvMain.Canvas.Font.Color := clRed;
  DrawText(lvMain.Canvas.Handle, 'asd', 3, Rct, DT_SINGLELINE);
  Canvas.Refresh;
  lvMain.Canvas.Font.Color := clBlack;
  txtWidth := Canvas.TextWidth('asd');
  Rct.Left := Rct.Left + txtWidth;
  DrawText(lvMain.Canvas.Handle, 'b', 1, Rct, DT_SINGLELINE);
  lvMain.Canvas.Font.Color := clBlue;
  txtWidth := Canvas.TextWidth('b');
  Rct.Left := Rct.Left + txtWidth;
  DrawText(lvMain.Canvas.Handle, 'sa', 2, Rct, DT_SINGLELINE);
end;

它仍然导致单一颜色。关于如何实现这一目标的任何建议？

谢谢

4

1 回答 1

2

这是可能的，但您必须接管 WindowsPaint和PaintRegion方法才能做得很好（使用真正的渐变）。

另外，DefaultDraw在你返回之前设置为 false ，否则你刚刚做的所有工作都会被覆盖......

于 2013-07-24T05:03:15.550 回答