Delphi實現(xiàn)Listbox中的item根據(jù)內(nèi)容顯示不同顏色的方法
更新時間：2014年07月17日 10:30:42 投稿：shichen2014
這篇文章主要介紹了Delphi實現(xiàn)Listbox中的item根據(jù)內(nèi)容顯示不同顏色的方法,需要的朋友可以參考下
本文簡述了Delphi實現(xiàn)Listbox中的item根據(jù)內(nèi)容顯示不同顏色的方法，實現(xiàn)步驟如下：
ListBox1 的 Style 屬性改為 lbOwnerDrawVariable
在ListBox的OnDrawItem事件裡，根據(jù)item的值，改變Canvas屬性
示例代碼如下：
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin //字體用原來默認(rèn)的顏色 if Odd(index) then //當(dāng)items的index為奇數(shù)時的顏色 begin listbox1.Canvas.Brush.Color:=clwindow; ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]); end else //當(dāng)items的index為偶數(shù)時的顏色 begin listbox1.Canvas.Brush.Color:=clinactivecaptiontext; ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]); end; if odSelected in state then //當(dāng)選定時的顏色 begin listbox1.Canvas.Brush.Color:=clhighlight; ListBox1.Canvas.TextRect(Rect,rect.Left,Rect.Top,ListBox1.Items[index]); end; end;
相關(guān)文章
這篇文章主要介紹了Delphi編程常用快捷鍵,對于提高Delphi編程的效率很有幫助,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi 實現(xiàn)軟件自動升級的功能的相關(guān)資料,希望通過本文能幫助到大家實現(xiàn)這樣的功能，需要的朋友可以參考下2017-09-09
這篇文章主要介紹了Delphi 常見文件處理及注冊表文件的使用實例的相關(guān)資料,希望通過本文能幫助到大家，需要的朋友可以參考下2017-09-09
下面小編就為大家?guī)硪黄狣elphi提取PDF文本實例。小編覺得挺不錯的，現(xiàn)在就分享給大家，也給大家做個參考。一起跟隨小編過來看看吧2017-06-06
Delphi實現(xiàn)獲取進程列表及相關(guān)信息的實例
這篇文章主要介紹了Delphi實現(xiàn)獲取進程列表及相關(guān)信息的實例,希望通過本文大家能實現(xiàn)這樣的功能，需要的朋友可以參考下2017-09-09
這篇文章主要介紹了Delphi實現(xiàn)木馬自我拷貝方法,對于研究木馬的運行原理很有幫助,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi實現(xiàn)碰撞球體完整實例代碼,通過該實例,讀者可以完整的了解一個Delphi項目的創(chuàng)建過程,加深對Delphi運行原理的了解,需要的朋友可以參考下2014-07-07
本文為大家詳細(xì)介紹下delphi實現(xiàn)發(fā)送消息控制滾動條，主要函數(shù)及用法如下，感興趣的朋友可以參考下哈2013-06-06
Delphi之Pascal語言中的關(guān)鍵字及保留字匯總
這篇文章主要介紹了Delphi之Pascal語言中的關(guān)鍵字及保留字匯總,需要的朋友可以參考下2014-07-07
Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實例
這篇文章主要介紹了Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實例的相關(guān)資料,希望通過本能幫助到大家實現(xiàn)這樣的功能，需要的朋友可以參考下2017-09-09