Discussion :

[sadry]

La cellule selectionée d'un StringGridest est normalement bleue, j'ai réussi à enlever cette couleur et avoir un rectangle noir comme contour de la cellule selectionnée.
Seulement je voudrai pouvoir agir sur l'épaisseur de la ligne du rectange selectionné, pour avoir une ligne plus épaisse, je donne ici le code qui a permis d'enlever la couleur bleue et d'avoir un rectangle noir .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 
    if gdFocused in State   then
  begin
    stringgrid1.Canvas.DrawFocusRect(Rect);
    StringGrid1.Canvas.Font.Color :=ClWhite;
    StringGrid1.Canvas.Brush.Color := clBlack;
  end ;
 
end;

[OutOfRange]

fastoche!
J'ai fait ça dans une appli. Je te livre le code brut de décoffrage
ma stringgrid s'appelle visu

Code :

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

1
2
3
4
5
6
7
        visu.Canvas.Pen.Width:=2;
        visu.Canvas.pen.color:=clred;visu.Canvas.polyline
      ([point(visu.CellRect(acol,arow).Left,visu.CellRect(acol,arow).top),
        point(visu.CellRect(acol,arow).right-1,visu.CellRect(acol,arow).top),
        point(visu.CellRect(acol,arow).right-1,visu.CellRect(acol,arow).Bottom-1),
        point(visu.CellRect(acol,arow).Left,visu.CellRect(acol,arow).Bottom-1),
        point(visu.CellRect(acol,arow).Left,visu.CellRect(acol,arow).top)])

A la lecture de ton code, je pense que je pouvais faire + simple, en évitant les cellrect(acol,arow)...
A toi de jouer

[edam]

fastoche!
J'ai fait ça dans une appli. Je te livre le code brut de décoffrage
ma stringgrid s'appelle visu

Code :

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

1
2
3
4
5
6
7
        visu.Canvas.Pen.Width:=2;
        visu.Canvas.pen.color:=clred;visu.Canvas.polyline
      ([point(visu.CellRect(acol,arow).Left,visu.CellRect(acol,arow).top),
        point(visu.CellRect(acol,arow).right-1,visu.CellRect(acol,arow).top),
        point(visu.CellRect(acol,arow).right-1,visu.CellRect(acol,arow).Bottom-1),
        point(visu.CellRect(acol,arow).Left,visu.CellRect(acol,arow).Bottom-1),
        point(visu.CellRect(acol,arow).Left,visu.CellRect(acol,arow).top)])

A la lecture de ton code, je pense que je pouvais faire + simple, en évitant les cellrect(acol,arow)...
A toi de jouer

qu'est ce que se charabia il y a plus simple

Code :

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

1
2
 
      grid1.Canvas.Rectangle(rect.Left+1,rect.Top,rect.Right,rect.Bottom    );

bien sur dans ondrawcell avec defaultdrawin a false
voila un petit example

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.Grid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var  c:TColor;
begin
      if arow=0 then exit;
      grid1.Canvas.Pen.Style:=psSolid ;
      grid1.Canvas.Pen.Width:=1; // amodifier selon vos besoin mais tu doit aussi faire des modification dans textoupour que le text ne soit pas ecrasé par les ligne  :lol: 
      if gdSelected in state then c:=$FF0000
      else
         if (arow and 1)>0 then c:=$F0F0F0
         else c:=$CFFFFF;
      grid1.Canvas.Brush.Color:=c;
      grid1.Canvas.Pen.Color:=$F0F0F0;
      grid1.Canvas.Rectangle(rect.Left+1,rect.Top,rect.Right,rect.Bottom    );
      grid1.Canvas.TextOut (rect.Left+2 ,rect.Top+2 ,grid1.Cells[acol,arow]);
end;

[OutOfRange]

qu'est ce que se charabia il y a plus simple

Code :

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

1
2
 
      grid1.Canvas.Rectangle(rect.Left+1,rect.Top,rect.Right,rect.Bottom    );

bien sur dans ondrawcell avec defaultdrawin a false

OK c'est + simple, sauf que la méthode rectangle rempli une zone pleine du canvas...
Or, sadry voudrait

Seulement je voudrai pouvoir agir sur l'épaisseur de la ligne du rectange selectionné, pour avoir une ligne plus épaisse,

donc tracer un cadre = méthode polyline

Faut pas foncer tête baissée comme ça

[edam]

alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
     Tac:array[0..3] of integer absolute rect;
begin
      grid1.Canvas.Pen.Width:=2;
      grid1.Canvas.Polyline([rect.TopLeft,
                             point(rect.Right,rect.Top),
                             rect.BottomRight,
                             point(rect.Left,rect.Bottom)]);
//ou
     grid1.Canvas.Polyline([rect.TopLeft,
                             point(tac[2],tac[1]),
                             rect.BottomRight,
                             point(tac[0],tac[3])]);
end;

bien sur pour rectangle en peut modifier la couleur de fond
ah autre chose pour defaultdrawin on peut la laissé a true car pint de stringgrid s'occupe trés bien de dessin des entets

NB: j'ai utlisé par erreur Polygon au lieu de regtangle est j'ai trouvé que le dessin des cellul avec leur contour est plus mieu mais seulement avec pen.widh<2
bon dev