Discussion :

[poly128]

J'ai un ptit probleme avec un stringgrid. J'ai des colones fixe et des lignes fixe. Mais, je veut que l'utilisateur puisse éditer ces lignes aussi. Comment je fait ca? J'ai cherché partout mais ya personne qui en parle. Peut etre parceque c'est trop évidant

[Fabrice ROUXEL 1]

Elles ne sont pas éditable.
Tu peux mettre à 0 les propriétés fixedcols et fixedrows.
Dans l'évenement OnDrawCell tu peints la 1ere ligne et la 1ere colonne
pour simuler l'aspect visuel des élements fixes.


Exemple de code :
Places à 0 les properties FixedRows & FixedCols de la StringGrid dans l'inspecteur d'objet.
Ajoutes l'unité Extctrls dans les uses ( pour la routine Frame3D)

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 (ACol = 0) or (aRow =0) then
   begin
     with StringGrid1 do
     begin
       Frame3D(Canvas,Rect, clWhite , clBlack,1);
       Canvas.Brush.Color := clBtnFace;
       Canvas.FillRect(Rect);
     end;
   end;
end;

[Fabrice ROUXEL 1]

Petite amélioration :

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
procedure TForm1.Button1Click(Sender: TObject);
var I, J: Integer;
begin
  for J := 0 to StringGrid1.ColCount -1 do
   for I := 0 to StringGrid1.RowCount -1 do
     if (I = 0) or (J=0) then
       StringGrid1.Cells[J, I] := Format('Item [%d][%d]', [J, I]);
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   if (ACol = 0) or (aRow =0) then
   begin
     with StringGrid1 do
     begin
       if (gdSelected in State) or (gdFocused in State) then
         Frame3D(Canvas,Rect, clBlack, clWhite, 1)
       else
         Frame3D(Canvas,Rect, clWhite , clBlack,1);
 
       Canvas.Brush.Color := StringGrid1.FixedColor;
       Canvas.FillRect(Rect);
 
       if (gdSelected in State) then
         Canvas.TextRect(Rect, Rect.Left +1, Rect.Top +1, Cells[ACol, ARow])
       else
        Canvas.TextRect(Rect, Rect.Left +2, Rect.Top +2,Cells[ACol, ARow]);
     end;
   end;
end;

[poly128]

Ok merci, ca marche parfaitement.

[Fabrice ROUXEL 1]

Si tu as besoins de fonctionnalités plus avancées, n'hésites pas.

@+