Question

Delphi中checklistbox怎样设置每行字体背景颜色？

Answer 1

每行背景设置不同颜色 checklistbox;listbox; //-------------------------------------------------procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;Index:Integer;Rect:TRect;State: TOwnerDrawState);beginwith CheckListBox1dobegincase(IndexMod5)of//设置画布的刷子填充色0: Canvas.Brush.Color:=clRed;1: Canvas.Brush.Color:=clBlue;2: Canvas.Brush.Color:=clWhite;3: Canvas.Brush.Color:=clYellow;4: Canvas.Brush.Color:=clSkyBlue;end; Canvas.FillRect(Rect); //将当前项填充背景色 Canvas.TextOut(Rect.Left,Rect.Top, Items[Index]);//重画Items的Textend;end; //---------------------------------------------------------- 每行字体设置不同颜色 checklistbox;listbox; //----------------------------------------------------------