Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по TObject...   Найти похожие ветки 

← →
Cosinus ©   (2004-12-21 10:39) [0]

В процедуре добавления некоторой строки из 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) [1]

Add_lb.Items.AddObject(...

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.03 c