caractères du format de Windows

Version imprimable

30/05/2013, 09h54
F@bien.fd

caractères du format de Windows

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.
30/05/2013, 15h47
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

Bonjour,

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

Code:

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

08/11/2013, 20h03
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 :D