Discussion :

[usmarshall]

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 :

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

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 ?

[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.

Canvas.FillRect(Rect);

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

Cordialement,
Chris

[usmarshall]

Bonjour

J'ai utilisé ce code :

Code :

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

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 ?

[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 :

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

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.