WBOX ADD DRAW

WBOX ADD DRAW X,Y,Dx,Dy,Text$,[Status],[Value],[Sub_out],[Sub_draw]

X,Y

 :

Position de la zone dans la boîte de dialogue

Dx

 :

Largeur de la zone

Dy

 :

Hauteur de la zone

Text$

 :

Texte contenu dans la zone

Status

 :

0 = Bouton déclenché (dehors)

1 = Bouton enclenché (dedans)

Value

 :

.0 = Pas d'affichage de l'ascenseur

.1 = Affichage de l'ascenseur

.2 = Pas d'affichage de la zone

0. = Pas de zoom pan automatique

1. = Zoom et pan automatique dans la zone de dessin

avec la touche [CTRL]

Sub_out

 :

Ce sous-programme est exécuté à chaque sélection

dans la zone.

Sub_draw

 :

Ce sous-programme est exécuté lors de l'affichage

de la zone.

Exemple

 ...
 WCREATE 100,500,100,380
 WBORDER 11
 WBOX INIT 10,0,0
 WBOX SET TITLE "Dessin"
 WBOX COLOR 10
 WBOX ADD DRAW 1,2,78,100,"",0,10,Input,Draw
 WBOX COLOR 0
 WBOX ADD BOX 0,104,80,15,3
 WBOX ADD ACCEPT 1,106,23,12,"",0,0,Accept
 WBOX ADD EXIT 25,106,23,12,"",0,0,Exit
 WBOX ADD HELP 56,106,23,12,"150"
 WBOX INPUT
 WBOX CLOSE
 END
 SUB Draw
   WBOX GET ZONE Num
   WBOX DRAW CLEAR Num
   WBOX DRAW GET FLAG Num,Flag
   IF NOT Flag THEN
     GET LIMIT X1,X2,Y1,Y2
     WBOX DRAW SCALE Num,X1,Y1,X2,Y2
   END IF
   WBOX PLOT ELEM Num,1,NB_ELEM
 SUBEND
 SUB Input
   WBOX GET ZONE Num
   WBOX DRAW GET POS Num;X,Y
   ...
 SUBEND
 ...

Rubriques connexes
WBOX DRAW CLEAR , WBOX DRAW SCALE , WBOX DRAW GET SCALE , WBOX DRAW GET FLAG , WBOX DRAW GET POS , WBOX PLOT ELEM , WBOX ERASE ELEM , WBOX SHOW ELEM