Comment mettre de la CR/LF dans un TStringgrid cellule?

Je veux avoir une ligne fixe, comme en-tête, mais les textes sont assez longs, donc je voudrais augmenter la hauteur de ligne et insérez CR/LF dans le texte de la cellule.

Googler montre cela comme une solution (et c'est la première chose que j'ai pensé de fo avant de googler), mais il baisse pas les voir au travail. Des idées?

Grid.Cells[2,3] := 'This is a sample test' + #13#10 + 'This is the second line';

Ce qui se passe, c'est que la cellule contient This is a sample testThis is the second line

(Delphi 7 si cela fait une différence)

[Prime] "Mon mauvais. J'ai reçu cette réponse il y a deux ans sans contrôle et sans constatons maintenant que la réponse n'a pas de travail. Aplogies à toute personne qui a été induit en erreur. C'est un FABOWAQ (les plus fréquemment posées, souvent à tort répondu à la question). GINYF".

Je présume que nous sommes à la recherche d'utiliser OnDrawCell, mais imaginez que nous aurions aussi à augmenter la hauteur de la chaîne de ligne de la grille qui contient la cellule.

Je vais le prix de la réponse de code et /ou un FOSS de composants VCL.

[Mise à jour] doit travailler avec Delphi XE2 Starter edition

RowHeights[#] de TStringGrid ne serait pas utile? edit: AFAICS dans les liens code de la réponse, RowHeights est utilisé pour la mesure.

OriginalL'auteur Mawg | 2010-12-11

  1. 20

    TStringGrid utilise Canvas.TextRect, qui utilise ExtTextOut, qui à son tour ne prend pas en charge le dessin de texte multiligne.

    Vous devez dessiner vous-même dans un OnDrawCell gestionnaire d'événements avec WinAPI est DrawText routine. Voir, par exemple, cette réponse sur la façon d'utiliser DrawText de texte multiligne, et cette récente réponse sur la façon de mettre en œuvre de dessin personnalisé dans OnDrawCell:

    type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
private
procedure FillWithRandomText(AGrid: TStringGrid);
procedure UpdateRowHeights(AGrid: TStringGrid);
end;
procedure TForm1.FillWithRandomText(AGrid: TStringGrid);
const
S = 'This is a sample'#13#10'text that contains'#13#10'multiple lines.';
var
X: Integer;
Y: Integer;
begin
for X := AGrid.FixedCols to AGrid.ColCount - 1 do
for Y := AGrid.FixedRows to AGrid.RowCount - 1 do
AGrid.Cells[X, Y] := Copy(S, 1, 8 + Random(Length(S) - 8));
UpdateRowHeights(AGrid);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FillWithRandomText(StringGrid1);
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with TStringGrid(Sender) do
if Pos(#13#10, Cells[ACol, ARow]) > 0 then
begin
Canvas.FillRect(Rect);
Inc(Rect.Left, 2);
Inc(Rect.Top, 2);
DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, Rect,
DT_NOPREFIX or DT_WORDBREAK);
end;
end;
procedure TForm1.UpdateRowHeights(AGrid: TStringGrid);
var
Y: Integer;
MaxHeight: Integer;
X: Integer;
R: TRect;
TxtHeight: Integer;
begin
for Y := AGrid.FixedRows to AGrid.RowCount - 1 do
begin
MaxHeight := AGrid.DefaultRowHeight - 4;
for X := AGrid.FixedCols to AGrid.ColCount - 1 do
begin
R := Rect(0, 0, AGrid.ColWidths[X] - 4, 0);
TxtHeight := DrawText(AGrid.Canvas.Handle, PChar(AGrid.Cells[X, Y]), -1,
R, DT_WORDBREAK or DT_CALCRECT);
if TxtHeight > MaxHeight then
MaxHeight := TxtHeight;
end;
AGrid.RowHeights[Y] := MaxHeight + 4;
end;
end;

    Comment mettre de la CR/LF dans un TStringgrid cellule?

    Il y a aussi d'autres StringGrid composants en mesure de dessin de texte multiligne. Par exemple, cette une qui je l'ai écrit moi-même (sources de téléchargement: NLDStringGrid + NLDSparseList) avec, éventuellement, ce résultat:

    Comment mettre de la CR/LF dans un TStringgrid cellule?

    var
R: TRect;
begin
NLDStringGrid1.Columns.Add;
NLDStringGrid1.Columns.Add;
NLDStringGrid1.Cells[1, 1] := 'Sample test'#13#10'Second line';
NLDStringGrid1.Columns[1].MultiLine := True;
NLDStringGrid1.AutoRowHeights := True;
SetRect(R, 2, 2, 3, 3);
NLDStringGrid1.MergeCells(TGridRect(R), True, True);
NLDStringGrid1.ColWidths[2] := 40;
NLDStringGrid1.Cells[2, 2] := 'Sample test'#13#10'Second line';
end;
    +1 @NGLN je D/L et l'essayer maintenant. Toutes les restrictions sur l'usage?
    Compilation échoue - ne peut pas trouver DesignEditors.dcu - probablement parce que je suis en utilisant XE2 Starter edition ?
    Peut-être, mais je ne sais pas. Avez-vous convertir le package du fichier XE2? Remarque le requires DesignIde ligne! Essayez d'exécution autrement.
    Le code ci-dessus (pas de paquet), fonctionne très bien - sauf ... si toutes les inscriptions en ligne sont vide, la ligne apparaît comme un pixel de haut. Peut être est ce la ligne par défaut hight? Essayez ceci - FillWithRandomText() déposer les boucles et les attribuer à une seule cellule (dire Cells[3,3]). Je pense que vous obtiendrez la prime sur celui-ci, mais il serait bien si vous pouviez tweak qui ligne vide de la chose.
    J'ai changé UpdateRowHeights() de MaxHeight := 0; à MaxHeight := AGrid.DefaultRowHeight; et les lignes vides maintenant, regardez raisonnable.

    OriginalL'auteur NGLN

  2. 5

    La TStringGrid du moteur de rendu par défaut ne prennent pas en charge plusieurs lignes. En définissant la TStringGrid dans OwnerDraw mode (en invoquant la OnDrawCell événement), vous pouvez vous rendre chaque cellule par votre propre convenance.

    Ont un coup d'oeil à cette pour un exemple qui a aidé un utilisateur précédent.

    Lié à un code de référence inséré:

    procedure DrawSGCell(Sender : TObject; C, R : integer; Rect : TRect;
Style : TFontStyles; Wrap : boolean; Just : TAlignment;
CanEdit : boolean);
{ draws formatted contents in string grid cell at col C, row R;
Style is a set of fsBold, fsItalic, fsUnderline and fsStrikeOut;
Wrap invokes word wrap for the cell's text; Just is taLeftJustify,
taRightJustify or taCenter; if CanEdit false, cell will be given 
the background color of fixed cells; call this routine from 
grid's DrawCell event }
var
S        : string;
DrawRect : TRect;
begin
with (Sender as tStringGrid), Canvas do begin
{ erase earlier contents from default drawing }
if (R >= FixedRows) and (C >= FixedCols) and CanEdit then
Brush.Color:= Color
else
Brush.Color:= FixedColor;
FillRect(Rect);
{ get cell contents }
S:= Cells[C, R];
if length(S) > 0 then begin
case Just of
taLeftJustify  : S:= ' ' + S;
taRightJustify : S:= S + ' ';
end;
{ set font style }
Font.Style:= Style;
{ copy of cell rectangle for text sizing }
DrawRect:= Rect;
if Wrap then begin
{ get size of text rectangle in DrawRect, with word wrap }
DrawText(Handle, PChar(S), length(S), DrawRect,
dt_calcrect or dt_wordbreak or dt_center);
if (DrawRect.Bottom - DrawRect.Top) > RowHeights[R] then begin
{ cell word-wraps; increase row height }
RowHeights[R]:= DrawRect.Bottom - DrawRect.Top;
SetGridHeight(Sender as tStringGrid);
end
else begin
{ cell doesn't word-wrap }
DrawRect.Right:= Rect.Right;
FillRect(DrawRect);
case Just of
taLeftJustify  : DrawText(Handle, PChar(S), length(S), DrawRect,
dt_wordbreak or dt_left);
taCenter       : DrawText(Handle, PChar(S), length(S), DrawRect,
dt_wordbreak or dt_center);
taRightJustify : DrawText(Handle, PChar(S), length(S), DrawRect,
dt_wordbreak or dt_right);
end;
end
end
else
{ no word wrap }
case Just of
taLeftJustify  : DrawText(Handle, PChar(S), length(S), DrawRect,
dt_singleline or dt_vcenter or dt_left);
taCenter       : DrawText(Handle, PChar(S), length(S), DrawRect,
dt_singleline or dt_vcenter or dt_center);
taRightJustify : DrawText(Handle, PChar(S), length(S), DrawRect,
dt_singleline or dt_vcenter or dt_right);
end;
{ restore no font styles }
Font.Style:= [];
end;
end;
end;

    Je pense que cela va bien fonctionner pour vous...

    Ce code définit RowHeights[] dans le DrawCell routine. Uglhh...
    c'est un exemple (en nombre de points) de la façon dont vous ne devriez pas écrire le code (sauf qu'il fait ce que NGLN souligné). Ma suggestion, ne pas l'utiliser...
    Le premier appel à DrawText (avec DT_CALCRECT drapeau) calcule le rectangle nécessaire de dessiner le texte, qui tient compte de plusieurs lignes.
    Oui, pour le calcul de l'rectangle de 3 lignes. En outre, si l'une des lignes dépasse le bord de droite, il sera enveloppé (en raison de la DT_WORDBREAK drapeau), de sorte que vous pouvez vous retrouver avec plus de lignes.
    Le code est à partir d'un forum en 2003. LU RD a collé le code ici, j'ai seulement lié à l'original post. Cependant, je ne suis pas un programmeur Delphi (j'utilise C++ Builder) et de la même bibliothèque VCL de Delphi, les utilisateurs utilisent. Il se pourrait que le composant TStringGrid a été changé depuis 2003 (pas la première fois qu'ils se déplacent autour de stuff). Ma conjecture est que SetGridHeight() a été appelé à la force la cellule à redessiner lui-même, donc de tomber dans cette routine à nouveau, mais cette fois la hauteur de la cellule, sera adapté à l'ensemble du texte et sera tiré. (suite dans le prochain commentaire)

    OriginalL'auteur Max Kielland