{ Exemple Flash-Pascal
  Horloge numérique
  Roland Chastain 09.06.2012 }

program Horloge;

uses
  Flash8, Date;
 
{$FRAME_WIDTH 176}
{$FRAME_HEIGHT 64}
{$BACKGROUND $303030}
{$FRAME_RATE 10}
 
type
  THorloge = class(MovieClip)
    procedure onEnterFrame;
  end;
 
var
  d: TDate;
  f: TextFormat;
  m: THorloge;
  t: TextField;
 
function IntToStr2(i: Integer): string;
begin
  Result := IntToStr(i);
  if i < 10 then
    Result := '0' + Result;
end;
 
procedure THorloge.onEnterFrame;
begin
  d := TDate.Create;
  t.text := IntToStr2(d.getHours) +
            #32 + #58 + #32 +
            IntToStr2(d.getMinutes) +
            #32 + #58 + #32 +
            IntToStr2(d.getSeconds);
end;
 
begin
  f := TextFormat.Create('Tahoma', 24);
  f.color := $00FF00;
  f.align := 'center';
  m := THorloge.Create(nil, 'm', 0);
  m.opaqueBackground := $000000;
  m._x := 16;
  m._y := 16;
  t := TextField.Create(m, 't', 0, 0, 0, 9 * 16, 32);
  t.setNewTextFormat(f);
end.