Discussion :

[BéBéHi]

Bonjour,
Un bug étonnant des styles VCL (constaté avec XE7 et XE10 Tokyo): sur une fiche TForm ayant Autoscroll à true et BorderStyle à bsSizeable,

• sans style (c'est-à-dire avec le style Windows), des scrollbars apparaissent bien quand on réduit la fenêtre en masquant certains contrôles
• avec un style VCL quelconque, les scrollbars ne s'affichent pas

Je ne dois quand même pas être le premier à constater ça ? J'ai bien cherché mais rien trouvé à ce sujet. Merci pour votre aide.

[BéBéHi]

Voici un moyen simple de constater ce bug.
Créez un projet "Application fiche VCL". Posez un composant (par exemple bouton) n'importe où sur la fiche Form1. Dans les propriétés de Form1, mettez Autoscroll à true. Exécutez. Réduisez la fiche de façon à masquer le composant: des barres de défilement s'affichent aussitôt.
Changez le style de l'application: "Projet > Options > Application > Apparence", sélectionnez par exemple le style "Auric". Exécutez à nouveau, réduisez la fiche: pas de barre de défilement

[tourlourou]

Reproduit sous 10.1 Berlin starter.

[SergioMaster]

Reproduit également avec Tokyo 10.2.1 Entreprise (j'ai pas encore fait ma mise à jour en 10.2.2)
[Edit] j'ai également tenté de forcer l'affichage avec ce code

Code :

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

1
2
3
4
5
6
procedure TForm8.Button1Click(Sender: TObject);
begin
 HorzScrollBar.Range := 10000; //plus grand que la taille de départ
  VertScrollBar.Range := 10000; // plus large que la largeur de départ
  ShowScrollBar(Handle, SB_BOTH, True);
end;

même chose, ne fonctionne pas avec un style par défaut au départ, reste à voir si en chargeant le style après cela fait quelque chose

[BéBéHi]

Sympas les gars, merci de votre intérêt pour ce problème.

Je suis quand même très étonné qu'il n'ait (semble-t-il) gêné personne jusqu'à présent...

[SergioMaster]

Je suis quand même très étonné qu'il n'ait (semble-t-il) gêné personne jusqu'à présent...

Cela a été reporté dans le Quality Central RSP-19366, toujours ouvert et non résolu quoique l'auteur du rapport indique que via le support (dont il donne d'ailleurs la référence) son problème avait été résolu.

[SergioMaster]

Bonjour,

un petit peu plus de test ce matin

Code :

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

1
2
3
4
procedure TForm8.Button1Click(Sender: TObject);
begin
if VertScrollBar.IsScrollBarVisible then Showmessage('visible') else Showmessage('invisible');
end;

ce petit bout de code pour vérifier si le programme considére la ScrollBar comme visible ou non. A noter que je n'utilise pas la propriété VertScrollBar.Visible vraie par défaut. Eh bien, si l'on applique un style, c'est bien le message 'visible' qui s'affiche ! bref nos yeux ne sont certainement pas assez bons !

[Cirec]

Bonjour,

en fait il semblerait que les ScrollBars soient dessinées sur la bordure de la fenêtre ce qui les fait
disparaitre de suite

en ajoutant ce code à la Form et en jouant avec la molette on peut les voir par scintillement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFormTest.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  SendMessage(Handle, WM_VScroll, SB_LINEDOWN, 0);
end;
 
procedure TFormTest.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  SendMessage(Handle, WM_VScroll, SB_LINEUP, 0);
end;

Sinon une simple ScrollBox contourne ce problème

PS: j'ai testé le changement de style en runtime et c'est pareil (Tokyo 10.2)
Cordialement,

@+

[BéBéHi]

Bonjour et merci pour vos investigations, SergioMaster et Cirec.
J'ai regardé ce que donne une ScrollBox, il semble qu'elle subisse le même phénomène, probablement pour les mêmes causes .

[Cirec]

Bonjour et merci pour vos investigations, SergioMaster et Cirec.
J'ai regardé ce que donne une ScrollBox, il semble qu'elle subisse le même phénomène, probablement pour les mêmes causes .

Chez moi ça fonctionne parfaitement avec une ScrollBox (Tokyo 10.2 Starter)

MainForm AutoScroll = False
ScrollBox Align = alClient

Cordialement,

@+

[BéBéHi]

Bon, comme ce problème est semble-t-il assez ancien, je présume que sa correction n'est pas pour tout de suite.

Vu l'usage que je fais en l'occurrence des scrollbars sur une Form (je dessine sur le canvas dans l'événement OnPaint de la fiche), j'ai mis en place une solution de contournement avec un TScrollBar posé sur la fiche, avec prise en compte de l'événement OnScroll .

En tout cas, merci à tous !