Discussion :

[tintinux]

Bonjour

Je voudrais définir la largeur d'un TEdit pour qu'elle ne dépasse pas la largeur maximum utile, c'est à dire celle du nombre de "W" qui est la lettre la plus large.

Il faut que cela dépende automatiquement de la police du TEdit et du MaxLength (>0 ici).

Pour trouver la bonne largeur de MonEdit je fais ce qui suit, que j'ai dû récupérer quelque part :

Code :

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

1
2
3
4
5
6
7
8
 
var C : TControlCanvas;
 
C:=TControlCanvas.Create;
C.control:=MonEdit;
C.Font.Assign(MonEdit.Font); // peut-être pas utile ?
W := C.TextWidth(StringOfChar('W', MonEdit.MaxLength) );  
MonEdit.ClientWidth := W ;

Malheureusement, la largeur ainsi calculée est trop petite (généralement d'un peu plus d'1 caractère).

Savez-vous ce qui cloche ? Peut-être n'ai-je pas le bon canvas ?

Merci pour vos suggestions.

[chris78320]

Bonjour,

trouvé l’exemple suivant dans l'aide de Delphi 2 :

Code :

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

1
2
3
4
5
6
 
S := 'Pascal Objet est le langage qu''il me faut';
  T := Canvas.TextWidth(S);
  if T > Edit1.Width then
    Edit1.Width := T + 10;
  Edit1.Text := S;

Aucune explication sur le "+10" ...
Si on ne le met pas, il manque une lettre !
Avec, c'est parfait (j'ai testé avec différentes longueurs de la chaîne) ...

Un mystère de plus !

[tintinux]

Ok, merci.

Toutefois ce que tu donnes ne marche que si la police du TEdit est exactement la même que celle de la Form dont on utilise le Canvas.

Si tu mets le TEdit en gras, ou si tu augmentes la taille de la police de l'Edit, je pense que c'est mort.

C'est pourquoi il faut, théoriquement, se référer au Canvas du TEdit et sa police, mais ça ne marche pas chez moi sous Lazarus.

Pour le +10 est-ce que ce ne serait pas la différence entre Width et ClientWidth ?

[Ph. B.]

Pour le +10 est-ce que ce ne serait pas la différence entre Width et ClientWidth ?

En fait, c'est la différence entre le rectangle défini pour l'ensemble du contrôle TEdit et le rectangle défini pour le tracé du texte.
Après, il faut voir dans le code comment est défini ce rectangle utile... ou utiliser cette règle empirique.

[Jipété]

Yop !

(...) Si tu mets le TEdit en gras, ou si tu augmentes la taille de la police de l'Edit, je pense que c'est mort.(...)

Oui et non, , voir + bas

(...) C'est pourquoi il faut, théoriquement, se référer au Canvas du TEdit et sa police, mais ça ne marche pas chez moi sous Lazarus. (...)

Ni sous Delphi, le TEdit n'a pas de propriété Canvas...

Cependant, en mixant ton code et celui de chris78320 comme ceci, je trouve que ça fonctionne pas mal :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
C := TControlCanvas.Create;
MonEdit := TEdit.Create(Self);
C.control := MonEdit;
with MonEdit do
begin
  Parent := Form1;
  Left := 10;
  Top := 10;
  Height := 24;
  Width := 50;
  Font.Style := [fsBold]; // on commente cette ligne (ou pas), ça s'adapte !
  C.Font.Assign(MonEdit.Font); // peut-être pas utile ? --> NÉCESSAIRE !
  //W := C.TextWidth(StringOfChar('W', MonEdit.MaxLength) );
  W := C.TextWidth('Pascal Objet est le langage qu''il me faut');
  ClientWidth := W + 3; // ou 4, à voir
  Text := S;
end;

Mais je n'ai pas de Lazarus sous la main, juste un vieux D7

[chris78320]

Sous Lazarus, le code suivant fonctionne parfaitement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
var C: TControlCanvas;
    W: Integer;
begin
  C := TControlCanvas.Create;
  C.control := Edit1;
  C.Font.Assign(Edit1.Font);
  W := C.TextWidth(StringOfChar('W', Edit1.MaxLength));
  Edit1.ClientWidth := Round(W*1.14);
  C.Free;
end;

Par rapport à ce que renvoie TextWidth, il semble nécessaire d'augmenter la taille (ClientWidth) non pas d'une quantité fixe mais d'une quantité proportionnelle !
Testé avec différents styles (aucun, gras, gras + italique) et un grand nombre de tailles ... le coeff 1.14 est purement empirique et peut visiblement être légèrement diminué (1.13 ne suffit pas si on met de l'italique, avec 1.15 le contrôle est un peu trop large pour les grandes tailles de texte)

[Jipété]

Bonjour,

Ah, dans ma réponse d'hier j'avais un peu zappé la demande initiale

Je voudrais définir la largeur d'un TEdit pour qu'elle ne dépasse pas la largeur maximum utile, c'est à dire celle du nombre de "W" qui est la lettre la plus large.

Il faut que cela dépende automatiquement de la police du TEdit et du MaxLength (>0 ici).

Mais il y a un truc que je ne pige pas car c'est un peu incompatible, quelque part :
si tu définis la largeur du TEdit en fonction de la lettre "W" tu vas avoir une grande zone, et si ton texte est plein de "i" et de "l", avec une police proportionnelle ça va être plein de "blanc" au bout (j'ai testé)...

Ou alors j'ai mal compris ?
Ou tu ne nous as pas tout dit (utilisation finale) ?

[chris78320]

Bonsoir,

ce que j'ai compris, c'est que la taille du texte à saisir est limitée (maxlength>0) et on désire fixer la taille du contrôle au maximum nécessaire, sachant que W est le caractère demandant le plus d'espace ... puisque l'utilisateur est libre de saisir ce qu'il veut.
Alors effectivement, si on ne saisit que des caractères "étroits", il restera de la place inutilisée !

[DomDA91]

Si ça peut aider voici un sujet similaire qui a déja été traité dans le forum Delphi :

http://www.developpez.net/forums/d89...t/#post5059397

Penser qu'il faut ajouter, à la taille du texte, la largeur du curseur de saisie qui lui aussi doit trouver sa place dans la zone client.