[TPW] Barre de défilement sans effet

Bonjour,
Mon programme affiche ses résultats dans une nouvelle fenêtre possèdant bien les barres de défilement horizontal et vertical, mais celles-ci sont sans effet. Il m'est impossible de lire la totalité des résultats. Que faire pour que les barres de défilement fassent le travail pour lequel elles ont été inventées ?

Merci beaucoup de votre aide.

Bonjour
Tu parles bien de l'écran d'éxecution et de TP?
OU bien c'est toi qui a codé quelque chose pour simuler les barres de défilement
Cordialement

Merci de votre réponse rapide

oui, il s'agit bien des barres de défilement de l'écran d'exécution et de TPW

Bonjour !

S'agit-il de la fenêtre WinCRT ou bien d'une autre fenêtre ?

Dans le 1er cas, la constante AutoTracking doit être initialisée à True.
Dans le 2ème cas, définis-tu bien les unités xUnit et yUnit ainsi que les limites xRange et yRange de l'objet tScroller (ou de son descendant) ?

Des extraits de code seraient bienvenus. ;)

Merci beaucoup, j'ai inclus la ligne

Const AutoTracking:Boolean = True;

mais les barres de défilement ne font toujours pas leur boulot....

Voici un test :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

program defilement;   uses wincrt;   Const AutoTracking:Boolean = True;   var i : integer;   begin   clrscr; i := 65 ; while i < 91 do begin writeln(chr(i)); i := i +1; end;   end.

---

A l'exécution, les lettres A et B n'apparaissent pas en haut de la fenêtre et la barre de défilement vertical ne permet pas de les afficher.

Ah oui, je vois, tu voudrais pouvoir visualiser les lignes de texte qui ont disparu vers le haut de la fenêtre. AutoTracking ne sert à rien dans ce cas. La fenêtre WinCRT est assez basique, à part augmenter la hauteur de la fenêtre (modifier la valeur de ScreenSize.Y), je ne vois pas de manière simple d'y arriver.

Tu pourrais afficher page par page, en laissant l'utilisateur presser une touche pour passer à la page suivante. Ou alors, créer ta propre fenêtre (une véritable fenêtre Windows) avec des scrollers, tu pourrais ainsi obtenir ce que tu veux.

A propos de ton code, AutoTracking est une constante de l'unité WinCRT, il ne faut pas la redéclarer. ;)

j'ai fait une petite recherche avec le mot que vous m'avez proposé screensize.y et j'ai trouvé ce petit script :

Code:

---

1 2 3 4 5 6

screensize.x:=96; screensize.y:=200; windowsize.x:=800; windowsize.y:=600; InitWinCRT;

---

Et avec ça, les barres de défilement fonctionnent.

Merci infiniment et longue vie à ce site !