Панорама, Как сделать панораму? Опции

[Alx]

Люди, подскажите пожалуйста. Мне необходимо сделать панораму. Длинная кортинка, которая едет по форме. Но когда я двигаю компонент Image по форме image.left:=image.left+1 картинка как будто мерцает и на какоето время пропадает. Мне сказали что так сделать не получится. А как же тогда мне сделать панораму? Заранее спасибо! Alx

[Alx]

Люди, а вот посмотрите. В том коде, который написал P@sh@ я объединил 2 процедуры.

Код

procedure TForm1.FormCreate(Sender: TObject);
begin
doublebuffered:=true;
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('EARTH2.bmp');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x-1;
repaint;
Canvas.CopyRect(clientrect,Bitmap.Canvas,rect(x,0,x+clientwidth,clientheight));
end;

Так можно делать? Но у меня все равно мирцание!!! И присутствие строчки doublebuffered:=true ничего не меняет. А вот если убрать repaint, то тогда мирцание изчезает. Но тогда за рисунком остается размазаный след от него. Ну мирцание же не может быть из за того, что у меня Делфи 5???

Сообщение отредактировано: APAL - 18.08.2004 13:03