1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
|
program Exemple; uses Flash8, Date;
{$FRAME_WIDTH 272}
{$FRAME_HEIGHT 48}
{$FRAME_RATE 32}
{$BACKGROUND $eeeeee}
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:=IntToStr(d.getHours);
t.text:=t.text+#32#58#32;
t.text:=t.text+IntToStr2(d.getMinutes);
t.text:=t.text+#32#58#32;
t.text:=t.text+IntToStr2(d.getSeconds);
end;
begin
f:=TextFormat.Create('Tahoma',24);
f.color:=$555555;
f.align:='center';
f.bold:=True;
m:=THorloge.Create(nil,'m',0);
m.beginFill($cccccc);
m.lineStyle(1,$000000);
m.moveTo(0,32);
m.lineTo(0,0);
m.lineTo(256,0);
m.lineTo(256,32);
m.lineTo(0,32);
m._x:=8;
m._y:=8;
t:=TextField.Create(m,'t',0,0,0,256,32);
t.setNewTextFormat(f);
//t.setTextFormat(f);
end. |
Partager