Вопрос по TObject... [D6]
Cosinus © (2004-12-21 10:39:00)
В процедуре добавления некоторой строки из TreeView в ListBox
пишу такой код...
begin
if Add_tv.Selections[0].Level>1 then
begin
Add_lb.Items.Add
(Add_tv.Selections[0].Parent.text+
'='+Add_tv.Selections[0].Text);
Add_lb.Items.Objects[Add_lb.Items.Count-1]:=TObject(CheckIcon(Add_tv.Selections[0].text));//CheckIcon
return IcoIndex
end else
MessageDlg('Coudn''t drag this
object!',mtInformation,[mbOk],0);
end;
В обработчике DrawItem код следующий...
with (Control as TListBox) do
begin
b:=false;
r:=ItemRect(Index);
s:=Items.Strings[Index];
Canvas.FillRect(r);
ImageList1.Draw(Canvas,0,r.Top,integer(Items.Objects[index]));
Canvas.TextOut(Rect.Left+20,Rect.Top,s);
b:=true;
end;
По идее, в зависимости от возвращенного функцией CheckIcon
индекса должны отрисовываться разные иконки в ListBox-е, однако
этого не происходит. Подозреваю, что что то я с TObject намутил не
то. Подскажите, что я делаю не так?
Семен Сорокин (2004-12-21 10:46:00) [1]
Add_lb.Items.AddObject(...
Наверх 
ЧАТ |
Орешник |
|
