Discussion :

[codial]

Bonjour,

tout d'abord mes meilleurs voeux pour 2007, Pace è Salute à tous
Bon, voilà mon problème:

Dans une table, j'ai un champ booléan.
Dans un DBCtrlGrid je cherche à remplacer le DBCheckBox par un label dans lequel je veux écrire 'Effectué' si le champ est à true et 'non efféctué' si le champ est à false.

Pour le moment j'ai écrit ce code:

Code :

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

1
2
3
4
5
 
if tblDetailChantierFait.Value = false then
      frmSuivi.Label1.Caption:='Effectué' 
    else
      frmSuivi.Label1.Caption:='non efféctué' ;

mais ça ne marche pas car je ne trouve pas dans quel évènement le mettre

Si quelqu'un à une idée.....

D'avance merci

Codial

[Rayek]

Dans le OnDrawColumnCell de ta grid

Code :

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

1
2
3
4
5
6
7
8
 
With TDbCtrlGrid(Sender) do
begin
  if tblDetailChantierFait.Value = false then
    Canvas.TextOut(Rect.Left+2,Rect.Top+2,'Effectué')
  else
    Canvas.TextOut(Rect.Left+2,Rect.Top+2,'Non Effectué');
end;

Avec ca pas besoin de label (a moins que le DbCtrlGrid fonctionne différement ?)

[codial]

Bonjour Malatar,

Dommage, après vérification il s'avère que l'évènement OnDrawColumnCell n'existe pas pour un TDbCtrlGrid.
Merci quand même pour la réponse.

Je pense qu'il faut le mettre le code dans un évènement du Dataset mais je ne trouve pas lequel!!!

Une autre idée?

Codial

[Cl@udius]

Salut

une idée comme ça: tu te créé un champ calculé en utilisant le code que tu as déjà écris:

Code :

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

1
2
3
4
5
 
  if tblDetailChantierFait.Value = false then
    tblDetailChantierMonChampCalcule.Value := 'Effectué' 
  else
    tblDetailChantierMonChampCalcule.Value := 'non efféctué' ;

Ensuite tu poses un TDBText sur ton DBCtrlGrid lié à ce champ calculé.

@+ Claudius

[Yurck]

Bonjour,

Ou tu modifie le OnGetText de ton champ.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TDatamodule.tblDetailChantierFaitGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  if tblDetailChantierFait.isnull then
    Text := 'non défini'
  else
  if (tblDetailChantierFait.value = true) then
     Text := 'Effectué'
  else
     Text := 'non efféctué';
end;

a+

[codial]

Bonjour,

Je vous remercie pour vos solutions, les deux fonctionnent bien.
J'avais testé la piste de Claudius et c'était bon. Entre temps il y a eu la réponse de Yurck qui me convient bien.

Encore merci à vous deux.

Cordialement

Codial

[codial]

Bonjour,
je reviens sur le sujet.

Je souhaite affecter une couleur au DBText suivant que le champ est à true ou à false. 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
 
if tblDetailChantierFait.isnull then
    Text := 'non défini'
  else
  if tblDetailChantierFait.value = true then  begin
     Text := 'Effectué';
     frmSuivi.DBText2.Font.Color:=$00000000;//Noir
     end
  else
    begin
    Text := 'A effectuer';
    frmSuivi.DBText2.Font.Color:= $00FF0000 ;//Bleu
    end;

Or à l'affichage le premier enregistrement est systématiquement bleu bien que le champ soit à true.

Où est mon erreur?

D'avance merci

Codial

[hugobob]

Salut !!!

je crois c'est parce que tu n'utilises pas un evenement du TDbCtrlGrid pour le realiser . essaye un peu l'evenement quand la fiche se dessine !

Je fouille !!!!!

[aityahia]

utilisé des champs calculer et des champs de référence c'est bien mais
attentions sa réduit considérablement les performance de votre application.

[codial]

Bonjour,

merci hugobob pour la piste.
J'avais listé les évènements du TDbCtrlGrid mais je ne m'étais pas attardé sur OnPaintPanel or c'est cet évènement là qui permet de faire ce que je voulais.
J'y ai mis mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TfrmSuivi.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;
  Index: Integer);
begin
if DM.tblDetailChantierFait.value = true then
    DBText2.Font.Color:=$00000000
  else
    DBText2.Font.Color:= clRed; //$00FF0000 ;
end;

et c'est bon ça marche!!!

Merci à tous les solutions et les pistes

Cordialement

Codial