emkka
Messages postés26Date d'inscriptionvendredi 7 avril 2006StatutMembreDernière intervention 1 juin 2008
-
12 mai 2006 à 19:26
emkka
Messages postés26Date d'inscriptionvendredi 7 avril 2006StatutMembreDernière intervention 1 juin 2008
-
12 mai 2006 à 22:30
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
emkka
Messages postés26Date d'inscriptionvendredi 7 avril 2006StatutMembreDernière intervention 1 juin 2008 12 mai 2006 à 22:30
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;