Thread Scrolled - Canvas mit Mausrad scrollen - nicht ? (18 answers)
Opened by Gast at 2007-09-07 14:23

pktm
 2007-09-10 21:04
#99285 #99285
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
ptk+2007-09-10 16:35:20--
Ich denke, dass entweder
Code: (dl )
$c->MouseWheelBind
oder
Code: (dl )
$c->Subwidget("scrolled")->MouseWheelBind
funktionieren sollte. Allerdings bin ich überrascht, dass der MouseWheel-Code nur bei X11 automatisch gesetzt wird. Sollte es unter Windows nicht auch automatisch passieren?


Hm... ja stimmt. Das kommt mir bekannt vor. Da war ich wohl etwas voreilig. Allerdings kann ich die Canvas grundsätzlich nicht zum Scrollen bringen, wohl hauptsächlich weil ich noch nie damit gearbeitet habe.

Folgender Code scrollt bei mir nicht (getestet):
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/Perl/bin/perl

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;

my $c = $mw->Scrolled(
        'Canvas',
        -width          => 400,
        -height         => 400,
        -relief         => 'sunken',
        -bg             => 'white',
        -borderwidth    => 1,
        -scrollbars     => 'se',
        -scrollregion   => [qw/0 0 1000 1000/]
)->pack();


$mw->MainLoop();


Und das auch nicht mit MouseWheelBind().

Hingegen wird dieses Widget gescrollt:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/Perl/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

my $scrtxt = $mw->Scrolled(
    'Text',
    -scrollbars => 'se',
)->pack(-fill => 'both');

$mw->MainLoop();


Eventuell hat es was mit der -scrollregion zu tun, ist aber nur eine Vermutung.
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread Scrolled - Canvas mit Mausrad scrollen - nicht ?