Discussion :

[marsupilami34]

Bonjour,

J'ai un petit pb.
Je cherche à savoir comment on peut faire pour changer la couleur d'une cellule d'un TStringgrid lorsque l'on clique dessus et par la même occasion de savoir les coordonnées de la cellule à laquelle on se trouve (n°ligne et n°colonne).

Merci d'avance.

[qi130]

L'événement OnSelectCell te permet de récupérer les n° de ligne et de colonne de la cellule cliquée.

Pour la colorier , jete un oeil dans la FAQ ou les tutos pour t'inspirer du code coloriant 1 ligne sur 2 dans 1 grid.

[petitcoucou31]

si c'est les coordonnées en fonction de ton clic de souris sur une cellule , regarde la methode MouseToCell.

Et pour la colorier regarde l'evenement OndrawCell.

bye.

[marsupilami34]

Je 'ai jamais travaillé avec les stringgrid.
Serait-il possible d'avoir plus de détails sur OnDrawcell SVP

[petitcoucou31]

Un petit exemple de code qui passe en rouge la cellule sur la quelle tu clique .

Utilise juste un Tstringrid et un label pour les coordonnées de ta cellule

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
26
27
28
 
 
...
 
{$R *.dfm}
var CActiv:integer;
    LActiv:integer;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
    with StringGrid1.Canvas do
    begin
        if (Acol<>0) and (Arow<>0) then
        if (Acol=CActiv) and (Arow=LActiv) then
        begin
            brush.Color:=clred;
            fillrect(Rect);
        end;
    end;
end;
 
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    StringGrid1.MouseToCell(X,Y,CActiv,LActiv);
    label1.caption:=inttostr(CActiv)+','+inttostr(LActiv);
end;

bye et bon courage

[marsupilami34]

Merci.
Mais j'aurai une autre question.
Lorque je clique sur les cellules de la colonne 0 ca ne marche pas. Pourquoi ?

Et une autre chose. Quand je clique sur cette cellule, elle se rempli bien en rouge mais on voit pas plus le texte.
Comment faire pour que le texte reste visible.

Merci d'avance

[marsupilami34]

Un dernier point que j'ai oublié :

en fait j'aimerai savoir comment on peut récupérer le texte de ma cellule par un appui sur bouton.

Merci

[petitcoucou31]

Ceci dans l'evenement de ton bouton !

Code :

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

1
2
 
MonTexteArecuperer:=stringGrid1.cells[colonne,ligne];

Une petite remarque : Ces fonctions sont les fonctions de bases des TstringGrid, qui sont explicitent dans l'aide de delphi , jette tout de meme un coup d'oeil çà peut etre utile !

Bon courage

[marsupilami34]

Je suis vraiment désolé mais comment fait on pour laisser le texte en premier plan ?
parce que la c'est toute la cellule qui est rouge ?

[petitcoucou31]

je me doutais un peu que tu allai me le demander .

Quand tu passes par des OndrawCells ou autres evenements qui modifie l'aspect de ton composant , tu passes par son "Canvas" donc je te conseille vivement d'aller voir l'aide pour cela et toutes les propriétes du canvas !! .
Quand tu colorie ta cellule en rouge tu efface sont design par defaut , donc tu dois aussi reecrire le texte dans cette meme cellule apres la modif de la couleur de fond.

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
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
begin 
    with StringGrid1.Canvas do 
    begin 
        if (Acol<>0) and (Arow<>0) then 
        if (Acol=CActiv) and (Arow=LActiv) then 
        begin 
            brush.Color:=clred; 
            fillrect(Rect); 
        end; 
 
       Brush.style:=bsclear; // ici on determine que le fond du texte est transparent
          font.style:=[Fsbold,Fsitalic]; 
          font.Color:=Clwhite; 
          position:=(StringGrid1.colwidths[Acol]- textwidth(StringGrid1.cells[Acol,Arow])) div 2;
          textout(Rect.left+Position,Rect.top+2,StringGrid1.cells[Acol,Arow]);
 
    end; 
end

Dans l'exemple que je te montre , le texte a une couleur de fond transparente et le texte est centré dans la cellule ( position ).

bye.

[Joch1er]

Ton message a été posté il y 5 ans et il m'est utile maintenant, en 2010.
Merci.
Merci de laisser toutes ces discutions sur le site!