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

[Alx]

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

[P@sh@]

DX - это видимо DirectX, компонент, ага... только не дельфы, а винды...

но и без него можно сделать кое-что:

var Bmp: TBitmap;
...
Form1.Canvas.CopyRect(Form1.ClientRect,
  Bmp.Canvas, Rect(offset, 0, Form1.ClientWidth+offset, Form1.ClientHeight));
...
// ClientRect=(0,0,ClientWidth,ClientHeight) - внутреннее пространство формы

блок из Bitmapа размером с форму Form1, только с горизонтальным смещением offset копируется прямо на форму Form1

и не забудь добавить строчку DoubleBuffered, чтоб не моргало при перерисовке...


вот, только что сделал для проверки:

unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  end;

var
  Form1: TForm1;
  Bitmap: TBitmap;
  x: integer;

implementation

{$R *.dfm}

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

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.CopyRect(clientrect,Bitmap.Canvas,rect(x,0,x+clientwidth,clientheight));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Bitmap.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(x);
  if x+clientwidth>=1024 then x:=0;
  repaint;
end;
end.

на форме только Timer1