TStringGrid : écrire plusieurs lignes dans une cellule

Question

Salus, 


     j'utilise souvent dans mes application Delphi le composant TStringGrid amis le problème


    c'est que j'arrive pas à ecrire plusieurs lignes dans une céllule.  


 


 


    et si vous permettez, veuiller m'aider à le réaliser,


      


  C'est Momad  M.Hedjam0103@yahoo.fr


   Merci.

cptpingu · Answer

Quelle est la question ?

Inutile de laisser une adresse mail, personne ne t'enverra de code prémaché. Si tu as un probleme, décrit le précisement, et tu recevras de l'aide.

sp40 · Answer

Bonjour,

Essaie en coupant ta chaine avec #13#10...

Simon

cs_rt15 · Answer

Salut,

Le #13#10 ne fonctionne pas ?

???? := 'première ligne' + #10#13 + 'deuxième ligne'

jelume · Answer

Bjr, 

Pour tous ceux comme moi qui ne savent jamais dans ordre mettre les 2 caractères #10 et #13, utilisez plutôt sLineBreak ....

Mettre un saut de ligne pourra éventellement couper le texte mais ne va pas pour autant augmenter la hauteur de ligne. Je pense qu'l faudra passer par OnDrawCell.

J-L

f0xi · Answer

procedure SGAdd(Grid : TStringGrid; const ACol, ARow : integer; const S : string);
begin
  if ACol > Grid.ColCount-1 then
     Grid.ColCount := ACol+1;
  if ARow > Grid.RowCount-1 then
     Grid.RowCount := ARow+1;
  Grid.Cells[ACol, ARow] := S;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SGAdd(StringGrid1, 1, 2, 'Test 1,2');
  SGAdd(StringGrid1, 6, 8, 'Test 8,6');
  SGAdd(StringGrid1, 8, 2, 'Test 8,2');
end;

jelume · Answer

rebonjour

euh ... comment ça va l'aider à mettre plusieurs lignes dans une meme cellule ? 

J-L

cs_rt15 · Answer

jelum -> mais de qui parles tu ?

En plus j'ai oublié de raffraichir avant de poster et donc n'ai pas vu la réponse de simonpelloquin 13 min plutôt... pas réveillé le lundi

f0xi · Answer

AAAH! au temps pour moi, je croyais qu'il n'arrivait pas a ecrirer dans le TStringGrid ;)

Bah tu peu pas, TStringGrid ne permet pas nativement d'avoir des cellules multi-lignes...

sp40 · Answer

Re bonjour,

C'est pour ça (entre autres) que j'utilise l'excellent composant
TStringAlignGrid du non moins excellent M. Hoerstemeier, qui est une
grille beaucoup plus souple... Et avec cette grille (gratuite au
passage), pas de problème pour les renvois à la ligne 

Simon

philippefhotmail · Answer

On peut s'en sortir, grace au redessinement de la cellule dans l'évenement DrawCell en utilisant la fonction Canvas.TextRect

Exemple

procedure TFormPlanification.StringGridPlanningDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  s : string;
begin

  if ( ACol > 0  ) and  ( ARow > 0 ) then
  begin
    StringGridPlanning.Canvas.FillRect(rect);
    s :=StringGridPlanning.Cells[ACol,Arow];
    StringGridPlanning.Canvas.TextRect(rect,s);
  end;

end;

TStringGrid : écrire plusieurs lignes dans une cellule

10 réponses

Votre réponse

Discussions similaires