[Stalker2-42]

Спасибо. SortItems проигнорировал. А про UpdateParam вообще не додумался бы.
Я ваш должник.

Еще вопрос, все про ту же сортировку(ОНА РАБОТАЕТ), В частности про направление сортировки столбцов:

Код:

procedure SortItems(hList : HWND; Column : Integer);
var
  hHeader : HWND;
  Item    : THDITEM;
  I       : Integer;
  St	  : String;
begin
 .....
  for I := 0 to LV_Count(hList) - 1 do
  begin
    if I <> Column then
      bm := 0
    else
    begin
      if isSorted then
        bm := bmArUp
      else
        bm := bmArDn;
    end;
    DrawColumnImage(hHeader, I, bm);
  end;
end;

bmArUp и bmArDn ??????
Уж простите дурака . Хотелось бы до конца доделать, а то сортировка по какому столбцу и в каком направление, непонятно.