Текущий архив: 2006.08.13;
Скачать: CL | DM;
Вниз
Картинку из 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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.053 c
