Discussion :

[juju1988]

La première méthode (soustraction) ne fonctionne pas. Et la deuxième du coup si on clique ça coche et si on reclique ça décoche ?

[e-ric]

ouais c'est l'idée. Il s'agit d'une bascule, cela simule le fonctionnement d'une case à cocher.

La soustraction, ca fonctionne à condition de s'assurer que la valeur initiale est 0 ou 1. L'idée est d'employer une suite définie par récurrence, X(n+1) = 1 -X(n), le premier terme X(0) conditionne les autres.

[ShaiLeTroll]

Et la deuxième du coup si on clique ça coche et si on reclique ça décoche ?

C'est effectivement l'idée !
Si tu n'aime pas le changement de la coche au Click,
j'ai fourni une variante C++ Delphisé que je te laisse corriger pour gérer le changement de la coche sur le Double Click,
c'est un peu plus retord car il faut manuellement calculé la colonne

Pourquoi passer par une fonction sur un calcul aussi élémentaire ?
Encore si l'on avait l'opérateur de sélection du langage C, je comprendrais.

élémentaire pour toi mais pas pour juju !

Perso, comme je code en C++, j'écrirais naturellement
Column->Field->AsInteger = ! Column->Field->AsInteger;
car ! c'est toujours le not logique contrairement à Delphi ou cela change logique\bit-à-bit, en C++, le bit-à-bit c'est ~

à la limite peut-être
Column->Field->AsInteger = Column->Field->AsInteger ? 0 : 1;

Mais je me débrouille pour que la colonne fantome soit un BIT ou TinyInt(1) respectivement avec le provider DBExpress pour Sybase ou MyDAC pour MySQL sont malin pour transformer le BIT ou TinyInt(1) en TBooleanField permettant d'écrire directement
Column->Field->AsBoolean = ! Column->Field->AsBoolean;
Et là pas d'amguïté !

Enfin en Delphi, j'écrirais ceci avec AsInteger
Column.Field.AsInteger := Integer(not LongBool(Column.Field.AsInteger));

[e-ric]

Perso, comme je code en C++, j'écrirais naturellement
Column->Field->AsInteger = ! Column->Field->AsInteger;
car ! c'est toujours le not logique contrairement à Delphi ou cela change logique\bit-à-bit, en C++, le bit-à-bit c'est ~

C/C++ font la confusion entre booléen et entier, point de vue de pascalien.

Enfin en Delphi, j'écrirais ceci avec AsInteger
Column.Field.AsInteger := Integer(not LongBool(Column.Field.AsInteger));

ça donne une expression trop compliqué par rapport à l'objectif.

à la limite peut-être
Column->Field->AsInteger = Column->Field->AsInteger ? 0 : 1;

L'opérateur de sélection dont je parlais, inexistant en Delphi et c'est dommage car il rendrait parfois service.

[ShaiLeTroll]

ça donne une expression trop compliqué par rapport à l'objectif.

C'est bien vrai ! un double cast, ce n'est pas très lisible !
si l'on est pas habitué le 1 - x ne l'est pas plus d'où l'ajout de commentaire pour indiquer que c'est juste une permutation true\false

raison de plus que le champ DB soit fortement type BOOL pour que le provider fournisseur un TBooleanField !

L'opérateur de sélection dont je parlais, inexistant en Delphi et c'est dommage car il rendrait parfois service.

En XE3, IfThen est marqué inline même si la documentation ne le précise pas !
Du coup, cela se rapproche du ?, cela économise le CALL ...

[e-ric]

C'est bien vrai ! un double cast, ce n'est pas très lisible !
si l'on est pas habitué le 1 - x ne l'est pas plus d'où l'ajout de commentaire pour indiquer que c'est juste une permutation true\false

raison de plus que le champ DB soit fortement type BOOL pour que le provider fournisseur un TBooleanField !



En XE3, IfThen est marqué inline même si la documentation ne le précise pas !
Du coup, cela se rapproche du ?, cela économise le CALL ...

Ouais, mais les arguments de l'inline sont évalués comment ? comme pour une fonction.

Pour le 1-x,j'ai déjà vu des expressions plus compliqué, pour quelqu'un qui a fait un peu de maths dans sa jeunesse, c'est pas insurmontable.

[juju1988]

Citation:
Envoyé par juju1988 Voir le message
Et la deuxième du coup si on clique ça coche et si on reclique ça décoche ?
C'est effectivement l'idée !
Si tu n'aime pas le changement de la coche au Click,
j'ai fourni une variante C++ Delphisé que je te laisse corriger pour gérer le changement de la coche sur le Double Click,
c'est un peu plus retord car il faut manuellement calculé la colonne

Non non c'est parfait comme principe

J'ai utilisé ton :

Code :

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

1
2
Enfin en Delphi, j'écrirais ceci avec AsInteger
Column.Field.AsInteger := Integer(not LongBool(Column.Field.AsInteger));

Mais pas de changement non plus...

[ShaiLeTroll]

Retire le DrawCell !
Regarde si cela passe de 0 à 1 et l'inverse !
Si cela change 0\1 c'est un bug du Draw
Si cela ne change pas ... euh, décidément tu n'as pas de bol !

Est-ce que q_select est modifiable ?
le résultat d'un SQL est parfois en lecture seule et refuse le Edit !

Est-ce que DBGrid1CellClick est bien lié à DBGrid1 OnCellClick ?

Attention au Edit\Post, en général, je ne les force pas,
je conserve l'état en cours via Column.DataSet.State;

[juju1988]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFS42.DBGrid_selectDblClick(Sender: TObject; Column : TColumn);
begin
(*  if Dbgrid_select.Fields[2].AsInteger = 0 then
    showmessage('toto');   *)
if Column.FieldName='REGROUPER' then
  begin
    Column.Field.DataSet.Edit;
    Column.Field.AsInteger := Integer(not LongBool(Column.Field.AsInteger));
    Column.Field.DataSet.Post;
  end;
end;

DrawCell retiré et ça ne change pas je vais m'arracher les cheveux... sinon tant pis je ne dessine pas de case à cocher mais je fais un X dans la cellule à chaque clic...

[ShaiLeTroll]

cela ne change pas ... euh, décidément tu n'as pas de bol !

Est-ce que q_select est modifiable ?
le résultat d'un SQL est parfois en lecture seule et refuse le Edit !

Est-ce que DBGrid1CellClick est bien lié à DBGrid1 OnCellClick ?
ou
DBGrid_selectDblClick lié à DBGrid_selec.OnCellClick ?

Attention au nommage !
DBGrid_selectDblClick c'est plutôt OnDblClick
DBGrid_selectCellClick c'est plutôt OnCellClick
Tu vas t'y perdre !

Il n'y a pas de Sender pour OnCellClick !

[e-ric]

je viens de penser à un truc, l'ensemble de données est un TQuery ?
Par défaut, les TQuery ne sont pas modifiables, auquel il faut mettre en place la plomberie pour rendre les mises à jour possibles.

[ShaiLeTroll]

Ne t'inquiète pas, je l'ai évoqué dès ma 1ere réponse :

Au besoin le TClientDataSet fournira ce cache si tu Query n'en fourni pas !

Mais vu les prototype de gestionnaire fourni, à mon avis, c'est qu'il ne sont pas lié à leur event

[juju1988]

cela ne change pas ... euh, décidément tu n'as pas de bol !

Est-ce que q_select est modifiable ?
le résultat d'un SQL est parfois en lecture seule et refuse le Edit !

Est-ce que DBGrid1CellClick est bien lié à DBGrid1 OnCellClick ?
ou
DBGrid_selectDblClick lié à DBGrid_selec.OnCellClick ?

Attention au nommage !
DBGrid_selectDblClick c'est plutôt OnDblClick
DBGrid_selectCellClick c'est plutôt OnCellClick
Tu vas t'y perdre !

Il n'y a pas de Sender pour OnCellClick !

Voici mes deux procédures sur le dbgrid_select....

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
//
// Procédure permettant de dessiner case à cocher dans les colonnes d'un DBGrid
//
procedure TFS42.DBGrid_SelectDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  with Sender as TDBGrid do
  begin
    // On ne prend en compte que la colonne REGROUPER
    if sameText(Column.FieldName, 'REGROUPER') then
    begin
      { On efface la cellule }
      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,
          Column.Field.AsInteger // 0 = non coché, 1 coché
 
        );
    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
      DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
  end;
end;
 
 
// Gestion de la case à cocher : Au double clic on coche ou on décoche la case
//
procedure TFS42.DBGrid_selectDblClick(Sender: TObject; Column : TColumn);
begin
(*  if Dbgrid_select.Fields[2].AsInteger = 0 then
    showmessage('toto');   *)
if Column.FieldName='REGROUPER' then
  begin
    Column.Field.DataSet.Edit;
    Column.Field.AsInteger := Integer(not LongBool(Column.Field.AsInteger));
    Column.Field.DataSet.Post;
  end;
end;

Correct ou non ?

[Pascal Jankowski]

Par défaut, les TQuery ne sont pas modifiables...

Par défaut l'ensemble de résultats d'un TQuery est modifiable sous la condition que les données ne proviennent que d'une seule et unique table.

[juju1988]

Aïe là ça provient de deux tables donc c'est foutu...

[SergioMaster]

je viens de penser à un truc, l'ensemble de données est un TQuery ?
Par défaut, les TQuery ne sont pas modifiables, auquel il faut mettre en place la plomberie pour rendre les mises à jour possibles.

Il suffit juste de mettre en CacheUpdates (enfin dans mon cas en utilisant les ZEOSDBO , j'ai rajouté un UpdateSQL) pas de quoi fouetter un chat
si les champs ont été définis dans le datasource , bien vérifier que le champ ne soit pas en Readonly (par défaut c'est le cas).

j'avais également ôter , les options dgEditing de la dbgrid

as-tu la possibilité d'utiliser des composants tiers ? la smdbgrid (gratuite) te permettrait de faire cela en très peu de temps

[juju1988]

Non je n'ai rien d'autre. Et je suis prise par le temps il faut que je résolve le problème aujourd'hui ça fait déjà une journée que je suis dessus je vais me faire taper sur les doigts pour les délais

Je vais écrire un X dans ma colonne tant pis ça ira plus vite. Merci à tous pour votre aide

[SergioMaster]

par TQuery , on entends bien la même chose , a savoir le TQuery du BDE ?

[juju1988]

Oui c'est ça

[SergioMaster]

bon , alors j'ai fait un test avec le BDE et donc TQuery en rajoutant un TUpdateSQL cela fonctionne nickel pour la même demo que ce que j'ai illustré .

je ne reviens pas sur le fait que BDE est Obsolète

je vais faire un essai avec 2 tables liées après ce post (le temps que je trouve dans ma BDD quelque chose qui correspondrait)

[edit]
fait , ma query comprend 2 tables liées et pourtant ça fonctionne