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
|
uses Flash8;
{$FRAME_WIDTH 686}
{$FRAME_HEIGHT 324} //dimensions de l'image
{$BITMAP nom 'chrono.bmp'}
type
TMovieclip = class(MovieClip)
constructor Create;
end;
function loadBitmap(id: string): BitmapData external BitmapData.loadBitmap;
constructor TMovieclip.Create;
var Matrix1 :Matrix;
mybmp : BitmapData;
begin
inherited Create(nil,'mymovieclip',1);
mybmp := BitmapData.Create(686,324);
mybmp := loadBitmap('nom');
matrix1:=Matrix.create;
matrix1.createbox(1,1,0,0,0);
beginBitmapFill(mybmp,matrix1);
moveto(0,0);
lineto(686,0);
lineto(686,324);
lineto(0,324);
lineto(0,0);
endFill();
end;
begin
TMovieclip.Create;
end. |
Partager