Как сделать непрерывное движение рисунка по форме по горизонтали справа налево

Posted by Chas under Delphi

Как сделать непрерывное движение рисунка по форме по горизонтали справа налево, чтобы часть рисунка, которая уже скрыта за правым полем тут же всплывала с левого поля формы и так далее.

kangreon

type

  TForm1 = class(TForm)

    Button1: TButton;

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    BitMap: TBitmap;

    x: Integer;

  public

    { Public declarations }

  end;

var

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

var

  Open: TOpenDialog;

begin

  Open := TOpenDialog.Create(Self);

  if Open.Execute then

  begin

    BitMap := TBitmap.Create;

    BitMap.LoadFromFile(Open.FileName);

    Timer1.Enabled := True;

    Timer1.Interval := 20;

    x := 0;

  end;

  Open.Free;

end;
procedure TForm1.Timer1Timer(Sender: TObject);

var

  w, l: Integer;

begin

  if x > ClientWidth then

    x := 0;

  if x < 0 then
    x := ClientWidth;

  Canvas.FillRect(ClientRect);
  BitBlt(Canvas.Handle, X, 0, BitMap.Width, BitMap.Height,
      BitMap.Canvas.Handle, 0, 0, SRCCOPY);

  w := x + BitMap.Width;
  if w > ClientWidth then

  begin

    w := w - ClientWidth;

    BitBlt(Canvas.Handle, 0, 0, w, BitMap.Height,

        BitMap.Canvas.Handle, BitMap.Width - w, 0, SRCCOPY);

  end;
  Dec(x, 5);

end;

Напровление и скорость движения картинки зависит от увеличения либо уменьшения переменной x.

Dec(x, 5);

либо

Inc(x, 5);

тема на форуме

Похожие статьи

• Движение изображение из точки А в точку В
• Анимированный Gif в компоненте Image
• Отрисовка текста на Canvas с перекрытием букв друг друга
• Анимированный gif в C++ Builder XE
• Анимированный gif в Delphi XE
• Плавное перемещение Image больших размеров
• Получение яндекс каптчи в Image
• Как отследить изменение Image в PictureBox
• Движение обьекта на заданный угол
• Как загрузит gif анимацию в ресурс программы ?