Discussion :

[PhilLU]

Bonsoir,
Je souhaite barrer le texte de toutes les cellules d'une ligne par click droit sur la ligne choisie.
Cela fonctionne bien sauf que la cellule pointée ne se barre pas (les autres, pas de problème) !?!
Voici mon code:

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
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  i, j: integer;
begin
 if Button = mbRight then
 begin
      j:=StringGrid1.Selection.Top;
      If MessageDlg('Disable row '+IntToStr(j),
      mtConfirmation, [mbYes, mbNo], 0, mbYes) =mrYes then
          begin
          With Stringgrid1 As TStringGrid Do
          With Canvas Do
              begin
              for i := 0 to 2 do
                  begin
                  Rect := CellRect  (i, StringGrid1.Selection.Top);
                  Font.Style := Font.Style + [fsStrikeOut];
                  FillRect(Rect);
                  DrawText(Canvas.Handle, PChar(Cells[i,j]), -1, Rect ,DT_CENTER );
                  end;
              end;
          end;
 end;
end;

De plus je dois en premier lieu faire un click gauche avant de faire un click droit; comment éviter cela?
Merci pour vos conseils!!!

[tourlourou]

Au MouseDown du clic droit, la cellule ne doit pas encore être sélectionnée, expliquant ton besoin du clic gauche préalable, comme palliatif.
Tu dessines le texte barré, mais au 1° rafraichissement, il perdra cet attribut car le dessin n'est pas géré dans le DrawCell...

[PhilLU]

Au MouseDown du clic droit, la cellule ne doit pas encore être sélectionnée, expliquant ton besoin du clic gauche préalable, comme palliatif.
Tu dessines le texte barré, mais au 1° rafraichissement, il perdra cet attribut car le dessin n'est pas géré dans le DrawCell...

Merci pour ta réponse rapide!
Tu as une suggestion???

Bonne soirée
et merci pour tes idées!!!

[tourlourou]

Tout dépend de ce que tu souhaites : désactiver une seule ligne au maximum, ou plusieurs éventuellement ?
Dans tous les cas, il faut que tu gères le dessin dans le OnDrawCell pour barrer le texte de la ou des lignes sélectionnées.
Et pour ceci, il faut trouver un moyen de stocker l'info que telle ou telle ligne est à barrer.

[PhilLU]

Tout dépend de ce que tu souhaites : désactiver une seule ligne au maximum, ou plusieurs éventuellement ?
Dans tous les cas, il faut que tu gères le dessin dans le OnDrawCell pour barrer le texte de la ou des lignes sélectionnées.
Et pour ceci, il faut trouver un moyen de stocker l'info que telle ou telle ligne est à barrer.

Pour stocker, je peux ajouter une colonne masquée qui mémorise l'état barré de la ligne...

[tourlourou]

C'est un moyen ; reste donc à détecter la ligne à barrer autrement qu'en détectant si elle est sélectionnée (MouseToCell ?), ou en la sélectionnant préalablement au MouseDown.