Discussion :

[dav999]

Bonsoir,

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

Code :

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

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 :

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

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

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)

[Invité]

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 :

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

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

[dav999]

Super ca fonctionne impec

Merci