更改特定核对清单项目的字体或颜色？

我正在使用Delphi XE-3。我希望更改为清单框中单个项目的颜色或字体。这可能吗？更改特定核对清单项目的字体或颜色？

2012-11-28 Michiel T

或模拟checklistbox机智像VTW –

类似h3rd方控制/复制到http ：//stackoverflow.com/questions/8563508/how-do-i-draw-the-selected-list-box-item-in-a-different-color –

您将需要使用所有者绘制您的检查列表框。将您的检查列表框的Style属性设置为lbOwnerDrawFixed，并为OnDrawItem事件编写处理程序。在此事件处理程序，你可以使用这样的事情：

procedure TForm1.CheckListBox1DrawItem(Control: TWinControl; Index: Integer; 
    Rect: TRect; State: TOwnerDrawState); 
var 
    Flags: Longint; 
begin 
    with (Control as TCheckListBox) do 
    begin 
    // modifying the Canvas.Brush.Color here will adjust the item color 
    case Index of 
     0: Canvas.Brush.Color := $00F9F9F9; 
     1: Canvas.Brush.Color := $00EFEFEF; 
     2: Canvas.Brush.Color := $00E5E5E5; 
    end; 
    Canvas.FillRect(Rect); 
    // modifying the Canvas.Font.Color here will adjust the item font color 
    case Index of 
     0: Canvas.Font.Color := clRed; 
     1: Canvas.Font.Color := clGreen; 
     2: Canvas.Font.Color := clBlue; 
    end; 
    Flags := DrawTextBiDiModeFlags(DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX); 
    if not UseRightToLeftAlignment then 
     Inc(Rect.Left, 2) 
    else 
     Dec(Rect.Right, 2); 
    DrawText(Canvas.Handle, Items[Index], Length(Items[Index]), Rect, Flags); 
    end; 
end;

这里是上面的例子的结果：

enter image description here

来源

2012-11-28 14:50:47 TLama

这不包括项目的状态（如果它的重点，选择与否）并忽略VCL样式。 – TLama

更改特定核对清单项目的字体或颜色？

回答

相关问题