Frage zu UniCode-ListView

[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;