Procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Var DefaultDraw: Boolean);
Begin
If Item = Nil Then Exit;
if item.ImageIndex = 1 then begin //이미지 인덱스가 1일때.. 색을 지정하고파
ListView1.Canvas.Font.Color := {원하는 폰트색깔};
ListView1.Canvas.Color := {원하는 컬럼색깔};
end else begin
ListView1.Canvas.Font.Color := ListView1.Font.Color;
ListView1.Canvas.Color := ListView1.Color;
end;
End;
TListView 의 OnCustomDrawItem사용하세요
OnCustomDrawSubItem을 사용하시면. 각 컬럼별로도 색을 바꿀수가 있습니다.
Procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Var DefaultDraw: Boolean);
Begin
If Item = Nil Then Exit;
if item.ImageIndex = 1 then begin //이미지 인덱스가 1일때.. 색을 지정하고파
ListView1.Canvas.Font.Color := {원하는 폰트색깔};
ListView1.Canvas.Color := {원하는 컬럼색깔};
end else begin
ListView1.Canvas.Font.Color := ListView1.Font.Color;
ListView1.Canvas.Color := ListView1.Color;
end;
End;