CheckBox dans un StringGrid

Bonjour à tous,

Je cherche à ajouter un composant TCheckBox au début de chaque ligne d'un TStringGrid. J'ai fait comme ceci :

Code:

---

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

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

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

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 ?

Citation:

---

Envoyé par chaours

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:

---

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;

---

salut

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

Code:

---

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

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

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 ?

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 ... :mouarf:



:dehors: