Discussion :

[F@bien.fd]

Bonjour,

Ayant réalisé l'application suivante NinaPerf il y a quelques années, je la distribue gratuitement sur le net.

Un des utilisateurs m'a envoyé une saisie d'écran où les caractères du menu au format de Windows sont de taille "très grand caractères" ce qui n'est pas très esthétique et déséquilibre l'aspect des menus...

Je lui ai conseillé évidemment d'aller dans Démarrer/Panneau de configuration/Affichage dans l'onglet "Apparences" prendre la taille de police "Normale"...

Est-il conseillé de forcer le format avec l'application, puis de restituer ensuite l'ancien format ou dois-je laisser à l'utilisateur le soin de modifier les caractéristiques comme je le lui ai conseillé ?

Merci par avance.

[jeromelef2]

Bonjour,

j'ai rencontré le même problème il y a quelques années.
je me souviens que j'avais "jouer" avec la propriété PixelsPerInch de la form pour ne pas être embêté avec la taille de la police windows.
regarde de ce coté là.

jerome

[Charly910]

Bonjour,

pour les proportions de la fiche essaye la première fonction et pour gérer les grande et petite polices la seconde :

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
{ ======================================================================= }
procedure ScaleFen(Fen: TForm; ScreenWidth, ScreenHeight: LongInt) ;
Begin
   Fen.Scaled := True ;
   Fen.Position := poScreenCenter ;
   If (Screen.Width <> ScreenWidth) then 
     Begin
       Fen.Height := LongInt(Fen.Height) * LongInt(Screen.Height) div ScreenHeight ;
       Fen.Width  := LongInt(Fen.Width) * LongInt(Screen.Width) div ScreenWidth ;
       Fen.ScaleBy(Screen.Width,ScreenWidth) ;
     End;
End;
{ ======================================================================= }
Procedure TForm1.FormCreate(Sender: TObject);
Begin  
  Scaled := False ;  
  If Screen.PixelsPerInch <> PixelsPerInch then ScaleBy(Screen.PixelsPerInch, PixelsPerInch) ;  
End;
{ ======================================================================= }

A+

Charly

[F@bien.fd]

Je viens de découvrir la réponse... je n'étais pas revenu car l'utilisateur a remis une taille normal pour les caractères...
Mais je vais l'inclure dans l'appli pour voir ce que cela donne...

Merci