[nonVCL] Textlänge & GetWindowText, ExtTextOut Problem

[turboPASCAL]

Stimmt, ist eine Möglichkeit.

Ich habe es jetzt mal mit PChar und (Windows.)lstrlen() gemacht.

Delphi-Quellcode:

var szText: PChar;

//...
begin
  GetMem(szText, 255);
  GetWindowText(hwndItem, szText, 255);

  // Text auf DC ausgeben
  ExtTextOut(lpdis.hDC,
      (lpdis.rcItem.Right div 2) - (ts.cx div 2),
      (lpdis.rcItem.Top div 2) + (ts.cy div 2),
      ETO_CLIPPED, @lpdis.rcItem, szText, lstrlen(szText), nil);// <---<<< 
  //...
  FreeMem(szText, 255);

Klappt soweit.