Discussion :

[cgone]

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.

[cgone]

Eureka, j'ai trouvé tout seul comme un grand !!

Voici le 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
15
16
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);
    SetTextAlign(DBGrid_ConsultarVenda.Canvas.Handle, TA_RIGHT);
    DBGrid_ConsultarVenda.Canvas.TextRect(Rect,
                                          Rect.Right-4,
                                          Rect.Top+2,
                                          FRM_Fonctions.FormatDecimalNumber(Column.Field.AsString, 2, midDepois));
    SetTextAlign(DBGrid_ConsultarVenda.Canvas.Handle, TA_LEFT);
  end;
end;

C'est bien, non ? Bon en vrai je l'ai pas trouvé vraiment tout seul... mais j'aurais pu si j'aurais voulu...
Allez voir ici

Cyril.

[Cl@udius]

Salut Cyril

Sympa ta procédure !

Mais il y a peut-être plus simple: Si tu utilises des champs persistants pour le DataSet lié au DBGrid, tu peux directement définir un format d'affichage au niveau du champs numérique depuis l'inspecteur d'objet:

Code :

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

1
2
 
   DisplayFormat: ,#0.00

@+ Claudius

[cgone]

Mais euh !

Pourquoi tu me pètes mon délire, j'étais tout content de moi...
regarde dans quel état tu m'as mis
Si on ne peux même plus faire compliquer quand on peut faire simple, alors où va-t-on ?

Cyril

[Cl@udius]

Je vais sauter !!!

@+