Discussion :

[Siguillaume]

Bonjour à tous!
Voici deux problèmes devant lesquels je tourne en rond depuis un certain temps.
1- Je veux que sur l'évènement double-clique d'un string, la couleur de fond de la ligne en question puisse changer.
J'ai vu sur la faq, mais là c'est une coloration automatique des lignes.
Il me semble, que tout se fait autour du Canvas. Mais comment?

2- Je voudrais aussi savoir s'il est possible de cacher une colonne, le rendre invisible.

Merci à tous!

[JP.NUAGE]

C'est dans un TStringGrid. Correct ?

Je te prépare un petit exemple que j'ai sous la main et je reviens.

[JP.NUAGE]

Me voila de retour

Comment ai-je fait ? J'ai mis mon StringGrid dans un panel en ajoutant un colonne (la 9 dans l'exemple) et en m'arrangeant pour que cette 9ème colonne soit en dehors du panel donc invisible (il y a peut être mieux, mais je n'ai pas eu le temps de "pofiner")

Dans mon StringGrid1DrawCell j'ai le code suivant : la cellule de la colonne 7 doit devenir rouge.

Code :

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

1
2
3
4
5
6
7
if (StringGrid1.Cells[9,ARow] = '-1') and
       (ACol = 7)  then
       begin
          StringGrid1.Canvas.Brush.Color := clRed;
          StringGrid1.Canvas.FillRect(Rect);
          StringGrid1.Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,StringGrid1    .Cells[ACol, ARow])
      end;

En normal StringGrid1.Cells[9,ARow] est à ' '. Mais on pourrait mettre toute autre valeur.

Dans l'évènement StringGrid1DblClick j'ai ceci

Code :

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

1
2
3
4
5
procedure TMonApli.StringGrid1DblClick(Sender: TObject);
begin
   with StringGrid1 do
      StringGrid1.Cells[9,Row] := '-1';
end;

et miracle de la technique, quand je clique, le cellule 7 de ma ligne vire au rouge.


Alors pour toute une ligne, une petite boucle sur le nombre de colonnes ou alors (mais je n'ai pas testé) en supprimant la condition (ACol = 7)

Pour rendre une colonne invisible, mets Font et Brush à la même valeur

Code :

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

1
2
3
4
5
6
7
if (ACol = 5) and (ARow >0) then   // ARow >0  pour garder le titre
       begin
          StringGrid1.Canvas.Brush.Color := clWhite;
          StringGrid1.Canvas.Font.Color := clWhite;
          StringGrid1.Canvas.FillRect(Rect);
          StringGrid1.Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,StringGrid1    .Cells[ACol, ARow])
      end;

J'espère qu'avec ceci tu devrais t'en sortir.

Bon courage

Tiens j'y pense, ma 9ème colonne aurait pu être une colonne invisible en mettant uniquement la condition Acol = 9. Que t'en semble?

[Siguillaume]

Merci pour tout ce temps que tu t'es consacré pour moi.

Je pense que pour la coloration des couleurs, ça peut aller. Je vais m'y mettre et revenir pour donner la confirmation

Mais, en ce qui concerne la mise en visible de la colonne, je ne comprends pas encore bien ce que tu as fait. Surtout ta dernière phrase:

ma 9ème colonne aurait pu être une colonne invisible en mettant uniquement la condition Acol = 9.

Merci.

[banban54]

bonjour

Pour masquer une colonne, le plus simple est de définir sa largeur à '-1'

Code :

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

1
2
 
  StringGrid1.ColWidths[1] := -1;

voir pour plus de détails sur 'ColWidths'.

à+

[Siguillaume]

Pour masquer une colonne, le plus simple est de définir sa largeur à '-1'

Code :

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

1
2
 
  StringGrid1.ColWidths[1] := -1;

Merci Banban. ça marche superbien!

Je vais maintenant tester le code avec le changement de couleur avant de déclarer la discussion

[JP.NUAGE]

Envoyé par banban54
Le plus simple est de mettre la largeur à -1:

Et bien merci aussi, je n'y aurais même pas pensé.

Ceci dit, ma solution peut être utilisée pour mettre un barre verticale un peu large (par exemple pour bien séparer deux parties d'un StringGrid).

[Siguillaume]

Ceci dit, ma solution peut être utilisée pour mettre un barre verticale un peu large (par exemple pour bien séparer deux parties d'un StringGrid).

Mais moi, je ne vois toujours pas de quoi il s'agit
Ce serait pas mal aussi que tu reviennes sur l'explication

[Siguillaume]

OK. ça y est.
Concernant la gestion des lignes, JPNuage, tout est maintenant ok pour moi.
J'ai exploité ton code avec de légères modifications et ça marche merveilleusement bien.
Merci pour tout!

Je crois que je peux maintenant marquer en attendant tes complements de commentaires sur:

Ceci dit, ma solution peut être utilisée pour mettre un barre verticale un peu large (par exemple pour bien séparer deux parties d'un StringGrid).

Merci pour tout!