ah, c'est pointu, je pouvais chercher longtemps...
Merci pour cette précision...
Pour l'autre discussion, sous ie, ça marche...
Version imprimable
ah, c'est pointu, je pouvais chercher longtemps...
Merci pour cette précision...
Pour l'autre discussion, sous ie, ça marche...
donc voici la bonne version...
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
38
39
40
41
42 program stage_02; uses Flash8; //{$FRAME_WIDTH 200} //{$FRAME_HEIGHT 200} {$BACKGROUND $9999ff} type mymc=class(movieclip) w,h:number; procedure onResize; procedure draw; end; var mc:mymc; procedure mymc.onResize; begin h := stage.height; w := stage.width; draw; end; procedure mymc.draw; begin clear; lineStyle(1,$ff0000); moveto(0,0); lineto(w,h); end; begin mc:=mymc.create(nil,'mc',1); mc.opaqueBackground := $ffffff; mc.onResize; stage.align:='TL'; stage.scaleMode :='noScale'; stage.addListener(mc); end.