Discussion :

[breizh44]

Bonjour,

J'essaie d'intégrer ce code trouvé dans la FAQ dans mon programme :

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
procedure TForm1.StringGrid1drawcell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  With Sender As TStringGrid Do With Canvas Do
  Begin  Ca bloque là !!
    { Sélection de la couleur de fond }
    If gdFixed in State Then
      Brush.Color := clBtnFace
    Else If gdSelected In State Then
            Brush.Color := clNavy
          Else Brush.Color := clWhite;

    { Dessin du fond }
    FillRect(Rect);

    { Sélection de la couleur de texte }
    If gdSelected In State Then
      SetTextColor(Canvas.Handle,clWhite)
    Else SetTextColor(Canvas.Handle,clBlack);

    { Dessin du texte en utilisant la fonction API }
    DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect ,
              DT_CENTER or DT_NOPREFIX or DT_WORDBREAK );
  End;
end;

Le message est le suivant : 'Identificateur redécaré'. D'ou vient le problème?

[tourlourou]

le fait-ce toujours avec

Code :

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

With TStringGrid(Sender).Canvas Do

?
au cas où il hésiterait entre Form1.Canvas et Sender.Canvas...

[Paul TOTH]

un copier/coller de ton code dans un projet vierge avec juste un TStringGrid ne pose aucun pb (Delphi 6)

ce qui ne me surprend pas trop vu que l'erreur n'est pas liée à du code mais à une déclaration !

Code :

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

1
2
3
4
5
6
7
8
 
var
   test : integer;
   test : string; // bing !
 
procedure test; // re-bing !
begin
end;