Formater le contenu d'une cellule de stringgrid en monétaire

Version imprimable

Salut

je voudrais formater les nombres contenus dans les cellules d'un stringgrid
en tenant en compte les séparateurs de milliers.
Donc, après avoir tapé "1000" et validén on doit avoir "1 000".
J'utilise le code suivant dans la procedure OnDrawCell :
Code:

1 2 3 4 5 6 7 procedure TVentAnalFrm.FormatNombres(Sender: TObject; ACol,ARow: Integer; Rect: TRect; State: TGridDrawState); begin Canvas.Pen.Style := psClear; Canvas.Rectangle(Rect); Canvas.TextOut(Rect.Right - Canvas.TextWidth(Cells[ACol, ARow])-10, Rect.Top, FormatFloat('#,##0',StrtoFloat(Cells[ACol, ARow]))); end;
A l'exécution, je remarque que la valeur initiale saisie et la valeur formatée
apparaissent toutes deux dans la cellule.
La cellule n'est donc pas vidée avant le dessin sur le canvas.
Mais quand je double clique sur la cellule pour l'éditer, la valeur formatée disparaît et l'édition se fait sur la valeur initiale.

Avez-vous une solution ?

23/01/2011, 09h45
chris37

Bonjour,

Dans ton cas et avant d'utiliser la cellule, l'idée est d'effacer physiquement le contenu du rectangle défini par la variable Rect de la procédure.

Citation:

Canvas.FillRect(Rect);

Ensuite tu fais ce que tu veux pour afficher du texte, une image, etc....

Cordialement,
Chris

Bonjour

J'ai utilisé ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TVentAnalFrm.FormatNombres(Sender: TObject; aCol, aRow: Integer;
   aRect: TRect; aState: TGridDrawState);
begin
  with TStringGrid(Sender) do
    if (ACol = 1) and (Arow <> 0) and (Cells[Acol,Arow] <> '') then
      begin
         Canvas.FillRect(aRect);
         Canvas.Pen.Style := psClear;
         Canvas.Rectangle(aRect);
         Canvas.TextOut(aRect.Right - Canvas.TextWidth(Cells[ACol, ARow])-10,
            aRect.Top,  FormatFloat('#,##0',StrtoFloat(Cells[ACol, ARow])));
 
      end;
end;

mais le problème demeure. Que faire ?

28/01/2011, 16h25
tintinux

Bonjour,

Pourquoi utiliser OnDrawCell et ne pas tout simplement mettre la chaine reformatée dans la case, soit au remplissage de la grille, soit après saisie et validation de la cellule (à détecter par un événement, qui dépend de la version de Lazarus).

Code:

Cells[ ACol,ARow] := FormatFloat('###,##0', Valeur );

Il faut bien sûr spécifier un alignement à droite pour cette colonne ou cellule. On peut aussi spécifier un masque de saisie, ce qui simplifie les choses encore, mais n'est pas toujours bien apprécié des utilisateurs.