Bonjour,

J'ai un DBGrid qui affiche dans une de ses colonnes des valeurs monétaires.
123
123,4
123,45
car Firebird ne conserve pas les zéros inutiles or je voudrais voir apparaitre :
123,00
123,40
123,45
J'ai donc fait ceci :
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 TFRM_ConsultarVenda.DBGrid_ConsultarVendaDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if sameText(Column.FieldName,'TOTAL') then
  begin
    // on efface la cellule
    DBGrid_ConsultarVenda.Canvas.FillRect(Rect);
    DBGrid_ConsultarVenda.Canvas.TextRect(Rect,
                                          Rect.Left,
                                          Rect.Top,
                                          FRM_Fonctions.FormatDecimalNumber(Column.Field.AsString, 2, midDepois));
  end;
end;
Le problème est qu'avec Rect.Left, je perd mon alignement à droite.

Quelqu'un a une idée ?

Cyril.