Discussion :

[DURVILLE]

Bonjour - Je n'ai pas trouvé comment résoudre un message d'erreur lorsque je suis sur une fenêtre avec un StringGrid :
- si je veux me déplacer vers le bas dans la fenêtre à l'aide de la molette de la souris j'ai le message "indice de grille hors limite"
- à l'aide des boutons "ascenseur" je n'ai pas ce problème et je peux faire défiler.

Où est le problème ? - MERCI -

[ShaiLeTroll]

la Molette change l'item sélectionné, il me semble ? voir OnSelectCell
Le Scroll via "ascenseur", ne doit le changer !

As-tu un gestionnaire d'évènement associé à OnMouseWheel... ?
Fais-tu un accès au Rows, Cols ou Cells ? as-tu limite à RowCount-1 et ColCount-1 dans toutes tes boucles ?

[DURVILLE]

Mon problème venait de l'introduction de ce code mal placé :

Code :

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

1
2
3
4
5
6
7
8
 
Var Selec  : TGridRect;
...
  Selec.Top := 0;
  Selec.Bottom := 0;
  Selec.Left := StringGrid1.ColCount;
  Selec.Right := Selec.Left;
  StringGrid1.Selection := Selec;

Ce code sert en fait à masquer la sélection bleue gênante.

Du reste y-a-t-il un moyen d'éclaircir cette couleur qui masque mon texte (noir) si la cellule est sélectionnée....

Ce qu'il y avait de curieux c'est que le bug n'intervenait qu'AVEC la MOLETTE souris (sans utilisation de onmouse ....)alors que le clic sur les ascenseurs (Haut et bas) fonctionnait!

[ShaiLeTroll]

Normalement, la couleur du texte change, passe au blanc lors de la sélection d'une cellule
as-tu fait ton propre OnDraw ?

Ensuite, il y a des Options dans la TStringGrid, essaye d'ajouter goDrawFocusSelected et de retirer goRangeSelect
pour masquer la sélection, je crois que je mettais à -1 (ça passait, surement mieux que ColCount comme limite )

[DURVILLE]

Ensuite, il y a des Options dans la TStringGrid, essaye d'ajouter goDrawFocusSelected et de retirer goRangeSelect
pour masquer la sélection

Merci de t'occuper de mon cas !

Je suis en Delphi 6.
Dans propriétés de St-Grid je n'ai rien de spécial et surtout je ne comprends pas comment "ajouter" une option ...
Suis-je ignare ...!

[ShaiLeTroll]

Oui ! Tu l'es !

Code :

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

StringGrid1.Options := StringGrid1.Options + [goDrawFocusSelected] - [goRangeSelect];

Tu peux aussi le faire via l'inspecteur d'objet !

Exclude\Include pour les ensembles

[DURVILLE]

Effectivement je n'avais pas vu la kyrielle d'options (non expliquées -documentées - dans l'aide F1 de l'inspecteur) de l'inspecteur d'objet.

J'ai fait les transformations proposées (false/true) pas vu de changement. Zarbi.

Je note résolu car je n'ai plus le message d'erreur (indice).

Mais résolu "à moitié" car le pavé bleu foncé persistant demeure.
En fait c'est juste une question de visibilité (écriture noire sur fond bleu foncé de la cellule sélectionnée) ... apparemment il y a d'autres ignares puisque je n'ai pas trouvé la réponse sur le moteur de recherche au nom bien connu !

[mick605]

Salut

Pour masquer la sélection bleue, il te suffit de modifier l'évenement OnDrawCell :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  StringGrid1.Canvas.Font.Color:=clBlack;
  if (ACol>=StringGrid1.FixedCols) and (ARow>=StringGrid1.FixedRows) then
    StringGrid1.Canvas.Brush.Color:=clWhite;
  StringGrid1.Canvas.TextRect(Rect,0,0,StringGrid1.cells[ACol,ARow]);
end;

Bonne chance