Discussion :

[chaours]

Bonjour à tous,

Je cherche à ajouter un composant TCheckBox au début de chaque ligne d'un TStringGrid. J'ai fait 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
 
procedure chkOnClick(Sender : TObject);
begin
  ShowMessage('Test');
end;
 
procedure createCheckBox(Sender : TObject);
  for i := 1 to StringGrid.Rowcount-1 do begin
    chk := TCheckBox.Create(StringGrid);
    chk.Parent := StringGrid;
    chk.Top := StringGrid.CellRect(0,i).Top + 2;
    chk.Width := StringGrid.ColWidths[0];
    chk.Caption := IntToStr(i);
    chk.OnClick := chkOnClick;
  end;

Avec ceci, les checkbox se crééent sans problème mais sont inutilisables. Si j'en clic un, il ne se coche pas...

Avez-vous une idée ? Est-ce qu'il faut utiliser l'évènement "OnDrawCell" du StringGrid pour redessiner le checkbox coché ?

Merci pour votre aide...

[Rayek]

Tu as un exemple dans la avec un DbGrid, il ne sera pas difficile de l'adapter

http://delphi.developpez.com/faq/?pa...eacocherdbgrid

[chaours]

Oui j'ai vu cet exemple mais je ne suis pas parvenu à l'adapter et cela me semblait compliqué...
On ne peut pas faire plus simple ?
Qu'est-ce qui empêche le redessin du CheckBox quand on clic dessus ?

[ShaiLeTroll]

Oui j'ai vu cet exemple mais je ne suis pas ?

il suffit de mettre cela dans le OnDrawCell d'un TStringGrid, au lieu de DataCol et Column (en plus du curseur du DataSet), tu as Row et Col pour lire le contenu de Cells et enfin Rect qui fourni les dimensions du rectangle sur lequel faire un canvas ... en fin pour dessiner une checkbox, il suffit d'en poser une sur la fenêtre, de la cacher (la mettre sous la grille par exemple) et de faire un PaintTo

Désolé, j'ai un vieux code pour une DGGrid mais cela s'adapte ...

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
procedure TFrmZoomRgp.GrilleActesDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
   X, Y: Integer;
begin
     if Assigned(Column.Field) then begin
        if Column.FieldName = 'LSCA_FAC' then begin
           TDBGrid(Sender).Canvas.FillRect(Rect);
           CkbFacturableDraw.Checked := LongBool(Column.Field.AsInteger);
           X := Rect.Left + ((Rect.Right - Rect.Left - CkbFacturableDraw.Width) div 2);
           Y := Rect.Top + ((Rect.Bottom - Rect.Top - CkbFacturableDraw.Height) div 2);
           CkbFacturableDraw.PaintTo(TDBGrid(Sender).Canvas, X, Y);
        end;
     end;
end;

[anapurna]

salut

pourquoi s'amuser a creer un composant alors que windows peut le dessiner pour nous

Code :

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

1
2
3
4
if CHECKED then
    DrawFrameControl(StringGrid.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_CHECKED)
  else
    DrawFrameControl(StringGrid.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK)

@+ Phil

[ShaiLeTroll]

Merci Anapurna, c'est bon à savoir, je n'ai jamais eu le courage de le chercher, ...

[chaours]

Merci pour vos réponses...

Pour "ShaiLeTroll", j'ai réussi à adapter le code mais quand je clic pour cocher ou décocher ça ne fait rien...

Pour "Anapurna", le code est extrêment simple, par contre comment fais-tu pour pouvoir cocher ou pas le CheckBox ? Chez moi, ils sont toujours cochés...

Y'a quelque chose qui m'échappe mais je ne sais pas où...

Une idée ?

[ShaiLeTroll]

Il faut évidemment, gérer le clic dans la cellule en modifiant la valeur manuellement (via Cells pour StringGrid, via DataSet pour DBGrid), ce n'est pas une checkbox qui est ajouté mais juste son image ... c'est une illusion ...

idem pour l'affichage, il faut lire la valeur pour savoir si c'est coché ou non !

tu pédales dans le fromage, Chaource ...