listbox1.Font.Color

[(امید)]

سلام

این دستور listbox1.Font.Color رنگ آیتم های listbox رو عوض می کنه . راهی وجود داره که بشه فقط رنگ یک item خاص از listbox رو عوض کرد؟

متشکرم

[آناهیتا]

با سلام،
ابتدا پراپرتی style را به مقدار lbOwnerDrawFixed تنظیم کنید
کد زیر احتمالا مشکل شما را حل خواهد کرد


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox).Canvas do begin
if index=2 then begin // 2=your item number
Brush.Color:=clyellow; //background color
font.color:=clred;
font.style:=[fsbold];
end;
fillRect(Rect);
TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]);
end;
end;

آناهیتا

[(امید)]

متشکرم آناهیتا .بهتر از اون چیزی بود که می خواستم.