Re: TStringGrid-Zelle intern trennen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin Stringgrid1.Cells[2,2]:='abc'+#10#13+'def'; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var S: String; drawrect :trect; begin S:= (Sender As TStringgrid).Cells[ ACol, ARow ]; If Length(S) > 0 Then Begin drawrect := rect; DrawText((Sender As TStringgrid).canvas.handle, Pchar(S), Length(S), drawrect, dt_calcrect or dt_wordbreak or dt_left ); If (drawrect.bottom - drawrect.top) > (Sender As TStringgrid).RowHeights[Arow] Then (Sender As TStringgrid).RowHeights[Arow] := (drawrect.bottom - drawrect.top) Else Begin drawrect.Right := rect.right; (Sender As TStringgrid).canvas.fillrect( drawrect ); DrawText((Sender As TStringgrid).canvas.handle, Pchar(S), Length(S), drawrect, dt_wordbreak or dt_left); End; End; end; |
Re: TStringGrid-Zelle intern trennen.
Danke Leute, ihr seid echt Klasse!
P.S:Sorry für die verspätete Antwort, das Internet ging bei mir nicht. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:34 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz