Afficher "Vrai" au lieu de True

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

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:

---

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 ???

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

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

Code:

---

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

---

Code:

---

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:

---

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

---

salut

solution avec les api windows sans composant externe

Code:

---

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;

---

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