Select Code to Download

sub HDI_FORMAT   {0x4}
sub HDF_SORTDOWN {0x400} 
...

$hditem_ptr = pack('P44', $hditem);
$hwnd = $myListView->GetHeader();

Win32::GUI::SendMessage($hwnd, HDM_SETITEM, $columnClicked, $hditem_pt
+r);
Win32::GUI::SendMessage($hwnd, HDM_SETITEM, $columnClicked, unpack('L!
+', $hditem_ptr));
...
$sendMessage->Call($hwnd, HDM_SETITEM, $columnClicked, unpack('L!', $h
+ditem_ptr));

$listview->Show(1); # refresh

use Win32::GuiTest qw( :ALL );

...
SendMessage($hwnd, HDM_SETITEM, $columnClicked, $hditem_ptr->{ptr});
FreeVirtualBuffer($hditem_ptr);
ShowWindow($hwnd, 1); # refresh

sub HDM_FIRST    {0x1200}
sub HDM_GETITEM  {HDM_FIRST+11}   # !WRONG: HDM_FIRST not a function c
+all, result is 1211

sub HDM_GETITEM  {&HDM_FIRST+11}  # RIGHT: HDM_FIRST called, result is
+ 4619

sub HDI_WIDTH    {0x1}
sub HDI_FORMAT   {0x4}
...

}