Discussion :

[dimi2]

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.

[krachik]

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

[dimi2]

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

[Alcatîz]

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.

[dimi2]

Merci beaucoup, j'ai inclus la ligne

Const AutoTracking:Boolean = True;

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

[dimi2]

Voici un test :

Code :

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
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.