procedure TfrmMain.SetColumnImage(List: TdfsExtListView; Column: Integer; Image: Integer; ShowImage: Boolean);
var
  Align,hHeader: integer;
  HD: HD_ITEM;
begin
  hHeader := SendMessage(List.Handle, LVM_GETHEADER, 0, 0);
  with HD do
  begin
      case List.Columns[Column].Alignment of
        taLeftJustify: Align := HDF_LEFT;
        taCenter: Align := HDF_CENTER;
        taRightJustify: Align := HDF_RIGHT;
      else
        Align := HDF_LEFT;
      end;


  //hd.hbm := imgUp.Picture.Bitmap.Handle;

      mask := HDI_IMAGE or HDI_FORMAT;

      pszText := PChar(List.Columns[Column].Caption);

      if ShowImage then
        fmt := HDF_STRING or Align or HDF_IMAGE or HDF_BITMAP_ON_RIGHT
      else
        fmt := HDF_STRING or Align;

      iImage := Image;
  end;

  SendMessage(hHeader, HDM_SETITEM, Column, Integer(@HD));

end;