Thread: Re: [perl-win32-gui-hackers] Odd problem with 671

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

Today has been one of those days - if it can go wrong, it has!

Anyway, I've retested - and there is a problem - although I'm having 
difficult in getting a small enough example working (I'll try again in the 
morning). However, I came across another issue with PPM 671 and 671 built 
with ming. The issue is with the -flicker option.

I'm on XP, with 5.6.1 (I'll do testing on win98 boxes tomorrow).

The example below (created by Steve a couple of months back) runs fine on 
ming 671, but with the PPM version the background of the window isn't 
painted, causing a mess in the window.

Very strange.

Cheers,

jez.

=======================

use Win32::GUI;
use Win32::API;
use warnings;
use strict;

# Our MAIN window on the desktop.
my $mainwindow = new Win32::GUI::Window(
	-name => "mainwindow",
	-pos => [100, 100],
	-size => [200,200],
	-text => "Scrolling subwindow demo",
	-noflicker => 1,
	-onResize => \&mainresize
);

# Our window with horizontal scrollbar inside the main window
my $scrollwindow = new Win32::GUI::Window (
	-parent => $mainwindow,
	-name => "scrollwindow",
	-pos => [20,20],
	-size => [$mainwindow->ScaleWidth - 40,$mainwindow->ScaleHeight - 40],
	-popstyle => WS_CAPTION | WS_SIZEBOX,	# Remove caption and sizing handles
	-pushstyle => WS_CHILD,
	-hscroll => 1,
	-noflicker => 1,
	-onScroll => \&scrolled
);

# Our scrollable area inside the window with scrollbars
my $scrollarea = new Win32::GUI::Window (
	-parent => $scrollwindow,
	-name => "scrollarea",
	-pos => [0,0],
	-noflicker => 1,
	-size => [400,$scrollwindow->ScaleHeight],
	-popstyle => WS_CAPTION | WS_SIZEBOX,
	-pushstyle => WS_CHILD
);

# Define some scrolling parameters
$scrollwindow->ScrollRange(0,0,$scrollarea->ScaleWidth);
$scrollwindow->ScrollPage(0,$scrollwindow->ScaleWidth);

# Add some buttons:
for(0..4) {
	$scrollarea->AddButton(
		-name => "Button".$_,
		-pos => [$_ * 100,0],
		-size => [100,$scrollwindow->ScaleHeight],
		-text => "Button $_",
		-onClick => sub { print 'click';}
	);
}

$mainwindow->Show();
$scrollwindow->Show();
$scrollarea->Show();
Win32::GUI::Dialog;

sub scrolled {
	# scrolling handler.
	my($obj, $scrollbar, $operation, $position) = @_;

	# Move the scrollbar and set the left edge of the scrollarea at the same 
time:
	my $realpos = $scrollwindow->Scroll($scrollbar, $operation, $position);

	# If we're dragging the thumb we want a live update:
	if($operation == SB_THUMBTRACK) { $realpos = $position };
	$scrollarea->Left(0 - $realpos);
}

sub mainresize {
	$scrollwindow->Width($mainwindow->ScaleWidth - 40);
	$scrollwindow->Height($mainwindow->ScaleHeight - 40);

	$scrollarea->Height($scrollwindow->ScaleHeight);

	$scrollwindow->ScrollRange(0,0,$scrollarea->ScaleWidth);
	$scrollwindow->ScrollPage(0,$scrollwindow->ScaleWidth);
        $scrollarea->Left(0 - $scrollwindow->ScrollPos(0));
	for(0..4) {
		$scrollarea->{"Button$_"}->Height($scrollarea->ScaleHeight);
	}
}

_________________________________________________________________
Sign-up for a FREE BT Broadband connection today! 
http://www.msn.co.uk/specials/btbroadband