version instantanée du 15 octobre 2009

Une version instantanée est la version actuelle du développement de PANORAMIC.
Elle vous permet d'utiliser les toutes dernières améliorations, sans attendre la sortie de la prochaine version.

Mais, attention, une version instantanée:
- n'a pas sa documentation à jour (la documentation est mise à jour pour la sortie d'une version régulière),
- n'a pas de procédure d'installation (c'est un fichier zip contenant l'EDITEUR),
- et ses nouveaux mots-clés ne sont pas colorés.

Voici les apports de cette version de travail:
-----------------------------------------------------------------------------------------------
ON_KEY_UP N,L
Cette commande ON_KEY_UP N,L assigne un label (qui doit être défini dans le programme) à partir de laquelle le programme s'exécutera chaque fois l'utilisateur relache une touche du clavier, pendant que l'objet système désigné par le numéro N a le focus.
L'objet système doit être de l'un des types suivants: BUTTON, EDIT, MEMO, COMBO, FORM, LIST, CHECK, OPTION.
-----------------------------------------------------------------------------------------------
KEY_UP_CODE
Cette variable système KEY_UP_CODE retourne le code de la touche que l'utilisateur relache.
Elle n'est utilisable que dans un traitement de l'événement ON_KEY_UP arrivant sur un objet système.
Cette variable système est associée à KEY_UP_SPECIAL qui indique si les touches CTRL, SHIFT ou ALT ont été utilisées en même temps.
exemple:

Code:

rem déclarer un label
label enter_key
rem un EDIT est créé
edit 1:set_focus 1
rem chaque fois qu'une touche est relachée dans l'EDIT, exécuter à partir du label "enter_key"
on_key_up 1,enter_key
end: rem le programme principal est fini

enter_key:
rem treatment of event
if key_up_code=13 then caption 0,"ENTER est relaché"
return

-----------------------------------------------------------------------------------------------
KEY_UP_SPECIAL
Cette variable système KEY_UP_SPECIAL retourne le code de la touche spéciale (CTRL, SHIFT ou ALT) que l'utilisateur relache en même temps qu'une autre touche.
Elle n'est utilisable que dans un traitement de l'événement ON_KEY_UP arrivant sur un objet système.
Elle indique si l'opérateur relache les touches CTRL, SHIFT ou ALT en même temps qu'une autre touche:
Retourne 0 si aucune touche CTRL, SHIFT ou ALT
Retourne 1 si SHIFT
Retourne 2 si ALT
Retourne 3 si CTRL
Retourne 4 si SHIFT et ALT
Retourne 5 si SHIFT et CRTL
Retourne 6 si ALT et CRTL
exemple:

Code:

rem déclarer un label
label enter_key
rem un EDIT est créé
edit 1:left 1,200:set_focus 1
rem chaque fois qu'une touche est relachée dans l'EDIT, exécuter à partir du label "enter_key"
on_key_up 1,enter_key
end: rem le programme principal est fini

enter_key:
rem treatment of event
if key_up_code=13 then caption 0,"ENTER est relaché"
select key_up_special
case 0
print " " chr$(key_up_code)
case 1
print "SHIFT " chr$(key_up_code)
case 2
print "ALT " chr$(key_up_code)
case 3
print "CTRL " chr$(key_up_code)
case 4
print "SHIFT ALT " chr$(key_up_code)
case 5
print "SHIFT CTRL " chr$(key_up_code)
case 6
print "ALT CTRL " chr$(key_up_code)
end_select
return

-----------------------------------------------------------------------------------------------
ON_KEY_DOWN N,L
Cette commande ON_KEY_DOWN N,L assigne un label (qui doit être défini dans le programme) à partir de laquelle le programme s'exécutera chaque fois l'utilisateur presse sur une touche du clavier, pendant que l'objet système désigné par le numéro N a le focus.
L'objet système doit être de l'un des types suivants: BUTTON, EDIT, MEMO, COMBO, FORM, LIST, CHECK, OPTION.
-----------------------------------------------------------------------------------------------
KEY_DOWN_CODE
Cette variable système KEY_DOWN_CODE retourne le code de la touche que l'utilisateur presse.
Elle n'est utilisable que dans un traitement de l'événement ON_KEY_DOWN arrivant sur un objet système.
Cette variable système est associée à KEY_DOWN_SPECIAL qui indique si les touches CTRL, SHIFT ou ALT ont été utilisées en même temps.

exemple:

Code:

rem déclarer un label
label enter_key
rem un EDIT est créé
edit 1:set_focus 1
rem chaque fois qu'une touche est pressée dans l'EDIT, exécuter à partir du label "enter_key"
on_key_down 1,enter_key
end: rem le programme principal est fini
enter_key:
rem treatment of event
if key_down_code=13 then caption 0,"ENTER est pressé"
return

-----------------------------------------------------------------------------------------------
KEY_DOWN_SPECIAL
Cette variable système KEY_DOWN_SPECIAL retourne le code de la touche spéciale (CTRL, SHIFT ou ALT) que l'utilisateur presse en même temps qu'une autre touche.
Elle n'est utilisable que dans un traitement de l'événement ON_KEY_DOWN arrivant sur un objet système.
Elle indique si l'opérateur presse les touches CTRL, SHIFT ou ALT en même temps qu'une autre touche:
Retourne 0 si aucune touche CTRL, SHIFT ou ALT
Retourne 1 si SHIFT
Retourne 2 si ALT
Retourne 3 si CTRL
Retourne 4 si SHIFT et ALT
Retourne 5 si SHIFT et CRTL
Retourne 6 si ALT et CRTL
exemple:

Code:

rem déclarer un label
label enter_key
rem un EDIT est créé
edit 1:left 1,200:set_focus 1
rem chaque fois qu'une touche est pressée dans l'EDIT, exécuter à partir du label "enter_key"
on_key_down 1,enter_key
end: rem le programme principal est fini
enter_key:
rem treatment of event
if key_down_code=13 then caption 0,"ENTER est pressé"
select key_down_special
case 0
print " " chr$(key_down_code)
case 1
print "SHIFT " chr$(key_down_code)
case 2
print "ALT " chr$(key_down_code)
case 3
print "CTRL " chr$(key_down_code)
case 4
print "SHIFT ALT " chr$(key_down_code)
case 5
print "SHIFT CTRL " chr$(key_down_code)
case 6
print "ALT CTRL " chr$(key_down_code)
end_select
return

-----------------------------------------------------------------------------------------------
OFF_CLICK
Cette commande OFF_CLICK N ignore l'événement "click" quand l'utilisateur clique sur l'objet système désigné par le numéro N.
L'objet système doit être de l'un des types suivants: SCENE3D, BUTTON, EDIT, MEMO, COMBO, ALPHA, FORM, LIST, PICTURE, CHECK, OPTION, SUB_MENU, SCENE2D.
exemple:

Code:

label col1,col2

button 1
top 1,60
width 1,200
caption 1,"clique 2 fois"
on_click 1, col1
end
col1:
caption 1,"cliqué pour la première fois"
wait 250
off_click 1
on_click 1, col2
return
col2:
caption 1,"cliqué pour la deuxième fois"
wait 250
terminate
return

-----------------------------------------------------------------------------------------------
CAPTION$(N)
Retourne le caption de l'objet système numéro N.
L'objet système doit être de l'un des types suivants: BUTTON, ALPHA, FORM, CHECK, OPTION.
exemple:

Code:

button 1:left 1,200
caption 1, "Bonjour"
print caption$(1)

bonjour Jack

Apparemment, la version téléchargeable est celle du 25 semtembre 2009 0.9.15i.
J'ai essayé tes nouveaux codes dessus, ça fonctionne pas.
Le lien doit certainement m'envoyer sur une version antérieure.

Georges
@+

Pour le moment, je n'ai pas les moyens de vérifier quoi que ce soit.
Je ne peux que désactiver le lien pour éviter les désagréments.
Je regarde ça dès que possible.

Effectivement, c'était la version du 25 septembre !

Voila, c'est réparé. Le lien pointe maintenant sur la nouvelle version.

Pour obtenir la version instantanée du 15 octobre, cliquez sur Télécharger ce fichier

Bonjour,

Je viens de prendre un bon bol d'air, en Sologne, Mais alors Pas Un Champignon!
La bonne surprise à mon retour, La version instantanée du 15/10/2009.

Je dois dire que c'est mieux que sur le plan, je n'ai plus qu'a me remettre au travail.

Merci et A+