線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1562
推到 Plurk!
推到 Facebook!

ask help for listview

答題得分者是:ccchen
tender
初階會員


發表:23
回覆:90
積分:37
註冊:2002-09-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-09-26 15:03:11 IP:211.74.xxx.xxx 未訂閱
請問各位大人 如何讓再ListView裡的單一Row變成不同的顏色呢\
ccchen
版主


發表:61
回覆:940
積分:1394
註冊:2002-04-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-09-28 10:05:40 IP:203.217.xxx.xxx 未訂閱
可能是你的問題不夠清楚所以沒人回答    假設你是問viewStyle=vsReport 你是要改font的顏色還是背景呢, 以下奇數行, 偶數行用不同顏色    
//list View之onAdvancedCustomDrawitem
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
//改font
  if (item.Index mod 2)=0 then  //由item可得知目前為那一row以決定color
    TListView(Sender).Canvas.font.color:=clblack
  else
    TListView(Sender).Canvas.font.color:=clred;
{
//以下為改背景色
  TListView(Sender).Canvas.brush.Style:=bsclear;
  if (item.Index mod 2)=0 then  //由item可得知目前為那一row
    TListView(Sender).Canvas.brush.Color:=clblue
  else
    TListView(Sender).Canvas.brush.Color:=clred;
}
end;    //若是改fontcolor, onAdvancedCustomDrawSubitem也要改
procedure TForm1.ListView1AdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  if (item.Index mod 2)=0 then
    TListView(Sender).Canvas.font.color:=clblack
  else
    TListView(Sender).Canvas.font.color:=clred;
end;
tender
初階會員


發表:23
回覆:90
積分:37
註冊:2002-09-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-09-28 14:07:09 IP:211.74.xxx.xxx 未訂閱
thanks so much, and it's so pleasure to meet u . < >< >
系統時間:2024-03-29 14:35:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!