Intégration de bmp

Version imprimable

Intégration de bmp

J'ai tenté ça :

Code:

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... ?

@+

J'ai tenté ça aussi avec la nouvelle unité flash8, sans succès ...

Code:

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
 
program bmp;
 
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; //inutile déclarée dans Flash8...
 
constructor TMovieclip.Create;                                                                  
var  
 mybmp : BitmapData;
begin
 inherited Create(nil,'mymovieclip',1);
 mybmp := BitmapData.Create(686,324);
 mybmp := loadBitmap('nom');
 attachBitmap(mybmp,1,'',false);         //'' ou 'auto'
end;
 
 
 
begin
 TMovieclip.Create;
end.

20/05/2012, 12h10
Paul TOTH

1 pièce(s) jointe(s)
c'est ma très grande faute :)
Code:

1 2 function loadBitmap(id: string): BitmapData external flash.display.BitmapData.loadBitmap;
il manque 'flash.display'

mais voici une mise à jour avec un nouveau tag et la correction de quelques bugs (sur les évènements notamment) et le _yscale de MovieClip dans Flash8.pas
Code:

1 2 {$JPEG nom 'image.jpg'}
Pièce jointe 95361
20/05/2012, 12h26
Archimède

Nickel, je teste ça. Avec nous, tu travailles même le dimanche lol...

merci mille fois... quel boulot ta nouvelle unité Flash8 ! :ccool:

@+
20/05/2012, 12h32
Archimède

Parfait, rien à dire...8O
Je mets le tag résolu ! :)