Discussion :

[Archimède]

ah, c'est pointu, je pouvais chercher longtemps...
Merci pour cette précision...
Pour l'autre discussion, sous ie, ça marche...

[Archimède]

donc voici la bonne version...

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