Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
 | | Sujet: Les formes du curseur en Panoramic (niveau débutant) Mar 7 Avr 2020 - 17:02 | |
| Niveau : débutants. Bonjour à tous ! En Panoramic, le curseur peut prendre différents aspects : croix, main, interdit … La mise en œuvre est très simple : le mot-clé caractérisant le style du curseur, suivi du numéro d’objet sur lequel on souhaite que le curseur change de forme automatiquement. Par exemple, si l’on souhaite avoir une croix lorsque la souris est au-dessus d’un PICTURE n° 10, nous aurons : - Code:
-
PICTURE 10
CURSOR_CROSS 10
END Voici quelques lignes de code pour visualiser ces différentes possibilités. - Code:
-
' Les différentes formes du curseur en Panoramic
DIM i%,d%,curseur%
LABEL arrow,beam,cross,default,help,hid,hourglass,noparking,point,null
COLOR 0,250,0,0
FOR i% = 1 to 9
PICTURE i%
TOP i%,125
LEFT i%,40 + d%
WIDTH i%,40
HEIGHT i%,40
d% = d% + 55
NEXT i%
ON_MOUSE_MOVE 0,null
CURSOR_ARROW 1
ON_MOUSE_MOVE 1,arrow
CURSOR_BEAM 2
ON_MOUSE_MOVE 2,beam
CURSOR_CROSS 3
ON_MOUSE_MOVE 3,cross
CURSOR_DEFAULT 4
ON_MOUSE_MOVE 4,default
CURSOR_HELP 5
ON_MOUSE_MOVE 5,help
CURSOR_HIDE 6
ON_MOUSE_MOVE 6,hid
CURSOR_HOURGLASS 7
ON_MOUSE_MOVE 7,hourglass
CURSOR_NOPARKING 8
ON_MOUSE_MOVE 8,noparking
CURSOR_POINT 9
ON_MOUSE_MOVE 9,point
ALPHA 10
TOP 10,40
LEFT 10,50
FONT_SIZE 10,18
CAPTION 10,"Les différentes formes du curseur."+CHR$(13)+ "Déplacez votre souris sur les carrés blancs :"
ALPHA 11
TOP 11,250
LEFT 11,150
FONT_SIZE 11,18
END
null:
IF curseur%=0 THEN RETURN
curseur%=0
CAPTION 11,""
RETURN
default:
IF curseur%=10 THEN RETURN
curseur%=10
CAPTION 11,"Syntaxe :" + chr$(13)+"CURSOR_DEFAULT n"
RETURN
arrow:
IF curseur%=1 THEN RETURN
curseur%=1
CAPTION 11,"Syntaxe :" + chr$(13)+"CURSOR_ARROW n"
RETURN
beam:
IF curseur%=2 THEN RETURN
curseur%=2
CAPTION 11,"Syntaxe :" + chr$(13)+"CURSOR_BEAM n"
RETURN
cross:
IF curseur%=3 THEN RETURN
curseur%=3
CAPTION 11,"Syntaxe :" + chr$(13)+"CURSOR_CROSS n"
RETURN
help:
IF curseur%=4 THEN RETURN
curseur%=4
CAPTION 11,"Syntaxe :" + chr$(13)+"CURSOR_HELP n"
RETURN
hid:
IF curseur%=5 THEN RETURN
curseur%=5
CAPTION 11,"Syntaxe :" + chr$(13)+"CURSOR_HIDE n"
RETURN
hourglass:
IF curseur%=6 THEN RETURN
curseur%=6
CAPTION 11,"Syntaxe :" + chr$(13)+"CURSOR_HOURGLASS n"
RETURN
noparking:
IF curseur%=7 THEN RETURN
curseur%=7
CAPTION 11,"Syntaxe :" + chr$(13)+"CURSOR_NOPARKING n"
RETURN
point:
IF curseur%=8 THEN RETURN
curseur%=8
CAPTION 11,"Syntaxe :" + chr$(13)+"CURSOR_POINT n"
RETURN
 Bonne programmation ! | |
|
Calendrier