TEST SUR SHAPE

Code:: rem ============================================================================
rem TEST SUR SHAPE
rem Panoramic_Editor Version 0.928i12 du 8 juillet 2017
rem ============================================================================
width 0,1000 : height 0,800 : caption 0,"TEST SUR SHAPE"
shape 10 : top 10,10 : left 10,100 : shape_ellipse 10
width 10,300 : height 10,400 : hint 10,"Ceci est un SHAPE ellipse"

shape 20 : top 20,500 : left 20,100 : shape_ellipse 20
width 20,400 : height 20,200 : hint 20,"Ceci est un SHAPE ellipse"

shape 30 : top 30,10 : left 30,500 : shape_rectangle_rounded 30
width 30,300 : height 30,200 : hint 30,"Ceci est un SHAPE rectangulaire" + chr$(13) + "à coins arrondis"

shape 40 : top 40,300 : left 40, 500 : width 40,200 : height 40,200 : hint 40,"Ceci est un SHAPE cercle"

shape 50 : top 50, 600 : left 50,600 : shape_square 50 : hint 50,"Ceci est SHAPE carré"

shape 60 : top 60,600 : left 60,700 : hint 60,"Ceci est un SHAPE circulaire par défaut"

font_bold 0 : font_size 0,18
print_locate 420,250 : print "Survolez ces SHAPE pour afficher leur HINT"
rem ============================================================================

La question que je me pose :
Comment se servir de SHAPE dans un code et quelle utilité peut-on en tirer ?

Les Shape, comme dans d'autres langages, servent essentiellement à créer des interfaces visuels plus "tape-à-l'oeil", pour donner un style personnalisé. En fait, ce sont des éléments de décor, tout comme dans une page internet.

Merci Klaus pour les explications.
J’ai cru voir dans un code Delphi qu’on pouvait faire un caption sur un objet TShape, mais en fait, c’était sur un objet TLabel.
En Panoramic, on peut écrire dans un SHAPE par PRINT_LOCATE ou en y mettant un ALPHA.

Code:: rem ============================================================================
rem TEST SUR SHAPE
rem Panoramic_Editor Version 0.928i12 du 8 juillet 2017
rem ============================================================================
width 0,1000 : height 0,800 : caption 0,"TEST SUR SHAPE"
shape 10 : top 10,10 : left 10,100 : shape_ellipse 10
width 10,300 : height 10,400 : hint 10,"Ceci est un SHAPE ellipse"

shape 20 : top 20,500 : left 20,100 : shape_ellipse 20
width 20,400 : height 20,200 : hint 20,"Ceci est un SHAPE ellipse"

shape 30 : top 30,10 : left 30,500 : shape_rectangle_rounded 30
width 30,300 : height 30,200 : hint 30,"Ceci est un SHAPE rectangulaire" + chr$(13) + "à coins arrondis"

shape 40 : top 40,300 : left 40, 500 : width 40,200 : height 40,200 : hint 40,"Ceci est un SHAPE cercle"

shape 50 : top 50, 600 : left 50,600 : shape_square 50 : hint 50,"Ceci est SHAPE carré"

shape 60 : top 60,600 : left 60,700 : hint 60,"Ceci est un SHAPE circulaire par défaut"

font_bold 0 : font_size 0,12
print_locate 420,250 : print "Survolez ces SHAPE pour afficher leur HINT"

print_locate 150,200 : print "SHAPE_ELLIPSE"
print_locate 510,100 : print "SHAPE_RECTANGLE_ROUNDED"
print_locate 200,600 : print "SHAPE_ELLIPSE"
print_locate 540,380 : print "SHAPE Cercle"

alpha 70 : top 70,620 : left 70,610 : caption 70,"Carré"
alpha 80 : top 80,620 : left 80,710 : caption 80,"Cercle"
rem ============================================================================

» Shape et Chart
» BUG sur l'objet shape
» on_click sur shape
» Test de la 3D.
» Test de SearchStringList.