Discussion :

[Invité]

Bonjour,

Je cherche à déterminer "automatiquement" (et dynamiquement) la largeur nécessaire d'un TEdit contenant le texte 00:00:00 AM. (Le AM ne sert à rien... mais l'ensemble des caractères choisis me donne la largeur max. du TEdit). Evidemment la largeur dépend de la police utilisée, de l'OS...

La propriété Autosize ne sert pas à cela...

AutoSize:
http://wiki.lazarus.freepascal.org/A...ayout#AutoSize [^]
Only the Height of a TEdit is autosized. You can freely resize the Width.
Recently there was a bug for a few days in the svn version that prevented resizing the Width. Maybe you were unlucky and tested that version?

Réf: http://bugs.freepascal.org/view.php?id=16839]About

Pour l'instant, j'essaie d'utiliser un Tlabel en Autosize que je voudrais configurer dans la même police que le TEdit (Label1.Font := Edit1.Font)... Ensuite, il faut gérer les espaces des bords latéraux... et c'est là qu'est le problème. par défaut les BorderSpacing dans l'inspecteur des TEdits sont tous nuls... Or évidemment, ils ne le sont pas... Il s'agit donc des BorderSpacing supplémetntaires... mais supplémentaires de quels intervalles initiaux et définis où ?

A moins qu'il n'y ait plus simple ?

Cordialement. Gilles

[tintinux]

Bonjour,

Code :

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

Edit.ClientWidth := Edit.Canvas.TextWidth ('00:00:00 AM')

devrait le faire...

Mais pourquoi veux-tu refaire un composant qui existe déjà ?
Ce n'est pas le boulot qui manque ailleurs !

[Invité]

Bonjour,

C'est vrai que depuis la rentrée, j'ai moins de temps... De quel composant parlez-vous ?

Pour votre proposition, je ne vois pas comment utiliser la propriété canvas dans ce cas [ie dans le TEdit]. Edit.canvas ? J'arrive bien à placer le texte dans un TControlCanvas, cela me donne le même résultat [écart de 1 (62/63)] que la largeur du TLabel mais ce sera insuffisant pour l'afficher intégralement dans le TEdit à cause de ses marges internes par défaut... Evidemment, on peut rajouter une lettre (PMA au lieu de PM) ou même directement un intervalle (+10 sous Windows dans mon cas)... Pourquoi 10 ???
Cela semble fonctionner que je sois en affichage 00:00 AM ou 00:00:00 AM.

Sinon ce n'est pas la première fois que je butte sur ce type de composants...
Un jour il faudra bien que j'arrive à en faire un... Le codage "spaghetti" dans les Form... pfff... Par exemple : J'initialise classiquement mes variables dans la FormCreate sauf qu'un code comme ceci ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TFormMain.FormCreate(Sender: TObject);
begin
 [...]
 Label2.Font := edHeureAPARTIR.Font;
 if bSec = True then Label2.Caption := '00:00:00 AM' else Label2.Caption := '00:00 AM';
 Label2.AutoSize := True;
 Label2.Refresh;
 Showmessage(IntToStr(Label2.Width));
 edHeureAPARTIR.Width:=label2.Width+10;
end;

La valeur renvoyée est la Width relative au Caption de l'Inspecteur d'objet... même si par code vous la réactualisez... Le Form.Show n'a pas eu lieu... Et donc, il faut continuer l'initialisation dans le FormShow... à moins d'utiliser dans le create un LabelShort et un LabelLong dont les Captions sont initialement déclarés dans l'inspecteur d'objet (comme 00:00 AM et 00:00:00 AM) . Avec un composant visuel, ce genre de 'circonvolution' n'est pas nécessaire...

Merci pour votre aide.
Cordialement. Gilles

[tintinux]

De quel composant parlez-vous ?

Je pense au paquet ZVDateTimeControls

Ce qui me serait utile serait la possibilité de spécifier des dates relatives, genre Jour J, premier et dernier jour du mois ou de l'année, courante, ou précédent(e)...

je ne vois pas comment utiliser la propriété canvas

Je ne saisis pas. Ce que je propose ne nécessite ni TLabel, ni TControlCanvas...

[Invité]

Désolé,

j'étais encore en train de bricoler la réponse du dessus.

Oui je disais "edit.canvas", cela ne passe pas... ou je pratique mal...

Pour le composant, je l'ai installé... C'est probablement une bonne solution.

Mais comme présentement, je ne suis pas en production, j'ai le temps d'apprendre et de bricoler...

Je pars du principe que "coder" un composant que ce soit dans la Form et dans son propre code pour l'adapter à ses besoins doit nécessiter un temps équivalent... à condition d'avoir les capacités équivalentes dans les 2 approches. Ce qui n'est pas mon cas actuellement. Mais déjà, pour ce que j'en connais et ai appris, je suis convaincu que la réutilisation d'une part et surtout le "codage dans sa propre enveloppe" d'autre part du composant sont supérieures... Tout autant que l'utilisation de librairies dynamiques.

Cordialement.
Gilles

[tintinux]

Eh bien, avec ton code ce serait :

Code :

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

edHeureAPARTIR.Width := edHeureAPARTIR.Canvas.TextWidth('xxx');

Pour le reste, c'est vrai qu'on apprend en refaisant, c'est comme tu veux !