我正在尝试为 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;
它仍然导致单一颜色。关于如何实现这一目标的任何建议?
谢谢