Discussion :

[free07]

Bonjour,

Je souhaite gérer une CheckBox dans une colonne de ma DBGRid, pour cela j'utilise DrawFrameControl mais malheureusement il affiche parfois 'vrai' ou faux' lorsque l'on clic sur la CheckBox.

J'ai mis dgEditing à True dans les options de ma DBGRid, DefaultDrawing à True et j'utilise l'évènement OnDrawColumnCell comme ceci :

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
 
procedure TMaFrame.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
 
const
      IsChecked : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
 var
      DrawState: Integer;
 
begin
    if (Column.Field.FieldName = 'MaColonne') then
    begin
      DrawState := ISChecked[Column.Field.AsBoolean];
      TCRDBGrid(Sender).Canvas.FillRect(Rect);
      DrawFrameControl(TCRDBGrid(Sender).Canvas.Handle, Rect, DFC_BUTTON, DrawState);
    end;
end;

J'ai fait beaucoup d'essais infructueux, je n'arrive pas à trouver comment éviter l'affichage de ce texte 'vrai ou faux' ?

EDIT : j'ai supprimé la variable DrawRect erreur de copié collé

[pprem]

Un peu sous forme de devinette je dirais que si la case est associée à un élément de base de données, le texte provient du texte fourni par le record. Peut-être devrais-tu tenter de bidouiller le GetText au niveau de ton dataset.

[free07]

Un peu sous forme de devinette je dirais que si la case est associée à un élément de base de données, le texte provient du texte fourni par le record. Peut-être devrais-tu tenter de bidouiller le GetText au niveau de ton dataset.

Merci pprem pour ta réponse, le dataset associé est en fait un TVirtualTable ( c'est un composant de Devart ), devrais je regarder du côté de AfterEdit ou OnUpdateRecord ?

[solilog]

Bonjour à tous,

Il y a très longtemps (D6) j'avais fait qq'chose qui ressemblait à çà:
https://www.greelane.com/fr/science-...bgrid-4077440/
et çà marchait très bien.

solilog

[pprem]

çà marchait très bien.

avant ou après la traduction en français du texte avec les codes sources ?

[solilog]

Oups, pardon, erreur sur le lien, c'est vrai je deviens vieux et j'ai répondu un peu vite (quoique le principe est correct).
En fait c'est là.
https://stackoverflow.com/questions/...-dbgrid-themed

solilog