Картинку из 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 заряжен (в смысле картинки есть), вроде код тоже правильно записан. Тюкаю на кнопку, а ничего не рисует.

Напиши код

← →
Степан (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;

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