I would also resize the inner window in proportion to the outer window, otherwise, if someone resizes the outer window, you see the inner windows border (assuming you don't want that).
Joe Frazier, Jr. Senior Support Engineer Peopleclick Service Support Tel: +1-800-841-2365 E-Mail: [EMAIL PROTECTED] > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On > Behalf Of [EMAIL PROTECTED] > Sent: Thursday, June 17, 2004 2:28 PM > To: perl-win32-gui-users@lists.sourceforge.net > Cc: Jez White > Subject: [perl-win32-gui-users] Re: Window / Dialogbox scrollbars > > > > > > Thanks Jez....... I appreciate your pointers Although I > didn't make a child within the child what I did was make the > main window control the child. This seems to work perfectly. > I included the final test script just in case anyone else > was wondering how this all works. It's not the > cleanest.....but it does work..... > > > > use Win32::GUI; > use strict; > use warnings; > > my $operation = "" ; > my $position = "" ; > > our $child_top = 0; > our $child_bottom = 0; > our $operation = " "; > our $position = " "; > > &create_main(); > &create_child(); > > our $mainwin->Show(); > our $child->Show(); > Win32::GUI::Dialog; > > #------------------------------------------------------------ > sub create_main() { > $mainwin = new Win32::GUI::Window( > -name => "Main", > -text => " OPER = $operation | POS = > $position", > -top => 20, > -left => 20, > -width => 225, > -height => 250, > -minheight => 235, > -minwidth => 215, > -maxheight => 300, > -maxwidth => 250, > -vscroll => 1, > ); > } > #------------------------------------------------------------ > sub create_child() { > our $top = 10; > $child = new Win32::GUI::Window ( > -name => "Child", > -parent => $mainwin, > -height => 200, > -width => 200, > -top => $child_top, > -left => 0, > -popstyle => WS_CAPTION | WS_SIZEBOX, > -pushstyle => WS_CHILD, > -pushexstyle => WS_EX_CLIENTEDGE, > ); > > for my $x ( 1..25 ) { > $top = ($x*20) ; > $child->AddCheckbox(-name =>"test $x", > -top =>$top, > -left =>25, > -height =>22, > -tabstop=>1, > -text =>"test $x",); > $child->Height($top+30); > } > $child_bottom = $top+30; > my ($width, $height) = ($mainwin->GetClientRect)[2..3]; > $mainwin->ScrollRange(1,0,$child_bottom-$height); > } > #------------------------------------------------------------ > sub Main_Scroll() { > my ($scrollbar, $operation, $position) = @_; > my ($width, $height) = ($mainwin->GetClientRect)[2..3]; > $mainwin->ScrollRange(1,0,$child_bottom-$height); > if( ( $operation == 0 ) and ( $child_top <= 0 ) ) > { # SB_LINEUP > > $mainwin->ScrollPos($scrollbar,$mainwin->ScrollPos($scrollbar) - 1 ); > } > elsif( ( $operation == 1 ) and ( $child_top > $height - > $child_bottom ) ) > { # SB_LINEDOWN > > $mainwin->ScrollPos($scrollbar,$mainwin->ScrollPos($scrollbar) + 1 ); > } > elsif( ( $operation == 2 ) and ( $child_top <= 0 ) ) > { # SB_PAGEUP > > $mainwin->ScrollPos($scrollbar,$mainwin->ScrollPos($scrollbar) - 3 ); > } > elsif( ( $operation == 3 ) and ( $child_top > $height - > $child_bottom ) ) > { # SB_PAGEDOWN > > $mainwin->ScrollPos($scrollbar,$mainwin->ScrollPos($scrollbar) + 3 ); > } > elsif( ( $operation == 5 ) and ( ( $child_top <= 0 ) or ( > $child_top > > $height - $child_bottom ) ) ) { # SB_THUMBTRACK > $mainwin->ScrollPos($scrollbar,$position); > } > > ($width, $height) = ($mainwin->GetClientRect)[2..3]; > $mainwin->Change(-text=>" OPER = $operation | POS = $position"); > > if ( ( $operation == 0 ) and ( $child_top <= 0 ) ) > { $child_top = $child_top + 1; > } elsif ( ( $operation == 1 ) and ( $child_top > $height - > $child_bottom > ) ) { $child_top = $child_top - 1; > } elsif ( ( $operation == 2 ) and ( $child_top <= 0 ) ) { > $child_top = $child_top + 3; > } elsif ( ( $operation == 3 ) and ( $child_top > $height - > $child_bottom > ) ) { $child_top = $child_top - 3; > } elsif ( $operation == 5 ) { our $child_top = -$position; > } > $child->Change(-top=>$child_top); > } > #------------------------------------------------------------ > > sub Main_Terminate { -1 ; } > > > > > > > > > > > > > > > > > Hi, > > I can confirm that scrollbars work, and work well. > > Your almost there - it took me a while to understand how it > all works:) > > In windows, scroll bars are really nothing more than dressing > and you are responsible for updating and changing the client > area as scrolling takes place. There are a couple of > approaches that can be taken depending on what needs to be > done. In your case, you would have to move all the items up > or down, depending on the scroll bar positions. An > alternative approach would be to create a child window of the > child window. This child would contains all the controls. You > then simply move the window up and down as the scroll bars are moved. > > Hopefully this made some sense! > > Cheers, > > jez. > > ----- Original Message ----- > From: <[EMAIL PROTECTED]> > To: <perl-win32-gui-users@lists.sourceforge.net> > Sent: Wednesday, June 16, 2004 9:20 PM > Subject: [perl-win32-gui-users] Window / Dialogbox scrollbars > > > > > > > > > > > > In the latest WIN32::GUI ver0.0.671 it indicates that the > scrollbars > > have been implemented for > > Windows and Dialogbox's. I cannot seem to figure out how > to get the > > client area of the window > > to scroll. I have some example code below. Could someone please > > explain to me how I can get this to work. My pea-brain > just doesn't > > seem to grasp what I need to do. > > Thanks in advance for any guidance........................ > > > > > > use Win32::GUI; > > use strict; > > > > my $operation; > > my $position; > > > > our $mainwin = new Win32::GUI::Window( > > -name => "Main", > > -text => "Main", > > -top => 20, > > -left => 20, > > -width => 250, > > -height => 250, > > -minheight => 235, > > -minwidth => 215, ); > > > > our $child = new Win32::GUI::Window ( > > -name => "Child", > > -parent => $mainwin, > > -height => 200, > > -width => 200, > > -top => 5, > > -left => 5, > > -popstyle => WS_CAPTION | WS_SIZEBOX, > > -pushstyle => WS_CHILD, > > -pushexstyle => WS_EX_CLIENTEDGE, > > -vscroll => 1, ); > > > > $child->AddLabel( -name =>"OPER", > > -top =>8, > > -left =>25, > > -text =>"OPER = ",); > > > > $child->AddLabel( -name =>"POS", > > -top =>8, > > -left =>100, > > -text =>"POS = ",); > > > > $child->AddLabel( -name =>"SB_OPER", > > -top =>8, > > -left =>75, > > -text =>" $operation ",); > > > > $child->AddLabel( -name =>"SB_POS", > > -top =>8, > > -left =>140, > > -text =>" $position ",); > > > > for my $x ( 1..10 ) { > > my $top = ($x*25) ; > > $child->AddCheckbox(-name =>"test $x", > > -top =>$top, > > -left =>25, > > -height =>22, > > -tabstop =>1, > > -text =>"test $x",); > > } > > > > $mainwin->Show(); > > $child->Show(); > > Win32::GUI::Dialog; > > > > sub Child_Scroll() { > > my ($scrollbar, $operation, $position) = @_; > > if($operation == 0 ) { # SB_LINEUP > > > $child->ScrollPos($scrollbar,$child->ScrollPos($scrollbar) - 1 ); > > } > > elsif($operation == 1 ) { # SB_LINEDOWN > > > $child->ScrollPos($scrollbar,$child->ScrollPos($scrollbar) + 1 ); > > } > > elsif($operation == 2 ) { # SB_PAGEUP > > > $child->ScrollPos($scrollbar,$child->ScrollPos($scrollbar) - 3 ); > > } > > elsif($operation == 3 ) { # SB_PAGEDOWN > > > $child->ScrollPos($scrollbar,$child->ScrollPos($scrollbar) + 3 ); > > } > > elsif($operation == 5 ) { # SB_THUMBTRACK > > $child->ScrollPos($scrollbar,$position); > > } > > > > my ($width, $height) = ($child->GetClientRect)[2..3]; > > > > if ( $operation != 8 ) { > > $child->SB_OPER->Text($operation); > > $child->SB_POS->Text($position); > > # print "SCROLLBAR = $scrollbar | OPERATION = > $operation | POSITION = > > $position \n"; > > } > > } > > > > sub Main_Terminate { -1 ; } > > > > > > > > > > ------------------------------------------------------- > > This SF.Net email is sponsored by The 2004 JavaOne(SM) Conference > > Learn from the experts at JavaOne(SM), Sun's Worldwide Java > Developer > > Conference, June 28 - July 1 at the Moscone Center in San > Francisco, > > CA REGISTER AND SAVE! http://java.sun.com/javaone/sf Priority Code > > NWMGYKND _______________________________________________ > > Perl-Win32-GUI-Users mailing list > > Perl-Win32-GUI-Users@lists.sourceforge.net > > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > > > > > > > ------------------------------------------------------- > This SF.Net email is sponsored by The 2004 JavaOne(SM) > Conference Learn from the experts at JavaOne(SM), Sun's > Worldwide Java Developer Conference, June 28 - July 1 at the > Moscone Center in San Francisco, CA REGISTER AND SAVE! > http://java.sun.com/javaone/sf Priority Code NWMGYKND > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Perl-Win32-GUI-Users@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > > >
