| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание и перемещение Image
ZedeS © (2004-09-01 20:59:00)Доброго времени суток!
Тема избитая, но прошу помочь.
Есть Image1 при клике по нему нужно создать точно такой же Image и его уже таскать по экрану. В качестве пособия исполшьзовал статью Перемещение Image'a по форме во время работы программы http://www.delphimaster.ru/articles/move-image.htmlи дописал
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
im: TImage;
begin
im:=TImage.Create(self);
im .Picture.Assign(image1.Picture);
Form1.Canvas.DrawFocusRect(rec);
with im do begin
setbounds(rec.left+x-x0,rec.top+y-y0,width,height); //перемещаем картинку
move:=false;
end;
end;
но на новом месте ничего не рисуется.
Заранее спасибо за ответ!
Mihey_temporary (2004-09-01 23:03:00) [1]
> ZedeS © (01.09.04 21:46) [3]
Извиняюсь за вопрос, но если
form1.Canvas.Draw(rec.left+x-x0,rec.top+y-y0,im.Picture.Graphic);//рисуем картинку
То зачем нужен TImage, когда достаточно TBitmap?
ZedeS (2004-09-01 21:46:00) [2]Извините за панику,разобрался сам.
var
im: TImage;
begin
im:=TImage.Create(form1);
im .Picture.Assign(image1.Picture);
Form1.Canvas.DrawFocusRect(rec);
form1.Canvas.Draw(rec.left+x-x0,rec.top+y-y0,im.Picture.Graphic);//рисуем картинку
move:=false;
Svit (2004-09-01 21:35:00) [3]Добавь Im.Parent := Form1;
Svit (2004-09-01 21:35:00) [4]Добавь Im.Parent := Form1;
| |
