[perl-win32-gui-users] AddSlider Sample

[Steven Lloyd]

For what it is worth, here is an example of horizontal and vertical sliders. 
Feel free to add this to the samples if you would like.

Note:
Min, Max, and Pos do not seem to work when sent as attributes on slider 
creation but work if set afterward. Any ideas why?

Steve Lloyd
http://www.basgetti.com


------ Code Below
use strict;
use Win32::GUI;
my $MainWindow = new Win32::GUI::Window (
   -name        => "MainWindow",
   -text        => "Win32::GUI Test Window",
   -height      => 300,
   -width       => 400,
   -left        => 100,
   -top         => 100,
   -toolwindow  => 1,
   -topmost => 1,
   -sizable  => 0,
   -resizable  => 0,
    );
#Vertical Slider
$MainWindow->AddSlider(
    -text    => "VSlider",
    -name    => "VSlider",
    -top     => 15,
    -left    => 325,
    -vertical=> 1,
    -height=>225,
    -width=>40,
    -alignleft=>0,
    );
$MainWindow->{VSlider}->Min(0);
$MainWindow->{VSlider}->Max(20);
#Horizontal Slider
$MainWindow->AddSlider(
    -text    => "HSlider",
    -name    => "HSlider",
    -top     => 240,
    -left    => 15,
    -height=>25,
    -width=>300,
    );
$MainWindow->{HSlider}->Min(0);
$MainWindow->{HSlider}->Max(20);
$MainWindow->Show();
Win32::GUI::Dialog();
exit;

----- End Code