Je suis sous Windows XP et Delphi 4 standard.
J'écris mon code avec une résolution d'écran de 800 x 600.
Pour qu'à l'exécution avec une autre résolution d'écran mes fiches apparaissent avec les mêmes dimensions, je mets ScaleBy dans la procedure Create de chaque fiche.
Ca marche bien et tous les controles se redimensionnent correctement sauf ToolBar, les Turbo Boutons et les Menus. Est-il possible d'obtenir qu'eux aussi se redimensionnent ?
Par ailleurs, si la fiche comporte une PaintBox et du graphique, dans la majorité des cas je dois multiplier les coordonnées des MoveTo, LineTo, etc. par Screen.Width / 800 ce qui parait normal. Cependant, sur certaines fiches pourtant codées exactement de la même façon, le redimensionnement se fait automatiquement sans avoir à multiplier les coordonnées. Si d'ailleurs je multiplie celles-ci, le graphique est trop grand. Je ne comprends pas ce qui se passe.
Merci d'avance à ceux qui pourront m'éclairer.
Partager