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

[e-ric]

Salut

T'aurais pas oublié

Code :

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

DefaultDrawing := False;

par hasard ?

@+

[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...