J'ai tenté ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.
ça compile mais rien ne s'affiche... ?

@+