Discussion :

[joreveur]

Bonjour,

il y longtemps j'avais un Amstrad et en Basic on pouvait gérer des fenêtres en mode texte et c’était pratique.
On pouvait afficher dans une fenêtre des infos en fonction de ce qu'on tapait dans une autre.
Par exemple, on pouvait afficher un extrait du plan comptable dans une fenêtre et faire de la saisie dans une autre. Ou alors pour afficher de l'aide.

Ma question est donc de savoir si c'est possible en Freepascal de simuler ce genre de propriétés ?
J'ai bien pensé aux gotoxy mais c'est un peu lourd.

Voici un peu de code Amstrad (on gérait même les couleurs de fond, etc)

Code Basic :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
WINDOW
 
WINDOW [ # <numéro de canal>,]<gauche>,<droite>,<haut>,<bas>
 
    10 MODE 0:BORDER 0:REM cible tv
    20 INK 0,0:INK 1,25:INK 2,23:INK 3,21
    30 INK 4,17:INK 5,6:INK 6,2:INK 7,26
    40 PAPER 0:CLS
    50 PAPER 1:WINDOW 2,4,1,18:CLS
    60 PAPER 2:WINDOW 5,7,1,18:CLS
    70 PAPER 3:WINDOW 8,10,1,18:CLS
    80 PAPER 4:WINDOW 11,13,1,18:CLS
    90 PAPER 5:WINDOW 14,16,1,18:CLS
    100 PAPER 6:WINDOW 17,19,1,18:CLS
    110 PAPER 7:WINDOW 2,19,19,25:CLS

Merci de vos avis.

[Alcatîz]

Bonjour,

Free Pascal était fourni avec la bibliothèque Free Vision, compatible avec la bibliothèque Turbo Vision de Borland. L'IDE en mode texte de Free Pascal était d'ailleurs développé avec Free Vision. Mais j'ignore si les versions actuelles de Free Pascal supportent encore cette bibliothèque.

Dans la négative, tu peux éventuellement te rabattre sur Virtual Pascal, qui est fourni avec Turbo Vision.

[batyann811]

Les fenêtres du mode texte des Amstrad étaient quelque chose de beaucoup plus simple que FreeVision/TurboVision. Ce qui s'en rapproche le plus c'est la procédure window de l'unité Crt. Mais c'est bien limité par rapport aux fenêtre du basic des amstrad. On ne peut avoir qu'une fenêtre définie et les attributs de texte ne sont pas mémorisé.

Comme j'avais du temps aujourd'hui je me suis amusé à faire une petite unité qui permet de creer plusieurs fenêtres texte comme sur amstrad. Cette unité vient en remplacement de l'unité Crt (en interne elle utilise l'unité Crt) et ajoute 2 procédures et une fonction pour gérer les fenêtres :

• DefineWindow pour creer une fenetre
• SelectWindow pour selectionner une fenetre
• CurrentWindow pour connaître le numéro de la fenêtre selectionnée

C'est du vite fait. Je n'ai testé que sous linux mais ça semble fonctionner.

[joreveur]

bonjour,

pour du vite fait ça m'épate... je suis sous Linux et ça fonctionne parfaitement.
encore merci. je vais voir quelle application je vais pouvoir en faire.

bien cordialement

[joreveur]

Les fenêtres du mode texte des Amstrad étaient quelque chose de beaucoup plus simple que FreeVision/TurboVision. Ce qui s'en rapproche le plus c'est la procédure window de l'unité Crt. Mais c'est bien limité par rapport aux fenêtre du basic des amstrad. On ne peut avoir qu'une fenêtre définie et les attributs de texte ne sont pas mémorisé.

Comme j'avais du temps aujourd'hui je me suis amusé à faire une petite unité qui permet de creer plusieurs fenêtres texte comme sur amstrad. Cette unité vient en remplacement de l'unité Crt (en interne elle utilise l'unité Crt) et ajoute 2 procédures et une fonction pour gérer les fenêtres :

• DefineWindow pour creer une fenetre
• SelectWindow pour selectionner une fenetre
• CurrentWindow pour connaître le numéro de la fenêtre selectionnée

C'est du vite fait. Je n'ai testé que sous linux mais ça semble fonctionner.

Bonjour, je n'explique pas ce bug.. j'ai remplacé les WriteLn par des Write
mais un i s'affiche dans une "marge" ? ça ne gère pas bien la dernière ligne ?

Avez-vous une explication, une solution ? j'ai un peu regardé le code mais ça ne m'explique pas.

merci

[batyann811]

Cela vient d'un bug dans l'unité Crt de FreePascal (je l'ai signalée hier sur le bug tracker). Ce bug se produit uniquement quand une fenêtre est collée au bord droit de la l'écran.

En attendant la correction du bug de l'unité FreePascal le plus simple est de ne pas utiliser la colonne la plus à droite de l'écran. J'ai fait une légère modification qui contourne ce bug.

[joreveur]

Merci,

effectivement j'avais bien lu qu'il y avait un bug mais je pensais que votre 1ere version l'avait déjà corrigée.

en tout cas, maintenant, ça fonctionne correctement.

Question annexe quand sait-on que FreePascal corrige ce bug ?

cordialement,

[joreveur]

Bonjour,

Free Pascal était fourni avec la bibliothèque Free Vision, compatible avec la bibliothèque Turbo Vision de Borland. L'IDE en mode texte de Free Pascal était d'ailleurs développé avec Free Vision. Mais j'ignore si les versions actuelles de Free Pascal supportent encore cette bibliothèque.

Dans la négative, tu peux éventuellement te rabattre sur Virtual Pascal, qui est fourni avec Turbo Vision.

Bonjour et merci. j'ai un eu cherché sur le net mais je n'ai pas trouvé d'exemple de Free Vision

[M.Dlb]

Il faut plutôt chercher des exemples de Turbo Vision, car Free Vision n'est plus que très peu utilisé (car Turbo Vision n'est plus que très peu utilisé aussi).

Par exemple:
http://mdalbin.developpez.com/tutori...l/turbovision/
http://mdalbin.developpez.com/tutoriels/pascal/tvpa/