Discussion :

[gazier20]

Bonjour,

je travaille sur une AdvStringGrid (StringGrid en mieux) où chaque cellule contient une image différente.

Je voudrais que lorsque l'on clique sur un bouton, cela mets les bords d'une cellule en couleur. Attention, l'image de la cellule doit toujours être visible mais avec des bords de couleur.

J'ai essayé avec ondrawcell, les bords d'une cellule sont bien d'une couleur mais l'image de la cellule n'est plus présente.(peut être une histoire de premier plan, je ne sais pas)

Merci beaucoup. J'attends vos solutions avec impatience

[TicTacToe]

tu a peut être utilisé une fonction graphique qui colorie le bord ETl'interieur de ta cellule

OU

tu n'appelles pas la fonction native de dessin de la cellule avant d'avoir dessiné ton bord style 'DefaultDrawColumnCell(...)'

[gazier20]

Très bonne remarque pour l'histoire du DefaultDraw. Cela me permet de lancer cet evenement quand je le désire.

Mais j'ai encore un problème c'est que je lance cette evenement pour dessiner les bords d'une cellule cela dessine à la place de mon image contenue dans la cellule et pas par dessus.

Voici ma procedure:

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
29
30
31
sgMain:TStringrid;
 
 
 
procedure TFrmMain.sgMainDrawCell(Sender: TObject; ACol, ARow: integer;Rect: TRect; State: TGridDrawState);
var
  format:integer;
begin
  sgMain.Canvas.fillRect(Rect);
  format:=0;
  case (ARow) of
    0..3:
      begin
        format:=DT_CENTER;
        sgMain.canvas.font.color:=clBlue;
        sgMain.canvas.font.Style:=[fsBold];
        if (ACol=0) then begin
          sgMain.canvas.Brush.Color:=clYellow;
          sgMain.Canvas.Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.bottom);
        end;
      end;
    4:
      begin
        FORMAT:=DT_LEFT;
        sgMain.canvas.Font.color:=clRed;
        sgMain.canvas.font.Style:=[fsBold,fsItalic];
 
      end;
  end;
  DrawText(sgMain.canvas.Handle,PChar(sgMain.Cells[ACol,ARow]),-1,Rect,format);
end;

J'attends votre solution avec impatience, merci

[Modération]Merci d'utiliser les balises [code], NoisetteProd[/Modération]

[TicTacToe]

1. Enleve le FillRect

2. Enleve le Rectanble

3. remplace le DrawText par le DefaultDraw...

ca fait pas ce que tu veux ?

Visiblement, tu ne fait que changer le style de fonte et modifier le fond de tes cellule,

Donc modifie tes propriétés du canvas et canvas.font avant l'appel du DefaultDraw...

[gazier20]

J'ai enlevé ce que vous avez dit mais maintenant cela ne me mets plus rien.

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
procedure TFrmMain.sgMainDrawCell(Sender: TObject; ACol, ARow: integer;Rect: TRect; State: TGridDrawState);
var
format:integer;
begin
 
format:=0;
case (ARow) of
0..3:
begin
format:=DT_CENTER;
sgMain.canvas.font.color:=clBlue;
sgMain.canvas.font.Style:=[fsBold];
if (ACol=0) then begin
sgMain.canvas.Brush.Color:=clYellow;
 
end;
end;
4:
begin
FORMAT:=DT_LEFT;
sgMain.canvas.Font.color:=clRed;
sgMain.canvas.font.Style:=[fsBold,fsItalic];
 
end;
end;
 
 
end;

Je voudrais juste avoir des cellules avec un bord de couleur mais je n'arrive qu'a avoir soit un rectangle de couleur soit rien!!

Si vous avez une solution... Je pense qu'on y arrive

Encore merci beaucoup

[Modération]Merci d'utiliser les balises [code], NoisetteProd[/Modération]

[gazier20]

Désolé, par la suite, j'utiliserais les balises de commentaires

[TicTacToe]

et le DefaultDraw il est ou ? il faut le mettre à la fin, pour qu'il dessine ton texte, avec les attributs définis au dessus

[LadyWasky]

Et avec :

Code :

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

sgMain.Canvas.FrameRect(Rect);

(Rectangle vide=Cadre=Frame in English)

à la place de :

Code :

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

sgMain.Canvas.Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.bottom);

(Rectangle rempli)

: : : : : :

[petitcoucou31]

salut ,

Je crois que que comme dit WasKol FrameRect devrai aussi marcher . autrement voila une solution qui marche ..

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
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
     with StringGrid1.Canvas do
     begin
        if (Acol=1) and (Arow=1) then
        begin
        //1er rectangle de fond plein
        brush.style:=BsSolid;
        brush.Color:=clred;
        rectangle(Rect.left,Rect.Top,rect.Right,rect.Bottom);
 
        //1er rectangle vide plein
        Pen.Color:=cllime;
        brush.style:=BsClear; //<= evite de remplir ton rectangle
        rectangle(Rect.left,Rect.Top,rect.Right,rect.Bottom);
        end;
     end;
end;

bye

[gazier20]

Merci beaucoup pour toutes ces réponses. La solution de petitcoucou31 est très interressante et répond à ma question.

Mais avec ça rajoute une question:

Au départ, l'evenement ondrawcell colorie tous les fonds de ma grille comme je l'ai programmé. Ensuite je voudrais que lorsque l'on clique sur une case cela mets les bords de la case en couleur.

Je pensais rediriger l'evenement ondrawcell vers une procedure du type:

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
procedure TForm1.StringGrid1DrawCellBis(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 
 with StringGrid1.Canvas do
     begin
        if (Acol=1) and (Arow=1) then
        begin
 
        //1er rectangle vide plein
        Pen.Color:=cllime;
        brush.style:=BsClear; //<= evite de remplir ton rectangle
        rectangle(Rect.left,Rect.Top,rect.Right,rect.Bottom);
        end;
     end;
end;

Le truc c'est que je ne sais pas du tout quoi mettre pour state et rect ??

Avez vous une idée pour remplir cette procedure?

Merci beaucoup pour tout ce que vouz avez deja fais !!



[Modération]Merci d'utiliser les balises [code], NoisetteProd[/Modération]

[gazier20]

euh c'est surtout pour l'appel de procedure que je ne sais pas quoi mettre comme parametre

[Graffito]

Bonjour,

Quand tu cliques tu as le focus et tu recupoères l'info dans le paramètre "State" du ondrawcell. A partir de là, tu peux faire une bordure spéciale.

[gazier20]

Mon problème c'est comment reexecuter l'evenement ondrawcell, une fois qu'il a deja ete executé??? (sans utiliser repaint)


Merci