| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Картинку из TreeView в image

Crazy monkey ©   (2006-07-25 13:14:00) 

Есть TTreeView. Каждый item этого компонента имеет свою картинку, которая взята из imagelist. Необходимо, чтобы кликнув на любом item компонента TreeView, картинка этого itemа появилась в компоненте timage.

Очень нужен исходник.
Заранее спасибо.

---

Степан   (2006-07-25 22:20:00) [1]

А вот исходник... Для самых понятливых!

procedure TMainForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
 Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  ImageList1.GetBitmap(Node.ImageIndex, Bitmap);
  Image1.Picture.Assign(Bitmap);
  Bitmap.Free;
end;

---

PSPF2003   (2006-07-25 14:31:00) [2]

Напиши код

---

Crazy monkey   (2006-07-25 14:29:00) [3]

Видать не судьба. Imagelist заряжен (в смысле картинки есть), вроде код тоже правильно записан. Тюкаю на кнопку, а ничего не рисует.

---

PSPF2003   (2006-07-25 14:13:00) [4]

Что то не то сделал.
procedure TForm1.Button1Click(Sender: TObject);
begin
 ImageList1.Draw(Canvas, 0, 0, 1);
end;

---

Crazy monkey   (2006-07-25 14:09:00) [5]

Не знаю! Вроде все значения указал, а ничего не происходит. Может иной есть способ?

---

PSPF2003   (2006-07-25 13:39:00) [6]

procedure ImageList.Draw(Canvas: TCanvas; X, Y, Index: Integer;
 Enabled: Boolean);

procedure ImageList.Draw(Canvas: TCanvas; X, Y, Index: Integer;
 ADrawingStyle: TDrawingStyle; AImageType: TImageType; Enabled: Boolean);

---

Наверх