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

Вниз

Картинку из TreeView в image   Найти похожие ветки 

← →
Crazy monkey   (2006-07-25 13:14) [0]

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

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

---

← →
PSPF2003 ©   (2006-07-25 13:39) [1]

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);

---

← →
Crazy monkey   (2006-07-25 14:09) [2]

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

---

← →
PSPF2003 ©   (2006-07-25 14:13) [3]

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

---

← →
Crazy monkey   (2006-07-25 14:29) [4]

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

---

← →
PSPF2003 ©   (2006-07-25 14:31) [5]

Напиши код

---

← →
Степан   (2006-07-25 22:20) [6]

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

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;

---

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

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

Наверх

Память: 0.45 MB
Время: 0.043 c