Discussion :

[juju1988]

Bonjour à tous,

Je cherche à dessiner une case à cocher dans une colonne d'un DBGrid. J'ai suivi ce tutoriel. Je l'avais déjà utilisé par le passé.

Mon DBGrid contient 3 colonnes, il est lié à un DataSource ds_select lui même relié à une requête q_select :

Code :

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

1
2
3
4
5
6
7
8
9
  q_select.Close; q_select.SQL.Clear;
  q_select.SQL.Add('select distinct colxcol, cdexent from ENTXRES, COLXRES where NUMXENT=NUMXCOL');
  q_select.SQL.Add('and CODXENT =:cod');
  q_select.SQL.Add('and TOUXENT =:tou');
  q_select.SQL.Add('and MARXENT =:mar');
  q_select.SQL.Add('and (refxcol is not null) group by cdexent, colxcol');
  q_select.ParamByName('cod').AsString := x_cli;
  q_select.ParamByName('tou').AsString := x_tournee;
  q_select.ParamByName('mar').AsString := x_transport;

Cette requête me rempli donc les deux premières colonnes de mon DBGrid. Je veux que la troisième comporte donc ma case à cocher.

J'ai bien créé ma procédure sur le DrawColumnCell :

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
procedure TFS42.DBGrid_SelectDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 
  // On ne prend en compte que la colonne REGROUPER
if sameText(Column.FieldName, 'REGROUPER') then
  begin
    { On efface la cellule }
    DBGrid_select.Canvas.FillRect(Rect);
    { Cochée ou Pas ?}
 
    dmImages.imgCheck.Draw(DBGrid_select.Canvas,
        Rect.Left + ((Rect.Right - Rect.Left - dmImages.imgCheck.Width) div 2),
        Rect.Top,
        Ord(Column.Field.AsString = '0')              //au lieu de Ord(monDB.Fields[3].AsString = '0')   sinon me coche toutes les cases sur la recherche
      );
  end
  { si column ne correspond pas à une case à cocher, }
  { on ne s'occupe pas du dessin de la cellule, on }
  { transmet donc à DefaultDrawColumnCell }
  else
  begin
    DBGrid_select.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Et j'ai mon datamodule avec mon imgList (imgCheck) qui comporte deux images une non cochée et une cochée.

Mais vu que ma troisième colonne n'est pas liée à ma requête comment dois-je faire pour la remplir avec ma case à cocher vide ?

Je vous met en pièce jointe mon écran affichage. La case à cocher est à mettre dans le tableau à droite troisième colonne.

Merci d'avance

[Pascal Jankowski]

Il faut ajouter un champ calculé à ta requête q_select de type "boolean".
Tu pourras relier ce champ à ta case à cocher. Voir également l'événement OnCalcFields de q_select qui te permet d'initialiser le ou les champs calculés.

[juju1988]

Il faut ajouter un champ calculé à ta requête q_select de type "boolean".
Tu pourras relier ce champ à ta case à cocher. Voir également l'événement OnCalcFields de q_select qui te permet d'initialiser le ou les champs calculés.

Comment ça un champ calculé ? (j'ai cherché sur google mon ami mais ça ne parle que de Access)
Parce que dans mon image List la valeur 0 correspond à une case décochée et la valeur 1 à un champ coché.

[Pascal Jankowski]

Q_Select est bien un composant déposé sur ta fiche ?
Si c’est le cas, alors double click dessus ou click droit et sélectionne « Nouveau champ ».

A partir de ce nouveau dialogue tu peux créer ton champ calculé.
Tu as également la possibilité d’ajouter les champs de données de ta requête.

C'est une petite couche de persistance offerte avec les composants de type TQuery. Tu peux ensuite vérifier que ces nouveau champs sont déclarés dans le code source de ton unité.

Pour accéder à OnCalcField, tu vas simplement dans l’inspecteur d’objets pour ton Q_Select dans la section événement.

[Edit]
En tapant "Delphi champ calculé" dans Google, il y a de nombreuses références.

par exemple : http://docwiki.embarcadero.com/RADSt...p_calcul%C3%A9
[/Edit]

[ShaiLeTroll]

Au pire, tu bidouille ton SQL pour fournir une valeur par défaut à REGROUPER et faire en sorte que cette colonne existe sans effort !

Code :

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

('select distinct colxcol, cdexent, 0 AS REGROUPER from ENTXRES, COLXRES where NUMXENT=NUMXCOL');

Cela fonctionne sur MySQL ou Sybase de fournir ce genre de colonne bidon, à voir sur ton sgbd (oracle ?)

REGROUPER sera la colonne où tu dessineras la CheckBox !
Il pourra accueillir la modification (ne pas oublier Edit\Post)
D'ailleurs, mieux vaut un mode en cache, ou Post ne modifie qu'en mémoire !
Au besoin le TClientDataSet fournira ce cache si tu Query n'en fourni pas !

Si tu veux dessiner un CheckBox du thème voir DrawFrameControl :
dbgrid + checkbox pour multi selection
Gestion CheckBox TCRDBGrid

Il y avait une bidouille pour créer un champ même à partir d'un SQL !
En modifiant DefaultFields à false, et en gérant soit même la création des colonnes AVANT de faire le OPEN du SQL

[juju1988]

Au pire, tu bidouille ton SQL

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

('select distinct colxcol, cdexent, 0 AS ChampPourSelection from ENTXRES, COLXRES where NUMXENT=NUMXCOL');

ChampPourSelection sera la colonne où tu dessineras la CheckBox !
Il pourra accueillir la modification (ne pas oublier Edit\Post)
D'ailleurs, mieux vaut un mode en cache, ou Post ne modifie qu'en mémoire !
Au besoin le TClientDataSet fournira ce cache si tu Query n'en fourni pas !

Alors j'ai mis la requête comme tu m'as dit mais ça ne change rien je n'ai pas de case à cocher qui apparait ... Est ce que j'aurais oublié quelque chose ??

Q_Select est bien un composant déposé sur ta fiche ?
Si c’est le cas, alors double click dessus ou click droit et sélectionne « Nouveau champ ».

A partir de ce nouveau dialogue tu peux créer ton champ calculé.
Tu as également la possibilité d’ajouter les champs de données de ta requête.

C'est une petite couche de persistance offerte avec les composants de type TQuery. Tu peux ensuite vérifier que ces nouveau champs sont déclarés dans le code source de ton unité.

Pour accéder à OnCalcField, tu vas simplement dans l’inspecteur d’objets pour ton Q_Select dans la section événement.

Oui c'est un composant déposé sur ma fiche.
Oui ok mais je vois pas où tu veux en venir, que dois je mettre dans le OnCalcField ? Je vais regarder ton lien...


EDIT :

J'ai mis ça :

Code :

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

1
2
3
4
procedure TFS42.q_selectCalcFields(DataSet: TDataSet);
begin
  DBGrid_select.Fields[2].AsInteger := 0;
end;

après avoir créer mon champ... mais cela me fait une erreur de violation d'accès...

Je pensais passer mon champ à 1 au moment où l'utilisateur cocherait la case (si j'arrive à voir cette case à cocher..bien sûr)

[ShaiLeTroll]

Alors j'ai mis la requête comme tu m'as dit mais ça ne change rien je n'ai pas de case à cocher qui apparait ... Est ce que j'aurais oublié quelque chose ??

Si tu as défini tes champs en DesignTime comme le propose Pascal Jankowski, cela annule la méthode par bidouille SQL

C'est deux méthodes opposées !

Ton champ ChampPourSelection ou REGROUPER (note que j'avais changé le nom en relisant tes réponses) affichera un 0 partout
A toi dans le OnDrawColumnCell de dessiner via dmImages ou DrawFrameControl selon le contenu de REGROUPER, il sera accessible en AsInteger (mieux que AsString)

Consulte cet exemple avec un TClientDataSet en C++Builder, ne soit pas effrayé, remplace { } par begin end et -> par . et tu auras presque un code Delphi

Relit ton sujet Problème de déclaration de 2011 où l'on avait amélioré ta fonction AfficheCaseSav

[juju1988]

Si tu as défini tes champs en DesignTime comme le propose Pascal Jankowski, cela annule la méthode par bidouille SQL

C'est deux méthodes opposées !

Ton champ ChampPourSelection ou REGROUPER (note que j'avais changé le nom en relisant tes réponses) affichera un 0 partout
A toi dans le OnDrawColumnCell de dessiner via dmImages ou DrawFrameControl selon le contenu de REGROUPER, il sera accessible en AsInteger (mieux que AsString)

Oui mais j'ai d'abord tester ta méthode puis celle de Pascal. Je viens de retester pour être sûr et ça ne m'affiche rien dans ma colonne. Je n'ai pas de 0 non plus...

[ShaiLeTroll]

C'est peut-être que ton SGBD ne sait pas fournir de colonne par défaut ou alors il traine des trucs dans ton code qui sont parasite

Je précise qu'il faut
NI Champs Persistant dans le DataSet
NI de Columns dans le TDBGrid (ou alors il faut penser à l'ajouter)

[Pascal Jankowski]

Pour le champ calculé, son type est Boolean, c'est plus logique. (les valeurs entières que prend un boolean est 0 pour False et -1 pour True).

De plus :

Code :

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

1
2
3
4
procedure TFS42.q_selectCalcFields(DataSet: TDataSet);
begin
 DataSet.FieldByName('nom_du_champ_calculé').AsBoolean := False;
end

Evitera l'erreur de violation

[e-ric]

Salut

T'aurais pas oublié

Code :

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

DefaultDrawing := False;

par hasard ?

@+

[juju1988]

C'est peut-être que ton SGBD ne sait pas fournir de colonne par défaut ou alors il traine des trucs dans ton code qui sont parasite

Je précise qu'il faut
NI Champs Persistant dans le DataSet
NI de Columns dans le TDBGrid (ou alors il faut penser à l'ajouter)

Je n'ai pas de DataSet.

J'ai des columns ds le DBGrid... je les ai enlevé et là je n'ai plus rien qui s'affiche. J'ai donc remis mes deux colonnes... mais du coup pas de trace de 3° colonne avec case à cocher. J'ai donc remis ma colonne.

[juju1988]

Salut

T'aurais pas oublié

Code :

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

DefaultDrawing := False;

par hasard ?

@+

A mettre où ? Dans le code de DrawColumnCell ?

Pour le champ calculé, son type est Boolean, c'est plus logique. (les valeurs entières que prend un boolean est 0 pour False et -1 pour True).


procedure TFS42.q_selectCalcFields(DataSet: TDataSet);
begin
DataSet.FieldByName('nom_du_champ_calculé').AsBoolean := False;
end

Evitera l'erreur de violation

Je vais tester...

[e-ric]

Non, tu affectes False à la propriété DefaultDrawing du DBGrid (via l'inspecteur d'objet), c'est indispensable pour mettre en oeuvre l'évt DrawColumnCell.
Vérifies par ailleurs que cette propriété n'est pas modifiée dans le code.

@+

[e-ric]

Le petit tuto que tu as mentionné n'en parle pas, c'est curieux.

[juju1988]

Non, tu affectes False à la propriété DefaultDrawing du DBGrid (via l'inspecteur d'objet), c'est indispensable pour mettre en oeuvre l'évt DrawColumnCell.
Vérifies par ailleurs que cette propriété n'est pas modifiée dans le code.

@+

Je l'ai mis et je l'ai également remis dans

procedure TFS42.DBGrid_SelectDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin

// On ne prend en compte que la colonne REGROUPER
if sameText(Column.FieldName, 'REGROUPER') then
begin
{ On efface la cellule }
DBGrid_select.Canvas.FillRect(Rect);
{ Cochée ou Pas ?}

dmImages.imgCheck.Draw(DBGrid_select.Canvas,
Rect.Left + ((Rect.Right - Rect.Left - dmImages.imgCheck.Width) div 2),
Rect.Top,
Ord(Column.Field.AsString = '0') //au lieu de Ord(monDB.Fields[3].AsString = '0') sinon me coche toutes les cases sur la recherche
);
end
{ si column ne correspond pas à une case à cocher, }
{ on ne s'occupe pas du dessin de la cellule, on }
{ transmet donc à DefaultDrawColumnCell }
else
begin
DBGrid_select.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

DBGrid_Select.DefaultDrawing := false;
end;

Mais du coup mes lignes du DBGrid sont tout le temps vides...

[SergioMaster]

as-tu vu ma version d'un checkbox dans un dbgrid ?
ici
avantage , pas besoin d'image en plus

maintenant quelques critiques (constructives ?)
tout d'abord la requête :
1 - il me semble que le distinct n'est pas nécessaire s'il y a un group by
2 - s'il y a deux tables préférer la syntaxe 'moderne' de la jointure pour plus de lisibilité
3- ajouter le champ de la fameuse case a cocher

ce qui donnerait quelque chose comme ceci

Code :

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

1
2
3
4
5
6
select colxcol, cdexent,min(0) as regrouper from ENTXRES E JOIN COLXRES C ON NUMXENT=NUMXCOL
WHERE CODXENT =:cod
and TOUXENT =:tou
and MARXENT =:mar
and (refxcol is not null) 
group by cdexent, colxcol

[e-ric]

L'affectation

Code :

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

DBGrid_Select.DefaultDrawing := false;

en fin de procedure ne sert à rien.

Mais du coup mes lignes du DBGrid sont tout le temps vides...

C'est curieux, l'appel à DBGrid_select.DefaultDrawColumnCell aurait dû éviter cela.
Là pour l'instant, je sèche.
As-tu vérifié que la routine DBGrid_SelectDrawColumnCell était bien assignée à l'évt DrawColumnCell de DBGrid_select ?

[ShaiLeTroll]

Le petit tuto que tu as mentionné n'en parle pas, c'est curieux.

Surtout que cela a été mentionné dans Comment formater l'affichage d'un champ dans un TDBGrid ?

Je n'ai pas de DataSet.

j'utilisais DataSet comme un terme générique, le Query est un DataSet

J'ai des columns ds le DBGrid...

Je n'ai jamais trop pratiqué cela, une fois que l'on y a touché, ... pour être sur, je supprime le compo et je remets un DBGrid tout propre, et souvent "par magie" cela fonctionne !

Idem pour les Query, je ne les pose pas non plus, je les instancies à la volée, je n'ai pas de problème de liste de champ prédéfini non conforme au SQL !

Les remarques de SergioMaster sont pertinentes, tu as peut-être une erreur SQL que tu masques d'où la grille vide car il n'apprécie pas le trio DISTINCT \ GROUP BY \ 0 as ...

[juju1988]

as-tu vu ma version d'un checkbox dans un dbgrid ?
ici
avantage , pas besoin d'image en plus

maintenant quelques critiques (constructives ?)
tout d'abord la requête :
1 - il me semble que le distinct n'est pas nécessaire s'il y a un group by
2 - s'il y a deux tables préférer la syntaxe 'moderne' de la jointure pour plus de lisibilité
3- ajouter le champ de la fameuse case a cocher

ce qui donnerait quelque chose comme ceci

Code :

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

1
2
3
4
5
6
select colxcol, cdexent,min(0) as regrouper from ENTXRES E JOIN COLXRES C ON NUMXENT=NUMXCOL
WHERE CODXENT =:cod
and TOUXENT =:tou
and MARXENT =:mar
and (refxcol is not null) 
group by cdexent, colxcol

Ben je teste sous PL/SQL pour voir déjà mais ça me dit : "Toutes les variables ne sont pas liées" ...

Code :

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

1
2
3
4
5
6
7
8
select colxcol, cdexent,min(0) as CHECKBOX 
from ENTXRES E 
JOIN COLXRES C ON E.NUMXENT=C.NUMXCOL
WHERE CODXENT =:cod
and CODXENT =:cod
and TOUXENT =:tou
and MARXENT=:mar
and (refxcol is not null) group by cdexent, colxcol