안녕하세요...

얼떨껼에 프로그램을 짜기 시작한 꼬맹이 델파이언 입니다. ^^

만약 Item.Caption이 '압축', '그림' 이면 빨간색으로 리스트뷰 row 를

칠하고 싶습니다.

어떻게 해야할련지...



프로시져 올립니다. 살려주세요.. ^^



procedure TfrmMain.lvFileListDrawItem(Sender: TCustomListView;

Item: TListItem; Rect: TRect; State: TOwnerDrawState);

// var

// new1 : TListItem;



begin

if Item.Caption = '그림' then

begin

Sender.Canvas.Brush.Color := StrToInt(Item.Caption)* -1;

Sender.Canvas.Font.Color := (StrToInt(Item.Caption)* -1) + 128;

Sender.Canvas.FillRect(Rect);

Sender.Canvas.TextOut(Rect.Left + 2, Rect.Top, Item.Caption);

end

else // 보통때처럼 그린다.

begin

Sender.Canvas.FillRect(Rect);

Sender.Canvas.TextOut(Rect.Left + 2, Rect.Top, Item.Caption);

end;



end;