Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Flash Pascal Discussion :

Stage et redimensionnement


Sujet :

Flash Pascal

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

  2. #22
    Membre expérimenté
    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.

###raw>template_hook.ano_emploi###