Thread: [perl-win32-gui-users] Scrollbars

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

I have been having some trouble getting my scroll bars to work well. I
have been modifying an example I found on Rob May's weblog
(http://blog.robmay.me.uk/search/label/perl-win32-gui).

Sample code is included below. The problems I am having are:

1) The ScrollRange() call does not seem to be doing anything - I can
scroll well beyond the range specified.

2) SB_PAGE(UP|DOWN) events are not working at all

I am rather new to Win32::GUI and would appreciate any help.

Thanks

__CODE__
#!/usr/bin/perl
use strict; use warnings;

use Win32::GUI 1.05 qw(
    SB_VERT SB_LINEUP SB_LINEDOWN SB_PAGEUP SB_PAGEDOWN
    SB_THUMBTRACK SB_THUMBPOSITION
);

my $window = Win32::GUI::DialogBox->new(
    -name => "scroll_test",
    -text => "Scroll Test",
    -size => [400, 400],
    -vscroll => 1,
    -onScroll => \&process_scroll,
);

my $v_pos = 5;
for ( 0..100 ) {
    $window->AddLabel(
        -name => "label-$_",
        -text => "Label " . ($_ + 1),
        -pos => [5, $v_pos],
        -size => [100, 30],
    );

    $v_pos += 35;
}

$window->ScrollRange(SB_VERT, 0, 35 * 100);

$window->Show();
Win32::GUI::Dialog();

sub process_scroll {
    my ( $self, $bar, $op, $pos ) = @_;

    my $prev_pos = $self->ScrollPos($bar);
    my $new_pos  = $prev_pos;

    my $use_rel = 0;
    my $rel_move = 0;

    if ( $op == SB_LINEUP ) {    # or SB_LINELEFT
        $new_pos -= 35;
        $rel_move -= 35;
        $use_rel = 1;
    } elsif ( $op == SB_LINEDOWN ) {    # or SB_LINERIGHT
        $new_pos += 35;
        $rel_move += 35;
        $use_rel = 1;
    } elsif ( $op == SB_PAGEUP ) {      # or SB_PAGELEFT
        $new_pos -= $self->ScrollPage($bar);
    } elsif ( $op == SB_PAGEDOWN ) {    # or SB_PAGERIGHT
        $new_pos += $self->ScrollPage($bar);
    } elsif ( $op == SB_THUMBTRACK ) {
        $new_pos = $pos;
    } elsif ( $op == SB_THUMBPOSITION ) {
        $new_pos = $pos;
    }

    $self->ScrollPos( $bar, $new_pos );

    if ( $bar == SB_VERT ) {
        for my $key ( %$self ) {
            next unless ref($self->{$key}) eq "Win32::GUI::Label";
            $self->{$key}->Top( -$new_pos );        # doesn't work

            my $cur = $self->{$key}->Top();
            #$self->{$key}->Top($cur - $rel_move);  # works better, but only
                                                    # for SB_LINE(UP|DOWN)
        }
    }

    1;
}