Discussion :

[Tiken]

Bonjour,

je programme en delphi et j'ai un controle TDBGrid qui est lié à une base de données Advantage. J'ai plusieurs champs d'affichés dans mon TDBGrid dont une valeur logique (Annulé). Lorsque je clique sur le bouton "Annulé", une mise à jour se fait dans la base de données. Le champs "Annulé" s'inscrit à "True" dans la base de données. La valeur devrait affichée "Vrai" et non "True" dans mon TDBGrid. Sur mon poste, il est affiché "Vrai" et c'est parfait. Cependant, sur d'autre poste, qui utilise le même logiciel et la même BD, il affiche "True". C'est là mon problème. Sur certain poste il affiche "Vrai" et sur d'autre il affiche "True". L'affichage se fait lors du "refresh" du TDBGrid après la mise à jour.

Quelqu'un pourrait me dire où est le problème?

Merci

[ShaiLeTroll]

Cela dépendrait pas de la localisation du poste (Anglais ou Français)
Pour m'a part, je n'aime pas du tout l'affichage Vrai\Faux du Boolean, je préfére fournir des images via OnDrawDataCell representant un état coché ou décoché, cela évite la confusion !

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
procedure TFrmWWW.GrilleDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
   X, Y: Integer;
begin
     if Assigned(Column.Field) then 
     begin
        // if Column.FieldName = COLONNE_BOOLEAN then 
        if Column.Field.DataType = ftBoolean then
        begin
           TDBGrid(Sender).Canvas.FillRect(Rect);
           CkbForDrawing.Checked := Column.Field.AsBoolean;
           X := Rect.Left + ((Rect.Right - Rect.Left - CkbForDrawing.Width) div 2);
           Y := Rect.Top + ((Rect.Bottom - Rect.Top - CkbForDrawing.Height) div 2);
           CkbForDrawing.PaintTo(TDBGrid(Sender).Canvas, X, Y);
        end;
     end;
end;

CkbForDrawing est un TCheckBox posé sur la fenêtre mais caché sous un panel, mais comme c'est un TWinControl, on peut lui demander de dessiner lui même ailleurs ...


Pour la DB ? Paradox ? Oracle ? SQL Server ???
Pour la Lib ? BDE ? ADO ? Dbx ? CRDac ???

[soft_balade]

as tu cherché du coté de l'inspecteur d'objet pour forcer l'affichage du champ, en cliquant sur ton champ boolean; tu devera trouver une poroprièté dans l'inspecteur d'objet du genre DisplayResult ou tu metteras FAUX;VRAI
ceci forcera l'affichage du false et true à faux et vrai ..
boncourage

[ShaiLeTroll]

effectivement, au lieu de passer par onDrawColumnCell ou OnDrawDataCell, on peut aussir passer par OnGetText

Code :

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

DataSet.FieldByName('ChampBoolean').OnGetText := TFieldTool.BooleanGetText;

Code :

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

1
2
3
4
5
class procedure TFieldTool.BooleanGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
  DisplayText := True;
  Text := StrUtils.IfThen(Sender.AsBoolean, 'Vrai', 'Faux');
end;

Je l'ai aussi utilisé, pour mettre un texte adapté au métier de l'utilisateur par rapport à Vrai ou Faux

ou encore plus simple le fameux DisplayValues cité par soft_balade:

Code :

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

(DataSet.FieldByName('ChampBoolean') as TBooleanField).DisplayValues := 'Vrai;Faux';

[anapurna]

salut

solution avec les api windows sans composant externe

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
 
procedure TMaForm.DrawCheckBox(Sender : TObject; Rect: TRect; _Bool: boolean);
var
  RCell : Trect;
begin
  RCell :=Rect;
  OffsetRect(RCell, 2,round(0.5 * (RCell.bottom - RCell.top)));
  RCell.right  := RCell.left + GetSystemMetrics(SM_CXMENUCHECK);
  RCell.bottom := RCell.top + GetSystemMetrics(SM_CYMENUCHECK);
  RCell.top    := RCell.top - round(0.5 * (RCell.bottom - RCell.top) + 2);
  (Sender as TDbGrid).Canvas.FillRect(Rect);
  if _Bool then
    DrawFrameControl(StringGrid.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_CHECKED)
  else
    DrawFrameControl(StringGrid.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK)
end;
 
dans le ondraw de ton Dbgrid
 
  if Assigned(Column.Field) then 
  begin
     // if Column.FieldName = COLONNE_BOOLEAN then 
     if Column.Field.DataType = ftBoolean then
       DrawCheckBox(sender as TDBGrid,Rect,Column.Field.AsBoolean)          
   end;

[ShaiLeTroll]

Ah, merci Anapurna, DrawFrameControl oui, je l'avais utilisé pour dessiner sur le Bureau ... effectivement, c'est mieux qu'un TCheckBox caché !!! ...