Discussion :

[Stevens.Georges]

Bonjour à Tous.

Sur ma fiche MaFiche*:
PageControl1*: TPageControl*; Width 680. Height 468. Left 0. Top 24.

Sur PageControl1*:
MonOnglet1*: TTabSheet*;

Sur MonOnglet1*:
MonLabelA*: TLabel*; Left 256. Top 16.
MonLabelP*: TLabel*; Left 328. Top 16.
BOK*: TButton*;
MaPaintBox*: TPaintBox*; Width 553. Height 401. Left 16. Top. 54.

Code :

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

1
2
3
4
5
6
7
8
9
10
var Valeur*: currency*;
 
procedure TMaFiche.BOKClick(Sender*; Tobject)*;
begin
  with MaPaintBox.Canvas do
  if Valeur <=0 then
    TextOut(256 - 16, 20, Format('%n', abs(Valeur))
  else
    TextOut(328 - 16, 20, Format('%n', abs(Valeur))*;
end*;

Avec 5 ordinateurs différents (W XP, 7, 8) Valeur s'affiche correctement sous MonLabelA ou MonLabelB.

Avec un 6ème ordinateur, un Portable SONY (W 7) Valeur s'affiche avec un décalage sensible vers la gauche. A noter que ce 6ème appartient à un utilisateur et que je n'y ai donc pas accès.

Merci à qui pourra m'éclairer sur la cause de ce décalage et sur la façon d'y remédier.

[sgmsg]

Des images aideraient surement

En passant qu'est-ce que ces * partout?

Un espace qui s'ajoute sur la machine et qui fait un décalage: Parfois la conversion d'un nombre ajoute un espace là où il devrait avoir un signe "+"

[Stevens.Georges]

Merci sgmsg.

Je n'avais même pas remarqué ces * qui apparaissent partout. Je ne sais pas comment ils sont arrivés mais ce n'est pas moi qui les ai tapés.

Je n'ai pas la possibilité de faire une copie d'écran sur l'ordinateur défaillant, je ne l'ai pas en mains.

[SergioMaster]

Bonjour,

c'est peut être un problème de police de caractères ?
il serait assez facile de le vérifier en forçant la police du canvas pour quelle soit la même que le Label (nom et taille)

[Papy214]

L'utilisateur n'aurait-il pas augmenté la taille générale de la police de Windows ? Genre 125% au lieu de 100% ?
J'ai déjà eu des problèmes du même style à cause de ça.

[Stevens.Georges]

Merci à tous les deux de vos contributions.

SergioMaster : Je ne pense pas que ce soit le cas. En effet je ne vois pas pourquoi 1 ordinateur sur 6 ne répondrait pas comme les 5 autres.

Papy214 : Non l'utilisateur n'a pas modifié la taille de la police générale de Windows.

[tenpigs]

Lorsque le PPP de l'écran est trop important (genre 1920*1080 pour un 15") certains portables sont livrés par défaut avec un zoom de 125%.

Quelques infos par ici : http://www.developpez.net/forums/d14...ge-composants/

[Stevens.Georges]

Merci tenpigs et très intéressant, il doit y avoir de cela dans mon problème.

Mais finalement je pense avoir résolu, ou plutôt contourné, le problème en supprimant les Labels et en écrivant leurs Captions sur la PaintBox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var Valeur : currency;
 
procedure TMaFiche.BOKClick(Sender : TObject);
begin
  with MaPaintBox.Canvas do
  begin
    TextOut(256 - 16, 0, 'Caption de MonLabelA');
    TextOut(328 - 16, 0, 'Caption de MonLabelB);
    if Valeur <= 0 then
      TextOut(256 - 16, 20, Format('%n', abs(Valeur))
    else
      TextOut(328 - 16, 20, Format('%n', abs(Valeur));
  end;
end;

Tout étant écrit en TextOut il ne doit plus y avoir de décalage possible.

Merci à tous pour vos contributions.

[Coussati]

Lorsque le PPP de l'écran est trop important (genre 1920*1080 pour un 15") certains portables sont livrés par défaut avec un zoom de 125%.

Quelques infos par ici : http://www.developpez.net/forums/d14...ge-composants/

moi aussi j'ai souvent ce problème

on est obligé d'expliquer à l'utilisateur manuellement

parfois le problème vient de là, parfois d'ailleurs ...