Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x

Auteur
avatar

Elwood

Forum » » Création-Développement » » Accès rapide dans un guide

Posté : 11-06-2013 14:10 icone du post

Oui j'ai un exemple (pas fait par moi) d'un script qui lit des données depuis intuition pour trouver quelle est la fenêtre en avant plan.
C'est plutôt compliqué je trouve. Voici un bout pour donner un exemple :

ibase = SHOWLIST(l,'intuition.library',,a)

CALL FORBID
scradd = next(ibase,56)
Say "Screenname =" IMPORT(NEXT(scradd,22))
CALL PERMIT

/* Read and Print Screen Width and Height */
ScreenWidth = C2D(IMPORT(D2C(C2D(scradd)+ 12),2))
ScreenHeight = C2D(IMPORT(D2C(C2D(scradd)+ 14),2))
Say "ScreenSize (w x h) =" ScreenWidth "x" ScreenHeight

--
Philippe Ferrucci
Avec une Sam460 et AmigaOS 4.1, je suis eco-responsable. Cool !

Cet article provient de Le site des utilisateurs francophones actuels et futurs d'AmigaOS 4.x
https://amiga-ng.org/viewtopic.php?topic=1569&forum=14