Discussion :

[foucoudav]

Bonjour,

Lorsque je formate l'affichage d'un montant avec DisplayFormat (ex. : ,0" €"), mes TLabel affiche correctement le montant formaté .
Dès que je formate aussi le mode edition avec EditFormat (ex. : 0), l'affichage de mes TLabel n'utilise plus le formatage de DisplayFormat mais de EditFormat .

Ce n'ai pas le fonctionnement normal.
Est-ce un bug des composants FMX ?
Avez vous une solution ?

[ShaiLeTroll]

En même temps, des TLabel ne sont pas conçus pour l'édition, utilise plutôt TEdit !

DisplayFormat et EditFormat n'est pas ce des propriétés du TNumericField ?
Tu utilises un LiveBindings entre ton TLabel et un TNumericField ?
Effectivement un TLabel qui utiliserait le EditFormat c'est signe d'un bug, en tout cas cela n'aurait rien de cohérent !

Soit plus précis dans ta question !

[foucoudav]

Pour plus précis :

J'ai un composant TClientDataset avec des champs TFloatField.
Ces champs ont un DisplayFormat := ',0" €"' pour un affichage en € sans chiffre après la virgule
et un EditFormat := '0' pour une edition sans le signe Euro et sans les espaces.

Ces propriétés sont utilisés depuis toujours en VCL pour :

un affichage formaté en Euros dans un TEdit ou un TLabel
une édition sans formatage dans un TEdit.

Et bien, avec les compasants FMX, le comportement n'est pas correct :
Les TLabel et TEdit affichent la valeur du champs de données avec le formatage de l'EditFormat et non le fomatage du DisplayFormat.

Est-ce que vous avez le même comportement sur votre XE5 ?

[foucoudav]

J'ai solutionné ce problème de composants FMX par un peu de code :
- J'ai enlevé le formatage EditFormat de mes champs TFloatField.
- Sur mes composants TEdit, j'ai ajouté 2 Événements génériques (OnEnter et OnExit) :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Type
BL: TBindingsList;
 
procedure TFEditFrais.ECoutRefEnter(Sender: TObject);
var i,j,k:integer;
 
begin
  i:=-1;
  repeat
    Inc(i,1);
    if bl.BindComps[i].ControlComponent.Name=TEdit(Sender).Name then
      j:=i;
  until ((bl.BindComps[i].ControlComponent.Name=TEdit(Sender).Name) or (i=bl.BindCompCount-1));
 
 i:=-1;
  repeat
    Inc(i,1);
    if (TBindSourceDB(TLinkControlToField(bl.BindComps[j]).DataSource).DataSet.Fields[i].FieldName=TLinkControlToField(bl.BindComps[j]).FieldName) then
      k:=i;
  until ((TBindSourceDB(TLinkControlToField(bl.BindComps[j]).DataSource).DataSet.Fields[i].FieldName=TLinkControlToField(bl.BindComps[j]).FieldName) or (i=dm.Frais.FieldCount-1));
 
  TFloatField(TBindSourceDB(TLinkControlToField(bl.BindComps[j]).DataSource).DataSet.Fields[k]).EditFormat:='0';
end;
 
procedure TFEditFrais.ECoutRefExit(Sender: TObject);
var i,j,k:integer;
begin
  i:=-1;
  repeat
    Inc(i,1);
    if bl.BindComps[i].ControlComponent.Name=TEdit(Sender).Name then
      j:=i;
  until ((bl.BindComps[i].ControlComponent.Name=TEdit(Sender).Name) or (i=bl.BindCompCount-1));
 
 i:=-1;
  repeat
    Inc(i,1);
    if (TBindSourceDB(TLinkControlToField(bl.BindComps[j]).DataSource).DataSet.Fields[i].FieldName=TLinkControlToField(bl.BindComps[j]).FieldName) then
      k:=i;
  until ((TBindSourceDB(TLinkControlToField(bl.BindComps[j]).DataSource).DataSet.Fields[i].FieldName=TLinkControlToField(bl.BindComps[j]).FieldName) or (i=dm.Frais.FieldCount-1));
 
  TFloatField(TBindSourceDB(TLinkControlToField(bl.BindComps[j]).DataSource).DataSet.Fields[k]).EditFormat:='';
end;