Multiligne stringgrid [Résolu]

Signaler
Messages postés
26
Date d'inscription
vendredi 7 avril 2006
Statut
Membre
Dernière intervention
1 juin 2008
-
Messages postés
26
Date d'inscription
vendredi 7 avril 2006
Statut
Membre
Dernière intervention
1 juin 2008
-
binjour
je veux écrire en multiligne dans la cellule d'un Stringgrid .A l'aide
j'ai vu des reponses en utilisant drawcell mais j'ai pas su comment faire .merci

1 réponse

Messages postés
26
Date d'inscription
vendredi 7 avril 2006
Statut
Membre
Dernière intervention
1 juin 2008

voila j'ai trouvé, on ajoute cette procedure (evenement du stringgrid)

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With Sender As TStringGrid Do With Canvas Do
Begin
{ 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;