Discussion :

[Le_Suisse]

Bonjour,

Nous développons depuis plusieurs années des programmes sous Delphi 7. Depuis l'arrivé de Windows 7, nous avons un problème d'affichage sous nos programmes.

Je m'explique, avec Windows 7, l'utilisateur à la possibilité d'améliorer sa qualité de lecture en agrandissant l'ensemble à 125% (moyenne) ou 150% (grande). Lorsqu'il utilise la taille standard (100%) nos programmes s'affichent correctement, par contre avec l'un des deux agrandissement décrit ci-dessus, tout ne se met plus en place. Dans les fenêtres apparaissent des scrollbar partout, les boutons ne sont plus aux même endroits ou directement visibles, etc...

Avez-vous déjà rencontré ce problème ? avez-vous trouver une solution ?

Dans l'attente de vos réponses, meilleures salutations.

[ShaiLeTroll]

Tu utilises ScaleBy pour effectuer le zoom ?
Si les Anchors et Align sont correctement choisi (très important), le redimensionnement provoque le décalage des composants pour compenser le zoom, c'est ce qui garanti que tes composants reste à la bonne place relative !
Mais de mauvaises combinaisons peuvent avoir un effet pervers !

J'ai maintenu une application avec cette fonctionnalité, j'avoue je ne l'ai pas testé sous Seven, et je ne suis pas sur que bcp de CC l'ont fait !

[Le_Suisse]

En fait le zoom est effectué par Windows directement. Je ne sais pas s'il est possible de le désactiver au démarrage du programme ?

[ShaiLeTroll]

Ah !
Ce n'est pas une fonctionnalité de ton application mais celle de l'OS !
Je ne savais pas ! et c'est bon à savoir !

Je pense qu'une bonne gestion des Anchors et Align (test en redimensionnant tes fenêtres) reste d'actualité, car cela doit servir de base de travail à W7 !

Voir aussi OnResize, Scaled, PixelsPerInch, tu peux avoir des infos qui te permettrait de corriger manuellement l'affichage, et peut-être même l'interdire avec Scaled à false ?

[Franck SORIANO]

C'est marrant je viens de me battre pendant presque 6 mois avec un problème similaire...

Voici quelques éléments qui devraient t'aider :
L'IDE mémorise la résolution de l'écran au moment de la conception des fiches. Il s'agit de la propriété PixelsPerInch de chaque TForm.
Au lancement de l'appli, la VCL lit la résolution de l'écran du poste où elle s'exécute (concrêtement, c'est la taille de la police par défaut) et définit la propriété PixelsPerInch de TScreen.
Si au moment de la création de la fiche, la valeur de son PixelsPerInch ne correspond pas à celle du TScreen, la fiche est automatiquement redimensionnée pour l'agrandir du même rapport.
Si dans ta fiche tu crées certains composants dynamiquement, tu n'appliques probablement pas le même redimensionnement et tes composants sont toujours créé comme si l'écran était en 96 Dpi, ce qui se traduit par un affichage catastrophique...
Cette fonctionnalité peut être désactivée fiche par fiche avec la propriété Scaled du TForm.

Passe toutes tes fiches à Scaled = false et les écrans auront la même taille que tu sois en grandes polices ou en petites polices.

Si tu veux faire un test rapide, tu peux égalements bidouiller TScreen pour forcer PixelsPerInch à 96 Dpi quelles que soit la résolution réelle du bureau (attention, la propriété est en lecture seule, il faut forcer la valeur de l'attribut privé... d'où quelques bidouilles).
Dans W7, tu as également une option de compatibilité "désactiver le redimensionnement automatique". Tu peux essayer de la cocher. Mais je n'ai jamais vu la différence avec ou sans...

Quel est le rapport avec W7 ? Ca reste encore un mystère pour moi. Sur les tests que j'ai réalisé, TScreen définissait toujours son PixelsPerInch à 96 Dpi avec Windows XP, quel que soit la résolution du bureau (ce qui reviendrait à dire que la fonctionnalité ne servait à rien dans Delphi ).
Par contre sous W7, PixelsPerInch s'allimente en 96, 120, ou 150 en fonction de la taille de la police du bureau...

Autre mystère, W7 semble faire exactement le contraire de ce que dit Microsoft dans ses docs :
En principe W7 redimensionne automatiquement les écrans en fonction de la taille de la police, sauf si l'application s'est déclarée "dpiAware" (soit en appelant explicitement une API, soit dans le manifest de l'exe).
Si l'appli ne s'est pas déclarée dpiAware, les API qui lisent la résolution de l'écran sont censés renvoyer toujours 96 dpi quelque que soit la taille de la police... En pratique dans mes tests, dpiAware n'a aucun effet.

Sur mon problème, j'avais la même déformation d'affichage que si le poste était en grande police... alors que les postes en questions (pas tous) étaient configurés en petites polices...

[JustMe]

Cela mérite d'être applaudit merci Franck

[Le_Suisse]

Merci beaucoup pour ta réponse. Je vais prendre note de tout ce dont tu as parlé et mettre à jour mon programme.

[Le_Suisse]

Alors effectivement le fait de mettre "scaled" a False résoud la majorité de mes problèmes. Par contre je ne comprends pas pourquoi, mais sur certaines fenêtres, j'ai toujours le même souci, notamment avec les QuickReports... Auriez-vous une idée ?

[ShaiLeTroll]

Scaled à False, tu me rassures, c'est ce que j'avais dit ! avec moins de précision que Franck SORIANO

Pour un QuickRep, c'est tout de même des fenêtres très particulières !
Faudrait regarder sur le QuickRep lui même les PrinterSettings ! Mais cela serait suprenant qu'il y ait un lien entre le Preview et le Print

ou Pas ?

[Le_Suisse]

Franck, saurais-tu comment bidouiller TScreen pour forcer PixelsPerInch à 96 Dpi quelles que soit la résolution réelle du bureau ?

Je pioche un peu la-dessus car sur certaines fenêtres je positionne les label directement dans le code en donnant des positions. Le souci étant que comme les dpi ne sont pas tous les mêmes, les champs ne s'affichent pas au bon endroit si le bureau n'est pas en 96 dpi.

Merci

[Franck SORIANO]

C'est le principe pour accéder à un membre privé :
Tu déclares une classe qui dérive du même ancêtre que TScreen, en lui déclarant les mêmes attributs et dans le même ordre que les attributs privés de TScreen, jusqu'à redéclarer l'attribut que tu veux modifier (autrement dit, tu fais un copier/coller des sources de TScreen jusqu'à FPixelsPerInch).

Puis tu fais un cast sauvage de l'instance réelle de TScreen vers cette nouvelle classe. Comme tu as fait la même déclaration que TScreen, ton attribut FPixelsPerInch va se retrouver à la même adresse mémoire que celui de TScreen. Il ne te reste plus qu'à affecter sa valeur.

En fait, tu peux faire n'importe quelle déclaration, du moment qu'au final l'attribut que tu modifies se retrouve sur la même adresse mémoire.

Je ne vais pas te mettre les sources de la VCL, alors voici un exemple avec une déclaration quelconque :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
type
  TPrivateHack = class(TComponent)
  public
    FDummy1 : cardinal;
    FDummy2 : cardinal;
    FDummy3 : cardinal;
    FDummy4 : cardinal;
    PixelsPerInch : integer;
  end;
 
...
  TPrivateHack(Screen).PixelsPerInch := 96;

Attention, le jour ou tu changes de version de Delphi, si les sources de la VCL change, ça risque de faire tout drôle...