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

← →
Grant (2005-07-11 11:52) [0]

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

← →
gydvin (2005-07-11 12:15) [1]

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

← →
Grant (2005-07-11 15:00) [2]

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

← →
gydvin (2005-07-11 15:48) [3]

Тогда отрисовывай на канве формы. Допустим создаем 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;

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

← →
Virgo_Style © (2005-07-11 19:08) [4]

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

← →
Grant (2005-07-12 10:42) [5]

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

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

← →
Grant (2005-07-12 14:28) [7]

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

Работа с компонентом Image Найти похожие ветки