Textzeilen umbrechen

[marabu]

Guten Morgen Michael,

vielleicht doch besser so:

Delphi-Quellcode:

var
  n                 : Integer;
  i                 : Integer;
  s                 : string;
  size              : PSize;
  cntChars          : Integer;
  alpDx             : PInteger;
begin
  // ...
  n := Min(Length(TEXT), cntChars);
  GetMem(alpDX, n * SizeOf(Integer));
  GetMem(size, n * SizeOf(TSIZE));

  GetTextExtentExPoint(dc, PChar(TEXT), length(TEXT), -(PageW * 10) - 100, @cntChars, alpDx, size);
  // ...

Grüße vom marabu