Discussion :

[petitcoucou31]

Bonjours tous,

[Delphi RIO]
[W10]

Tout est dans le titre.
Pour expliquer ma demande => Imaginons un rectangle dessiné sur une form, et ce rectangle se resize automatiquement quand je resize la form. Le calcul de la taille de rectangle se recalcule et se redessine dans l’événement "FormResize" j'écris un texte dans ce rectangle, et je voudrais quand je resize le rectangle (la form) que les proportions du texte par apport au rectangle reste les mêmes => en fait cela reviens à modifier la taille de la font du texte en fonction de la taille du rectangle.

La solution pourrait être d'incrémenter ou de décrémenter le canvas.font.size du texte, de mesurer la nouvelle taille du texte à chaque changement de taille du rectangle et reboucler cela jusqu'à ce que le texte soit proportionnel au rectangle.

1. Existe-t-il une meilleure solution ?
2. Existe-t-il une solution pour bloquer l'affichage de mon Canvas (du genre BeginUpdate et EndUpdate) pour qu'il ne s'affiche qu'une fois la taille de la font est trouvé, pour éviter de voir le calcul de la recherche de la taille de la font.
Sinon comme mon canvas est celui d'un Timage, je peux le rendre invisible durant le traitement.

merci a vous ,pour vos remarques ou idées.

[ShaiLeTroll]

Pour un projet devant être visible de loin, j'ai procédé ainsi, une simple règle de trois pour calculer la taille de la fonte en fonction du la largeur du texte, sa hauteur et les dimensions de la zone de texte
- https://www.developpez.net/forums/d1.../#post10295804
J'ai eu plusieurs variantes, la taille de la fonte étant aussi choisi selon une typologie de message que je savais d'avance court, moyen, long.

tu n'as pas besoin d'incrémenter, c'est juste une division entre dimension de la zone de texte et la largeur du texte (pense au multiligne aussi)
Le ratio, je l'avais fixé en dur mais il s'obtient par la division entre la taille moyenne de Wq et de Font.Size

J'avais aussi pris en compte le Zoom Windows, ce module gérait à l'époque donc le 100, 125, 150, 175 et 200% de Windows et ajoutait jusqu'à 300.
C'était pour un écran encore plus minimaliste


Dans un autre programme, un code ultra simple

Code :

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

FScanDipatchMagDestination.Font.Size := -(FScanDipatchMagDestination.Height div 3 * 2);

Cela affichait en très grand 'N/A' ou '000' à '999'

[wheel]

Utiliser Font.Height au lieu de Font.Size pour calculer la hauteur proportionnellement avec celle de la fiche, sinon tu peux jouer sur SetWindowExtEx et SetViewportExtEx pour créer un zoom en quelque sorte.