Discussion :

[bm1990]

salut tous le monde, je veux savoir comment ajuster tous les composants d'une forme selon n'importe quelle résolution d'écran afin d'éviter la déformation de la forme et ses composants.

[ShaiLeTroll]

Commence par bien définir Align et Anchors
Cela va gérer les agrandissements les un par rapport aux autres !
Ensuite avec ScaleBy, tu pourras zoomer une fenêtre
En Vista, il y a une option pour lancer une application en 125 ou 150%

A lire : Adapter un Form aux différentes résolutions d'écran
Affichage soft correct avec l'agrandissement ergonomique W7

[bm1990]

Merci beaucoup mais pour scaleby comment je l'utilise est ce que je l'utilise pour chaque composant ?

[ShaiLeTroll]

Juste la TForm, cela va recalculer tout l'intérieur et tous ses contrôles automatiquement, dans le OnCreate par exemple

Code :

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

Self.ScaleBy(125, 100);

[Gilbert Geyer]

Bonjour,

Merci beaucoup mais pour scaleby comment je l'utilise est ce que je l'utilise pour chaque composant ?

... je viens de tester : il suffit de faire appel à la méthode d'une procedure TForm1...

Code :

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

1
2
3
procedure TForm1.Button1Click(Sender: TObject);
begin     scaleBy(50,100);
end;

Ceci réduira tous les composants à 50%
Mais faire gaffe aux fontes déclarées dans les propriétés des composants il faut qu'elles soient Scalables comme Arial par exemple.
... Mais bizarrement ce ScaleBy, s'il a réduit la taille de tous les composants, n'a pas modifié la taille de la fiche. !!!???

A+.

EDIT : ShaiLeTroll, comme d'hab a dégainé plus vite.

[bm1990]

Merci à tous.

[Nono40]

... Mais bizarrement ce ScaleBy, s'il a réduit la taille de tous les composants, n'a pas modifié la taille de la fiche. !!!???

Pas seulement, les polices qui ne s'appèltent pas 'Font' ne sont pas changées. Les tailles des colonnes des grilles (TStringGrid DBGrid) ne sont pas changées. Il y a trop de choses qui ne sont pas changées avec ScaleBy.

[GoustiFruit]

Et ça fonctionne bien dans le cas d'une fiche de taille fixe/figée ? J'ai quelques fiches non redimensionnables dont je force les propriétés ClientWidth et ClientHeight lors de l'affichage (à cause des bordures dont la taille varie selon le thème utilisé et la version de Windows), est-ce qu'elles seront aussi mises à l'échelle ?

[Gilbert Geyer]

Bonjour,

A Nono40 : Il y a trop de choses qui ne sont pas changées avec ScaleBy.

... c'est bien dommage.

A GoustiFruit : Et ça fonctionne bien dans le cas d'une fiche de taille fixe/figée ?

... avec BorderStyle:=bsDialog on a affaire à une fiche de taille fixe et figée et le test avec le bout de code suivant suivant :

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin     BorderStyle:=bsDialog;
          Self.scaleBy(75,100);
end;

... réduit non seulement la taille de tous les composants, mais aussi la taille de la fiche.

... donc dans le cas d'une fiche qui n'a pas son BorderStyle:=bsDialog mais qu'on veut redimensionner il suffit de faire :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var         VieuxBS :  TBorderStyle;
begin     VieuxBS:=BorderStyle;
          BorderStyle:=bsDialog;
          Self.scaleBy(75,100);
          BorderStyle:=VieuxBS;
end;

A+.

[Whiler]

En Delphi XE2, avec une application FireMonkey, il suffit simplement de mettre un TScaledLayout sur sa fiche, de l'aligner sur alClient, puis de mettre tous ses composants dans ce TScaledLayout...

[bm1990]

Merci Whiler pour ta réponse mais moi j'utilise Borland Delphi 7 Entreprise parce que je le trouve simple par contre Delphi XE je le trouve un peu compliqué.

[Whiler]

L'interface a effectivement bien changé entre D7 & D2006...
Mais elle n'est pas plus complexe et apporte plein de nouvelles fonctionnalités et le support des derniers OS/bases... (si je ne devais qu'en citer qu'une, le refactoring...)

[bm1990]

Merci beaucoup Whiler.

[LandGreen]

Bonjour @ShaiLeTroll
j'apprécie beaucoup vos réponses et soutiens sur les forums

Commence par bien définir Align et Anchors : tu peux nous citer un exemple ?
Cela va gérer les agrandissements les un par rapport aux autres !
Ensuite avec ScaleBy, tu pourras zoomer une fenêtre : comment faire en sort de détecter automatiquement la taille d l'écran et ajuster les composant automatiquement par rapport à cette résolution ?

[LandGreen]

Bonjour @ShaiLeTroll
j'apprécie beaucoup vos réponses et soutiens sur les forums

j'ai trouvé enfin la solution : installé le package ResizeKit_for_Delphi_5-10.1Berlin_Downloadly.ir après il suffit juste de mettre le composant et il s'en occupera de tout !
merci à tous