Gestion CheckBox TCRDBGrid

Version imprimable

27/03/2012, 16h41
drake56

Gestion CheckBox TCRDBGrid

Bonjour,

Je cherche à ajouter une checkbox dans un Grid, j'ai utilisé la méthode proposée dans la FAQ à l'aide de deux images (une case cochée puis décochée).
Pour sélectionner une ligne, l'utilisateur doit effectué un double clic.
Cette méthode marche nickel sauf que dans ma base j'utilise un number (0 image décochée puis 1 image cochée) et il arrive que lorsque j'effectue un simple clic l'image disparaît pour laisser place au chiffre sélectionné.
Y a t'il un moyen d’empêcher ça ?

Merci d'avance
27/03/2012, 17h06
ShaiLeTroll

Si c'est un TCRDBGrid de CoreLab\Devart, il me semblait que c'est une fonctionnalité déjà intégrée, je dois confondre avec le composant de mon ancien employeur qui héritait de la TCRDBGrid car la CheckBox c'était intégré pour les colonnes ftBoolean de MyDAC lié à un TINYINT de MySQL

Comme toi, j'ai utilisé la FAQ Comment mettre une case à cocher dans une DBGrid ? pense qu'au lieu d'une Image, tu peux aussi utiliser la fonction DrawFrameControl qui fournira l'aspect du thème en cours

Je suppose que le dessin disparait lors du passage en mode saisie, mets la TColumn contenant la CheckBox à ReadOnly, tu ne pourras plus changer la valeur et cela ne passera pas en édition

Pour gérer le cochage\décochage, utilise OnCellClick, la propriété Column te permettra de savoir si l'on clique sur la colonne avec CheckBox

Si tu n'as qu'une seule colonne en CheckBox, tu peux aussi passer l'ensemble du DBGrid en ReadOnly et en Options + dgRowSelect puis avec l'évènement OnKeyDown en testant VK_SPACE ou même un simple OnDblClick, tu coches et décoches !
Pour les modifications, tu fais un formulaire, c'est plus pratique en général !

Sinon, il y a aussi la TDBCtrlGrid, qui permet d'utiliser des TDBCheckBox, TDBEdit ... c'est très puissants aussi !

Merci pour ta proposition mais je passe pas par TColumn. Après si tu connais un composant gérant directement la checkbox je suis preneur.
Je charge mon Grid comme ça :

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
26
27
28
29
// chargement du CRDBGrid
    DM_Facturation.Q_ListeDevisTemp.Close;
    DM_Facturation.Q_ListeDevisTemp.Active := False;
    CRDBG_Devis.Refresh;
 
    DM_Facturation.Q_ListeDevisTempZSF_DEVSEL.DisplayLabel        := ' ';
    DM_Facturation.Q_ListeDevisTempZSF_DEVSEL.DisplayWidth        := 3;
    DM_Facturation.Q_ListeDevisTempZSF_CLI_NUM.DisplayLabel       := 'Id Client';
    DM_Facturation.Q_ListeDevisTempZSF_CLI_NUM.DisplayWidth       := 7;
    DM_Facturation.Q_ListeDevisTempZSF_CLI_CIP.DisplayLabel       := 'Code Cip';
    DM_Facturation.Q_ListeDevisTempZSF_CLI_CIP.DisplayWidth       := 7;
    DM_Facturation.Q_ListeDevisTempZSF_DEVDATE.DisplayLabel       := 'Date';
    DM_Facturation.Q_ListeDevisTempZSF_DEVDATE.DisplayWidth       := 10;
    DM_Facturation.Q_ListeDevisTempZSF_CLI_RAISON.DisplayLabel    := 'Client';
    DM_Facturation.Q_ListeDevisTempZSF_CLI_RAISON.DisplayWidth    := 28;
    DM_Facturation.Q_ListeDevisTempZSF_MATERIEL.DisplayLabel      := 'Matériel en réparation';
    DM_Facturation.Q_ListeDevisTempZSF_MATERIEL.DisplayWidth      := 70;
    DM_Facturation.Q_ListeDevisTempZSF_OPE.DisplayLabel           := 'Opération';
    DM_Facturation.Q_ListeDevisTempZSF_OPE.DisplayWidth           := 9;
    DM_Facturation.Q_ListeDevisTempZSF_TASK.DisplayLabel          := 'Tâche';
    DM_Facturation.Q_ListeDevisTempZSF_TASK.DisplayWidth          := 5;
    DM_Facturation.Q_ListeDevisTempZSF_DEVID.DisplayLabel         := 'Devis';
    DM_Facturation.Q_ListeDevisTempZSF_DEVID.DisplayWidth         := 5;
 
    DM_Facturation.Q_ListeDevisTempZSF_NOSERIEMAT.Visible         := False;
    DM_Facturation.Q_ListeDevisTempZSF_FACHOT.Visible             := False;
    DM_Facturation.Q_ListeDevisTempZSF_DEVIS.Visible              := False;
 
    DM_Facturation.Q_ListeDevisTemp.Active := True;

Au début, j'avais testé avec onCellClick mais ça se passait pas exactement comme je voulais, je vais retester. Si je laisse onDblClick, forcément le chiffre gérant l'image finira par apparaître ? Je ne pense pas que DrawFrameControl changera ça ? A voir également

Edit : Je viens de voir ce que tu as rajouté, je regarde tout ça de plus près merci :)

Voilà comment je gère le cochage/décochage pour l'instant (j'ai ajouté le DrawFrameControl, je trouve ça mieux merci) :

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
26
27
28
29
30
31
32
33
34
    if CRDBG_Devis.SelectedField.FieldName = 'ZSF_DEVSEL' then
    begin
      { La grille doit être modifiable... }
      CRDBG_Devis.ReadOnly := False;
      if CRDBG_Devis.DataSource.DataSet.CanModify then
      begin
        CRDBG_Devis.DataSource.DataSet.Edit;
        if CRDBG_Devis.SelectedField.Value = 1 then
        begin
          Sql := 'UPDATE tz_sav_facdev set zsf_devsel = 0 ';
          Sql := Sql + 'WHERE zsf_devid = ' + FloatToStr(CRDBG_Devis.DataSource.DataSet.FieldByName('zsf_devid').Value);
 
          DM_Facturation.Q_Update.Close;
          DM_Facturation.Q_Update.SQL.Clear;
          DM_Facturation.Q_Update.SQL.Add(Sql);
          DM_Facturation.Q_Update.ExecSQL;
        end
        else
        begin
          Sql := 'UPDATE tz_sav_facdev set zsf_devsel = 1 ';
          Sql := Sql + 'WHERE zsf_devid = ' + FloatToStr(CRDBG_Devis.DataSource.DataSet.FieldByName('zsf_devid').Value);
 
          DM_Facturation.Q_Update.Close;
          DM_Facturation.Q_Update.SQL.Clear;
          DM_Facturation.Q_Update.SQL.Add(Sql);
          DM_Facturation.Q_Update.ExecSQL;
        end;
        CRDBG_Devis.DataSource.DataSet.Post;
      end;
      CRDBG_Devis.ReadOnly := True;
      CRDBG_Devis.Refresh;
      DM_Facturation.Q_ListeDevisTemp.Close;
      DM_Facturation.Q_ListeDevisTemp.Open;
    end;

Est-ce qu'à ton avis dans ce code, le passage en mode édition pourrait être éviter (image remplacé par le chiffre sélectionné qui la gère dans la base) ?

EDIT : la TSMDBGrid possède l'option eoCheckBoxSelect, tu peux l'utiliser à la place de la TCRDBGrid, voir ce sujet tester la case a cocher dans SMDBGrid

Même si tu ne défini pas de TColumn explicitement, ils existent
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.DBGrid1OnCellClick(Column: TColumn); var KeepState: TDataSetState; begin // if Column.FieldName = DM_Facturation.Q_ListeDevisTempZSF_DEVSEL.FieldName then if Column.Field = DM_Facturation.Q_ListeDevisTempZSF_DEVSEL then begin KeepState := Column.Field.DataSet.State; if not KeepState in [dsEdit, dsInsert] then Column.Field.DataSet.Edit; Column.Field.AsBoolean := not Column.Field.AsBoolean; if not KeepState in [dsEdit, dsInsert] then Column.Field.DataSet.Post; end; end;
EDIT : Tu peux simplifier tout ça !

ReadOnly n'a pas besoin d'être changé, tu peux avoir une grille en lecture seule pour l'utilisateur mais pas pour le code !

Edit\Post je ne les comprends pas bien dans code, je ne vois pas d'affectation, tu fais un SQL mais cela n'impacte pas le contenu du DataSet

Tu fais un Refresh du DBGrid, je ne crois pas que cela fasse grand chose

CRDBG_Devis est lié à Q_ListeDevisTemp, c'est le Close\Open qui font le boulot, tu dois perdre la ligne courante non ?

FloatToStr ? un simple IntToStr n'est-il pas suffisant ou même AsString !

Ton code se résume a ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 if CRDBG_Devis.SelectedField.FieldName = 'ZSF_DEVSEL' then begin NouvelleValeur := StrUtils.IfThen(CRDBG_Devis.SelectedField.Value = 1, '0', '1'); Sql := 'UPDATE tz_sav_facdev set zsf_devsel = ' + NouvelleValeur + 'WHERE zsf_devid = ' + CRDBG_Devis.DataSource.DataSet.FieldByName('zsf_devid').AsString; DM_Facturation.Q_Update.Close; DM_Facturation.Q_Update.SQL.Text := SQL; DM_Facturation.Q_Update.ExecSQL; end; DM_Facturation.Q_ListeDevisTemp.Close; DM_Facturation.Q_ListeDevisTemp.Open; end;
A Mon avis, tu devrais utiliser un TClientDataSet ou un cache locale quelconque pour gérer la case à cocher, puis un bouton valider va lancer les SQL dans une seule et unique transaction !

Déjà avoir une colonne de sélection dans une table c'est très étrange, c'est sélection est permanente et commune à tous les utilisateurs ? tu es peut-être dans une application strictement monoposte ?

28/03/2012, 12h12
drake56

Bonjour,

Merci pour le code simplifié que tu m'as fourni, ça fonctionne nickel !
Cependant, j'ai toujours le même problème, mon image continue à disparaître.
Je vais essayé de travaillé avec le onCellClick pour voir si c'est mieux !
La colonne de sélection est uniquement utilisée dans une table temporaire ;) !
Concernant le SMDBGrid j'avais lu quelque chose à ce sujet et c'est un composant qui semblait convenir, j'ai réussi à l'installer mais ça ne compile pas, problème de dcu

Edit : Le CellClick ne convient pas puisque il est impossible de toucher à la ligne en cours et le chiffre apparaît également
Edit2 : En fait le chiffre apparaît uniquement à la place de l'image dans le cas où c'est la ligne sélectionnée

1 pièce(s) jointe(s)

Fait attention au TGridDrawState, il t'indique l'état de la zone à dessiner dont l'état de sélection
Depuis XE2, la gestion de thème a modifié le comportement de la TDBGrid en particulier le dessin avec transparence de la sélection.

Pour avoir dessiner des CheckBox, je sais que cela fonctionne sans ce problème de valeur brute qui ré-apparait, normalement, c'est plus à l'édition qu'à la selection que cela posait problème d'où le passage forcé en dgRowSelect

Je viens de le tenter en C++Builder2007, un TDBGrid en Options par défaut

Une CheckBoxDrawCheckBox indique si le dessin doit être fait
Je peux sélectionner et conserver le dessin

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
//---------------------------------------------------------------------------
void __fastcall TDBManipForm::BtnCDSBasicsCreateDataSetClick(TObject *Sender)
{
  ClientDataSetBasics->Close();
  ClientDataSetBasics->FieldDefs->Clear();
  ClientDataSetBasics->FieldDefs->Add("Champ1", ftInteger);
  ClientDataSetBasics->FieldDefs->Add("Champ2", ftString, 10);
  ClientDataSetBasics->FieldDefs->Add("Champ3", ftBoolean);
  ClientDataSetBasics->FieldDefs->Add("Champ4", ftDateTime);
  ClientDataSetBasics->FieldDefs->Add("Champ5", ftWideString, 10);
  ClientDataSetBasics->CreateDataSet();
}
 
//---------------------------------------------------------------------------
void __fastcall TDBManipForm::CheckBoxDrawCheckBoxClick(TObject *Sender)
{
  if (CheckBoxDrawCheckBox->Checked)
    DBGridCDSBasics->Options = TDBGridOptions(DBGridCDSBasics->Options) << dgRowSelect;
  else
    DBGridCDSBasics->Options = TDBGridOptions(DBGridCDSBasics->Options) >> dgRowSelect;
 
  DBGridCDSBasics->Invalidate();
}
 
//---------------------------------------------------------------------------
void __fastcall TDBManipForm::DBGridCDSBasicsDrawDataCell(TObject *Sender,
      const TRect &Rect, TField *Field, TGridDrawState State)
{
  if (CheckBoxDrawCheckBox->Checked)
    if (Field->DataType == ftBoolean)
      if (Sender->InheritsFrom(__classid(TDBGrid)))
      {
        ((TDBGrid*)Sender)->Canvas->FillRect(Rect);
        DrawFrameControl(((TDBGrid*)Sender)->Canvas->Handle, (RECT*)&Rect, DFC_BUTTON, DFCS_BUTTONCHECK | (Field->AsBoolean ? DFCS_CHECKED : 0));
      }
}
 
//---------------------------------------------------------------------------
void __fastcall TDBManipForm::DBGridCDSBasicsDblClick(TObject *Sender)
{
  if (Sender->InheritsFrom(__classid(TDBGrid)))
  {
    TPoint CursorPos = Mouse->CursorPos;
    TDBGrid* Grid = ((TDBGrid*)Sender);
    CursorPos = Grid->ScreenToClient(CursorPos);
    TGridCoord Coord = Grid->MouseCoord(CursorPos.x, CursorPos.y);
    TField *Field = Grid->Columns->Items[Coord.X - (Grid->Options.Contains(dgIndicator) ? 1 : 0)]->Field;
 
    if (Field->DataType == ftBoolean)
    {
      TDataSetState KeepState = Field->DataSet->State;
      if ((KeepState != dsEdit) && (KeepState != dsInsert))
        Field->DataSet->Edit();
      Field->AsBoolean = ! Field->AsBoolean;
      if ((KeepState != dsEdit) && (KeepState != dsInsert))
        Field->DataSet->Post();
    }
  }
}

Merci pour ta nouvelle réponse mais tu m'as perdu en route là :oops: !
Voilà la fonction gérant l'affichage des cases, tu vas peut être y voir quelque chose qui ne te semble pas bon :

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
26
27
28
29
30
31
32
33
34
procedure TF_FactDevis.CRDBG_DevisDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DM_Facturation.Q_ListeDevisTemp.Eof = false then
  begin
    CRDBG_Devis.OnDblClick := CRDBG_DevisDblClick;
    if Column.FieldName = 'ZSF_DEVSEL' then
    begin
      { on efface la cellule }
      CRDBG_Devis.Canvas.FillRect(Rect);
      { si coché  }
      if DM_Facturation.Q_ListeDevisTempZSF_DEVSEL.Value = 1 then
      begin
        DrawFrameControl(CRDBG_Devis.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_CHECKED);
      end
      { sinon, pas coché  }
      else
      begin
        DrawFrameControl(CRDBG_Devis.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK)
      end
    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
      CRDBG_Devis.DefaultDrawColumnCell(rect,datacol,column,state);
    end;
  end
  else
  begin
    CRDBG_Devis.OnDblClick := nil;
  end;
end;

28/03/2012, 15h42
ShaiLeTroll

Code:

if DM_Facturation.Q_ListeDevisTemp.Eof = false then

je ne vois pas trop l'intéret, il le gère tout seul

J'utilise OnDrawDataCell et non OnDrawColumnCell !
Je n'ai pas fait d'appel à DefaultDrawColumnCell, j'ai laissé DefaultDrawing à true.

Tout ce joue sur "Options + dgRowSelect", sinon cela peut entrer en mode Edition et donc là, cela ne doit pas dessiner et utiliser le InplaceEditor intégré
28/03/2012, 15h55
drake56

Merci pour le rappel du dgRowSelect, j'étais passé à côté, je l'avais laissé à False, c'était juste ça le soucis en fait, maintenant c'est parfait !
Encore merci pour le temps que tu m'as accordé et bonne fin de journée :)