Frage zu UniCode-ListView

[neolithos]

Delphi-Quellcode:

var sTmp : WideString;
...
sTmp := 'test';
lvc.pszText := PWideChar(sTmp);
lvc.cchTextMax := Length(sTmp);
ListView_InsertColumnW(hLvw, 0, lvc);

Warum wird nur das erste Zeichen 't' im Listenkopf dargestellt?

[neolithos]

Aha,

gar nicht mein Fehler sondern einer in der CommCtrl

Delphi-Quellcode:

function ListView_InsertColumnW(hwnd: HWND; iCol: Integer; const pcol: TLVColumnW): Integer;
begin
  Result := SendMessage(hWnd, LVM_INSERTCOLUMN, iCol, Longint(@pcol));
end;

sollte eigentlich

Delphi-Quellcode:

function ListView_InsertColumnW(hwnd: HWND; iCol: Integer; const pcol: TLVColumnW): Integer;
begin
  Result := SendMessage(hWnd, LVM_INSERTCOLUMNW, iCol, Longint(@pcol));
end;