y a un composant Edit Align ;) ki traine sur le net
evode
:ange: <== j'l'aime bien celui la :D
je vais avoir k'une vielle version toute pourie :sarcastic:
//largeur : la largeur de la cellule a remplir
Class Function TUtil.alignerDroite(largeur:integer; chaine:string):string;
var
nb:integer;
strTmp:string;
begin
//ne marche que si la police du StringGrid est celle par defaut
strTmp:='';
chaine := trim(chaine);
if (pos(',', chaine)=0) and (pos(DecimalSeparator, chaine)=0) then nb := (largeur div 8)+2-length(chaine)
else nb := (largeur div 8)-(length(chaine)-3);
while nb>0 do
begin
strTmp := strTmp+' ';
nb:= nb-1;
end;
Result := strTmp+chaine;
end;
Bon ca marche plutot bien MAIS
-la c'est poor une police de taille 8 (MS Sans Sherif)
-cette ebauche avait ete faite poor manipuler des floats
-J'lai ressorti de sous les fagot alors me dites po ke C crade comme methode parce ke :kaola: d'abord :D
[edtdd]--Message édité par evode--[/edtdd]
chev_alier
et tu pourrais nous pondre ton code miracle stp ? :ange:
evode
la fois ou j'avais absoluement eu besoins de changer l'alignement, je m'etait fait une petite methode qui ajoutait un certain nombre d'espace en fonction de la longueur du texte, de la largeur de l'edit et de la taille de la police ....
C po terrible, mais ca a repondu a mes besoins ...
antp
non, c'est d'ailleur très très bizarre, je pige pas pq on peut pas...
chev_alier
Quoi, c'est pas possible d'aligner le text d'un Edit à droite ou centré ???
antp
j'aimerais bien le savoir aussi...
je pense pas que ce soit possible. Faut probablement utiliser un composant modifié pour ça.
AGA
On peu aligner le texte ds un Edit, à droite :cry:
