[Flash Pascal] flash.system.Capabilities et largeur du navigateur

flash.system.Capabilities et largeur du navigateur

Hello, je me suis aperçu d'une propriété intéressante pour récupérer les dimensions de l'écran et as2 le gère...normalement. C'est opérationnel en as3 mais aussi en as2, je pense.

J'ai donc pensé à flashpascal.

Il serait donc intéressant de pouvoir faire :
Code:

1 2 malargeur:= system.Capabilities.screenResolutionX;
Ceci permettrait d'adapter son movieclip à la largeur totale du navigateur...sans se fixer une largeur arbitraire au début du project. :D

ok, c'est intéressant mais je vais devoir adapter le compilateur :)

en théorie il suffirait de déclarer ceci

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
 
  capabilities = external class(System.capabilities)
    class property avHardwareDisable: Boolean readonly;
    class property hasAccessibility: Boolean readonly;
    class property hasAudio: Boolean readonly;
    class property hasAudioEncoder: Boolean readonly;
    class property hasEmbeddedVideo: Boolean readonly;
    class property hasIME: Boolean readonly;
    class property hasMP3: Boolean readonly;
    class property hasPrinting: Boolean readonly;
    class property hasScreenBroadcast: Boolean readonly;
    class property hasScreenPlayblack: Boolean readonly;
    class property hasStreamingAudio: Boolean readonly;
    class property hasStreamingVideo: Boolean readonly;
    class property hasVideoEncoder: Boolean readonly;
    class property isDebugger: Boolean readonly;
    class property language: String readonly;
    class property localFileReadDisable: Boolean readonly;
    class property manufacturer: String readonly;
    class property os: String readonly;
    class property pixelAspectRadio: Number readonly;
    class property playerType: string readonly;
    class property screenColor: string readonly;
    class property screenDPI: Number readonly;
    class property screenResolutionX: Number readonly;
    class property screenResolutionY: Number readonly;
    class property serverString: string readonly;
    class property version: string readonly;
  end;

mais System est un nom réservé qui ne passe pas dans ce contexte :)

par contre là je suis trop occupé pour le faire, je corrige ça dès que possible.

Pas de souci ;)