Stringgrid et plusieurs lignes dans une même cellule

Bonsoir,

je cherche à afficher dans une cellule plusieurs lignes en tapant ce code :

Code:

---

1 2	stringgrid1.Cells[1,1] := 'test' + chr(13) + 'Retest'; stringgrid1.Cells[1,2] := 'test' + #13 + 'Retest';

---

mais ça ne me renvoie pas à la ligne, j'ai un caractère bizarre à la place.

J'utilise une stringgrid et avec Lazarus 0.9.27 j'utilisais cette formule dans le ondrawcell :

Code:

---

1 2	TStringGrid(Sender).Canvas.TextStyle.SingleLine := false; TStringGrid(Sender).Canvas.TextStyle.Wordbreak := true;

---

Mais depuis le passage à la 0.9.29, j'ai une erreur

Citation:

---

unit1.pas(42,40) Error: Argument can't be assigned to

---

sur le textstyle.

Ai-je fait une erreur, pourtant l'autocomplétition du code fonctionne bien dans la procédure, ou la méthode a peut être changé ?

Merci
David

ps : Lazarus et fpc version svn du 11/11/10 (0.9.29)

Bonjour,

Comme c'est un problème de "not assigned", je propose d'assigner le style en 2 "temps". Ce code semble suffir -sans passer par OnDrawCell- sur une StringGrid paramétrée par défaut :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.BitBtn1Click(Sender: TObject); var aStyle: TTextStyle; begin //Modification du style de la StringGrid with StringGrid1 as TStringGrid do begin aStyle := DefaultTextStyle; aStyle.SingleLine := False; DefaultTextStyle := aStyle; end; //Remplissage de la StringGrid StringGrid1.Cells[1,1] := 'test' + #13 + 'Retest'; StringGrid1.Cells[1,2] := 'test' + #13#10 + 'Retest'; StringGrid1.Refresh; end;

---

Cordialement. Gilles
Testé sur Lazarus 0.9.29-27844-fpc-2.4.3-20101025-Win32

Super ca fonctionne impec

Merci