Stringgrid: Éditer les lignes et les colones fixes.

Version imprimable

11/04/2007, 01h32
poly128

Stringgrid: Éditer les lignes et les colones fixes.

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 :roll:

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:

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;

Petite amélioration :

Code:

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;

12/04/2007, 02h29
poly128

Ok merci, ca marche parfaitement.
12/04/2007, 03h05
Fabrice ROUXEL 1

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

@+