![]() |
TStringGrid. Zeilenumbruch. Langer Text, wie #13#10 einfügen
Servus,
ich möchte gerne das wenn der Text die Länge von Zelle 3 überschreitet ein Zeilenumbruch eingefügt wird. Jetzt habe ich mal geschaut wie ich einen Zeilenumbruch hinbekomme, das ist kein Problem. Nur der Text macht mir ein wenig gedanken, weil ich nicht weis wie ich es umsetzen kann. So sieht es zur zeit in der Draw Methode aus
Delphi-Quellcode:
Aber jetzt mache ich ja nur einen Zeilenumbruch, was ist aber wenn die zweite Zeile auch zu lang ist dann brauche ich noch einen umbruch.
if ACol = 3 then
begin if length(CellText) > sgMonitor.ColWidths[3] then begin Insert(#13#10,CellText,sgMonitor.ColWidths[3]-1); RowHeights[ARow] := DefaultRowHeight * 2; end; DrawText(canvas.Handle, PChar(CellText), Length(CellText), Rect, DT_left+DT_Vcenter); end else Canvas.TextOut(rect.left,rect.top+1,cells[acol,arow]) Hatte mit das irgend wie so gedacht. Zitat:
Habt ihr vielleicht ne Idee... Mfg |
Re: TStringGrid. Zeilenumbruch. Langer Text, wie #13#10 einf
Hallo,
wie wäre es damit? Zitat:
|
Re: TStringGrid. Zeilenumbruch. Langer Text, wie #13#10 einf
Hallo,
ja, berechnen der Gesamt-Ausgabehöhe mit DT_CALCRECT. Bei Textausgaben mit Zeilenumbrüchen ist die Konstante DT_WORDBREAK sehr hilfreich. |
Re: TStringGrid. Zeilenumbruch. Langer Text, wie #13#10 einf
ok habe es hinbekommen, war ja doch recht einfach.... thx
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:22 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz