下面是把字体改为红色,在OnCustomDrawItem事件中: procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var rect: TRect; begin GetWindowRect(Item.Handle, rect); with ListView1.Canvas do begin Font.Color := clRed; TextOut(rect.Left, rect.Top, Item.Caption); end; end;
//用不同的颜色标记文本 int nTextLen,nFindLen; nTextLen = Item->SubItems->Strings[0].Length(); nFindLen = 4; if (nTextLen ==nFindLen) lvResult->Canvas->Font->Color = clRed; else if (nTextLen > nFindLen && nTextLen <= 2*nFindLen) lvResult->Canvas->Font->Color = clFuchsia; else if (nTextLen > 2*nFindLen) lvResult->Canvas->Font->Color = clGray;
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var rect: TRect;
begin
GetWindowRect(Item.Handle, rect);
with ListView1.Canvas do begin
Font.Color := clRed;
TextOut(rect.Left, rect.Top, Item.Caption);
end;
end;
int nTextLen,nFindLen;
nTextLen = Item->SubItems->Strings[0].Length();
nFindLen = 4; if (nTextLen ==nFindLen)
lvResult->Canvas->Font->Color = clRed;
else if (nTextLen > nFindLen && nTextLen <= 2*nFindLen)
lvResult->Canvas->Font->Color = clFuchsia;
else if (nTextLen > 2*nFindLen)
lvResult->Canvas->Font->Color = clGray;