Salut,

Quelqu'un connait-il un truc simple et efficace pour afficher une information comme la description d'un produit à l'extérieur d'un Browse au bas d'une page?

Voici une facon simple de le faire;

USE INVENT IN 0
SELECT INVENT
DEFINE WINDOW W_PROD FROM 0,0 TO 22,79
DEFINE WINDOW WWDESC FROM 23,0 TO 23,79 NONE COLOR GR+/B
ON KEY LABEL F1 DO quelque chose ici
BROWSE WINDOW W_PROD WHEN WWDESC() TITLE "Liste de Produits"
ON KEY LABEL F1
CLOSE ALL
CLEAR WINDOWS
RETURN
*----------------------------------------
PROCEDURE WWDESC
PUSH KEY CLEAR
AV_WIN=WONTOP()
ACTIVATE WINDOW WWDESC
@0,1 SAY"Description : "
@$,$ SAY INVENT.DESCRIP color w/b
SHOW WINDOW (AV_WIN)
POP KEY
RETURN
*==========================================================

Remarquez que cette méthode fonctionne très bien mais je trouve que cela fait beaucoup d'opérations pour un simple affichage et je me demandais s'il n'y avait pas une méthode plus simple.

J'ai déjà vu aussi l'utilisation de Edit in window... mais on a pas beaucoup de controle sur la couleur et l'emplacement.

Merci à l'avance.