Multiligne stringgrid [Résolu]

emkka 26 Messages postés vendredi 7 avril 2006Date d'inscription 1 juin 2008 Dernière intervention - 12 mai 2006 à 19:26 - Dernière réponse : emkka 26 Messages postés vendredi 7 avril 2006Date d'inscription 1 juin 2008 Dernière intervention
- 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
Afficher la suite 

1 réponse

Répondre au sujet
emkka 26 Messages postés vendredi 7 avril 2006Date d'inscription 1 juin 2008 Dernière intervention - 12 mai 2006 à 22:30
+3
Utile
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;
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de emkka

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.