Как сделать недоступными некоторые items в TListBox? Или есть другой компонент с такой фичей?

← →
Nest © (2002-03-21 14:42) [0]

Чтобы некоторые строчки в листбоксе были disabled, т.е. серенькими и недоступными к выбору. Видел это в готовых прогах, но не знаю как реализовать. Напрашивается мысль использовать сторонний компонент, или ещё лучше свой написать, но не знаю как.
Помогите пож.

← →
Nest © (2002-03-21 15:15) [1]

← →
MBo © (2002-03-21 15:45) [2]

заноси признак в Items.Objects

← →
Nest © (2002-03-21 15:55) [3]

MBo ©
Где почитать, как зонести признак в Items.Objects?
(более подробное объяснение (или даже пример) очень хочется, но стыдно просить)

style OwnerDraw поставь

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:=0 to 9 do
LB1.Items.AddObject("String"+IntToStr(i),pointer(odd(i)));
// если уже заполнен, делай
// LB1.Items.Objects[i]:=pointer(enabled);
// где enabled- boolean или Integer
end;

procedure TForm1.LB1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with LB1.Canvas do begin
FillRect(Rect);
if Boolean(LB1.Items.Objects[Index]) then
Font.Color:=clLtGray
else Font.Color:=clBlack;
TextOut(Rect.Left,Rect.Top,LB1.Items[Index]);
Font.Color:=clBlack;
end;

end;

procedure TForm1.LB1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
APoint: TPoint;
Index: Integer;
begin
if Button = mbLeft then begin
APoint.X := X;
APoint.Y := Y;
Index := LB1.ItemAtPos(APoint, True);
if (Index>=0) and (not Boolean(LB1.Items.Objects[Index])) then
label1.caption:=LB1.Items[Index];
end;
end;

Как сделать недоступными некоторые items в TListBox? Или есть другой компонент с такой фичей? Найти похожие ветки