Listwie с колонками по винаповски

[bulldog5293]

Листвиев сздаю так

ListView1 := CreateWindowEx(
WS_EX_CLIENTEDGE,
WC_LISTVIEW,nil,WS_CHILD or WS_VISIBLE or LVS_REPORT or LVS_SINGLESEL or
LVS_EDITLABELS or WS_BORDER, 32, 72, 395, 150,Handle1, 0, NAC, nil);
SendMessage(ListView1,WM_SETFONT, hFont1, 0);
ListView_SetExtendedListViewStyle(ListView1,LVS_EX_ONECLICKACTIVATE
or LVS_EX_GRIDLINES);

Но прикрутить к нему items и subitems не получается, в сети нашёл такие подходы

ListView_InsertColumn_('text1',0,100);
ListView_InsertColumn_('text2',1,100);
ListView_InsertColumn_('text3',2,100);
ListView_InsertColumn_('text4',3,100);

и

lvColumn.mask = LVCF_FMT or LVCF_WIDTH or LVCF_TEXT or LVCF_SUBITEM;
lvColumn.fmt = LVCFMT_LEFT;
lvColumn.cx = 125;

Но не один из них не выходит