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

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

Работа с компонентом Image

Grant ©   (2005-07-11 11:52:00) 

Всем привет. Очень нужна Ваша помощь. Я с Delphi работаю довольно долго но с графикой не сталкивался. Мне надо сделать вот какую вещь: есть картинка (GIF или .jpg) и есть окно приложения; очень надо сделать так чтобы картинка плавно перемещалась по окну(например из одного угла в другой), то есть получалась как бы анимация. Это нужно сделать очень срочно поэтому искать и читать все подряд нет времени. Подскажите, пожалуйста, с помощью какого компонента и как можно это сделать(вроде с помощью Image), а если ещё и с примером, то вообще будет супер. Заранее огромная всем благодарность.

---

Grant   (2005-07-12 14:28:00) [1]

Всем огромное спасибо за помощь.

---

MBo   (2005-07-12 13:17:00) [2]

как избежать при этом мерцаний
DoubleBuffered:=True
для формы(если Image лежит на ней)

---

Grant   (2005-07-12 10:42:00) [3]

Таймером перемещать получается нормально. Спасибо. Может быть ещё подскажите как избежать при этом мерцаний картинки?

---

Virgo_Style   (2005-07-11 19:08:00) [4]

Перемещай не в цикле, а по таймеру.

---

gydvin   (2005-07-11 15:48:00) [5]

Тогда отрисовывай на канве формы. Допустим создаем bitmap заведомо с большим размером чем форма.

procedure TForm1.Button1Click(Sender: TObject);
var
b1,b2:tbitmap;
x:integer;
begin
b1:=tbitmap.Create;
b2:=tbitmap.Create;
b1.Width:=Width *3;
b1.Height:=Height *3;
for x:=0 to b1.Width do begin
b2.Assign(b1);
b2.Canvas.Brush.Color:=clred;
b2.Canvas.Ellipse(x,10,x+20,30);
canvas.StretchDraw(rect(0,0,Width,Height),b2);
sleep(10);
application.ProcessMessages
end;
b1.Free;
b2.Free;
end;

но код говорю сразу гниловастеньки, бывает и лучше, лишняя затрата ресурсов.

---

Grant   (2005-07-11 15:00:00) [6]

Спасибо за ответ. Но если так сделать(в цикле), то она перескакивает с места на место слишком быстро, а мне хотелось бы плавно. Задержки ставить не очень-то хочется.

---

gydvin   (2005-07-11 12:15:00) [7]

begin
image1.left:=image1.left+1
end;

---

Наверх