如何在ListView 變更"行"的顏色(例如一行白色,一行藍色) |
尚未結案
|
tunghung_chen
一般會員 發表:8 回覆:1 積分:1 註冊:2004-06-17 發送簡訊給我 |
|
pwipwi
版主 發表:68 回覆:629 積分:349 註冊:2004-04-08 發送簡訊給我 |
|
tunghung_chen
一般會員 發表:8 回覆:1 積分:1 註冊:2004-06-17 發送簡訊給我 |
Hello pwipwi
謝謝你的建議.
我已經利用站上的搜尋功能查OwnerDraw List
而且已經找到一個Delphi的程式
http://delphi.ktop.com.tw/topic.php?topic_id=37693
但我對於Delphi不是很懂~所以能不能幫我轉成C Builder,或者能否說明一下程式~ procedure TFrmUBsio.LBox_ListOrderDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
LBox_ListOrder.Canvas.Brush.Style := bsSolid;
if LeftStr(LBox_ListOrder.Items[Index],1) = 'B' then
begin
LBox_ListOrder.Canvas.Brush.Color := clRed;
end
else
begin
LBox_ListOrder.Canvas.Brush.Color := clBlue;
end;
LBox_ListOrder.Canvas.Font.Color := clWhite;
LBox_ListOrder.Canvas.FillRect(Rect);
end; 我是bcb的初學者,還有很多要努力~謝謝~~
|
chtai
高階會員 發表:68 回覆:238 積分:116 註冊:2004-05-21 發送簡訊給我 |
LBox_ListOrder->Canvas->Brush->Style = bsSolid; if (LeftStr(LBox_ListOrder->Items[Index],1) == "B") LBox_ListOrder->Canvas->Brush->Color = clRed; else LBox_ListOrder->Canvas->Brush->Color = clBlue; LBox_ListOrder->Canvas->Font->Color = clWhite; LBox_ListOrder->Canvas->FillRect(Rect);我也不太懂 Delphi,以上的code我也沒試過對不對, 不過意思到了,應該相去不遠才是 :) 請自行試看看囉~ -- http://www.csie.nctu.edu.tw/~chtai/software.php 好用免費軟體的收集網頁,歡迎大家跟我分享或一同推廣免費軟體。 若您覺得這網頁不錯,也歡迎您將它傳出去 :)
------
My Web: http://nelson.csie.us My Blog: http://blog.nelson.csie.us |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |