Как анимировать картинки часов ?

[Жаконда]

Добрый день, проблема вот в чем есть картинки цыфровых часов, типа как в сериале lost, подскажите как их можно анимировать, т.е сделать чтобы они как бы переворачивались ? картинки часов прилогаю.

[Жаконда]

столько просмотревших и ни у кого нет идей как это сделать ?

[Пепел Феникса]

я лично не очень понимаю что надо сделать, покажите схемкой какойнить.
поворот изображений обсуждался уже.

[raxp]

copyrect() исходного (в буфере) на канвас.

[Жаконда]

ну думаю видели телефон HTC, в его оболочке HTC manila есть часы, когда минуты, часы перелистываются, все это происходит плавно и красиво ) как можно сделать хоть что то подобное ?

[Serge_Bliznykov]

нет, не видели HTC и манилу тоже не видели...
Пока Вы не сделаете внятное и понятное объяснение того, что вы собственное хотите - вряд ли кто-то Вам что-то подскажет..

p.s. сделайте анимированный гиф, или снимите ролик про Ваш HTC manila или найдите изображение в интернете (на ютубе, например)...

[raxp]

...предполагаю что-то вроде этого, только с цифрами:

[Alter]

Demo написал, не сложное. Нужно фрейм делать из картинок и все.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    ImageList1: TImageList;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
   I :Integer;
    { Public declarations }
  end;

const
  St :array[Boolean] of string = ('Старт', 'Стоп');

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  case Timer1.Enabled of
 True: begin // стоп
        Timer1.Enabled := False;
       end;
 False:begin // старт
        Timer1.Enabled := True;
       end;
  end;
 Button1.Caption := St[Timer1.Enabled];
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Bmp :TBitmap;
begin
 Timer1.Enabled := False;
 Timer1.Interval := 400;
  //
 Button1.Caption := St[Timer1.Enabled];
  // одна часть изображения
 with ImageList1 do
 begin
  Height := 83;
  Width := 48;
 end;
 I := 0;
 Bmp := TBitmap.Create;
  try
 Bmp.PixelFormat := pf24bit;
 Bmp.Transparent := True;
 Bmp.TransparentColor := clRed;
 Bmp.LoadFromFile(ExtractFilePath(ParamStr(0)) + '2_Frame.bmp');
 ImageList1.AddMasked(Bmp, clRed);
  finally
 FreeAndNil(Bmp);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Repaint;
 SetBKMode(Canvas.Handle, TRANSPARENT);
 ImageList1.Draw(Canvas, 10, 10, I);
 if I < ImageList1.Count-1 then
  Inc(I)
 else
  I := 0;
end;

end.

[Serge_Bliznykov]

да нет, мне кажется тут чуть другое..
вот тут, на первых секундах ролика можно увидеть, как эти часы выглядят (к сожалению, процесс перехода смазан - как раз телефон поворачивают в этот момент)


а может это "обычные" переворачивающиеся часы (смотри скриншот тут). Ну это у пиндосов были такие часы. Ещё до изобретения электронных. Там на карточках цифры, в середине цифры проходит ось, кажда цифра написана на двух карточках (половинка цифры на верхей, половина над нижней), когда приходит время, верхняя половинка опускается, а на обратной стороне другая цифра открывается..
Кстати, если это такие часы, то их можно подробно рассмотреть в замечательном фильме "День сурка" (могу выложить ролик оттуда)
вот, кстати, можно такие даже купить - Часы с переворачивающимися иконками в ретро стиле

Жаконда, вам такое надо?...

[Alter]

Вот оно как надо было. Но это не очень сложно, код-основа есть, остальное дело техники.