Décalage dans l'affichage selon écran

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:

---

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.

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 "+"

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.

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)

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.

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.

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/

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:

---

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.

Citation:

---

Envoyé par 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/

---

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 ...