RE: [perl-win32-gui] Dialog Phase plus other stuff

[Andy Cragg]

Scott Wrote :

<< Simply unzip into a directory and run setup.pl.  It should run as is.

Hmm.  I'm obviously missing something - anyone know where to get
Win32API-File?  Not from ActiveState or Jenda it seems.

Also, while I'm here :

Can anyone provide a nice (completish) bit of code to provide a
WinExplorer-style listbox where things can be selected and moved around, or
even just listed.  The newer version of Win32 put addresses in my listbox
where once was text:

$MainWindow->AddListView(
    -name          => "ListView",
    -left          => $LeftPosition[1],
    -top           => $TopPosition[3],
    -width         => $WidthOfListView,
    -height        => $HeightOfListView,
  # -imagelist     => $IL,
    -style         => WS_CHILD | WS_VISIBLE | 1,
    -fullrowselect => 1,
    -gridlines     => 1,
    -checkboxes    => 1,
    -hottrack      => 1,
);


$MainWindow->ListView->InsertColumn (-index=>
1, -subitem=>1, -width=>$WidthOfListView/5, -text=>"In Out");
$MainWindow->ListView->InsertColumn (-index=>
2, -subitem=>1, -width=>$WidthOfListView/5, -text=>"Amount");
$MainWindow->ListView->InsertColumn (-index=>
3, -subitem=>1, -width=>$WidthOfListView/5, -text=>"Date");
$MainWindow->ListView->InsertColumn (-index=>
4, -subitem=>1, -width=>$WidthOfListView/5, -text=>"Desc");
$MainWindow->ListView->InsertColumn (-index=>
5, -subitem=>1, -width=>$WidthOfListView/5, -text=>"Tick");

...

$MainWindow->ListView->InsertItem(-text => [ $InOut, $Amount, $Date, $Desc,
$Tick ] );
etc.

Sorry for the wodges of stuff, but I really would like some generic listview
code :)

Thanks fantastically,

Andy Cragg