[Kaktuz]

Собственно "плавное движение" объектов.
Хотелось бы организовать плавное передвижение объекта (TImage).
Вот здесь это довольно таки хорошо получилось, но вот что-то разобрать код не получается.

Код:

Canvas.MoveTo(i*CW,0);
Canvas.LineTo(i*CW,ClientHeight);

Подскажите что к чему.

[angvelem]

Удалено...

[Kaktuz]

Сообщение от angvelem

Вот ещё пятнашки.

Ага. Хороши. И опять таки без формы и непонятно как оно это все работает...

[angvelem]

Удалено...

[Kaktuz]

Да оно больше напоминает движение части изображения в одном большом изображении.
Полистав форумы, вывод был таков что плавное движение, это движение в таймере каждых к примеру 10 мили секунд на 2 px но это и так ясно

[angvelem]

Удалено...

[Kaktuz]

Что-то аж запутался немного. Одно накладывается на другое, причем другое еще может и двигаться.

[angvelem]

Удалено...

[Pyro]

движение это только иллюзия

время тоже иллюзия

PHP код:

type
  TIllusion = class
  private
    it: TControl;
    step, steps: Integer;
    x0, y0: Integer;
    dx, dy: double;
    timer: TTimer;
  public
    constructor Create(ait: TControl; x, y, asteps: integer; interval: integer = 1);
    destructor Destroy; override;
    procedure event(sender: tobject);
  end;

procedure MoveIt(it: TControl; x, y: Integer; steps: integer = 50; interval: integer = 1);
begin
  TIllusion.Create(it, x, y, steps, interval);
end;

{ TIllusion }

constructor TIllusion.Create(ait: TControl; x, y, asteps, interval: integer);
begin
  it := ait;
  step := 0;
  steps := asteps;
  x0 := it.Left;
  y0 := it.Top;
  dx := (x-x0)/steps;
  dy := (y-y0)/steps;

  timer := TTimer.Create(nil);
  timer.Interval := interval;
  timer.OnTimer := event;
end;

destructor TIllusion.Destroy;
begin
  timer.Free;
end;

procedure TIllusion.event(sender: tobject);
begin
  step := step + 1;
  it.Left := round(x0+dx*step);
  it.Top := round(y0+dy*step);
  if step = steps then
    Free;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MoveIt(Image1, x, y);
end; 


[angvelem]

Удалено...

[Pyro]

[off]
у меня другой подход: время есть только в уме. а ума нет... да, на физику не ходил
[/off]

[Kaktuz]

Сообщение от angvelem

Понимаешь же, движение это только иллюзия. Имеем на форме таймер, битмап с основным изображением и битмапы с изображениями, которые "двигаем". Также дополнительный (буферный) битмап куда собираем картинку перед выводом. Запустился таймер, начали меняться координаты движимой картинки. Копируем в буферный битмап основную картинку, поверх накладываем движимую картинку. Всё это выводим на экран. Таймер запустил новый цикл и поменял координаты, повторяем вышеизложенное.

Что-то вроде такого? До такого я Вот только при удержании кнопки движения, заметно мерцают белые полосы.

[angvelem]

Удалено...

[Kaktuz]

Сообщение от angvelem

Посмотри установлен ли DoubleBuffered в True.

Где это такое находится? В свойствах такого нету.

[angvelem]

Удалено...