![]() |
|< 1 2 >| | ![]() |
16 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
$gui{'QualitaetEntry'} = $gui{'QualitatFrame'}->NumEntry(
-minvalue => 0,
-maxvalue => 100,
-readonly => 1,
-textvariable => \$thumbnailQuality,
-width => 3,
);
$gui{'QualitaetEntry'}->configure(
-browsecmd => sub{
$self->__setScale(
-scale => $gui{'QualitaetSkala'},
-quality => $thumbnailQuality,
);
},
);
$gui{'QualitaetSkala'} = $gui{'QualitatFrame'}->Scale(
-from => 0,
-to &nb
sp; => 100,
-variable &nb
sp; => $thumbnailQuality,
-sliderlength => 6,
-orient => 'horizontal',
-length  
; => 100,
-showvalue => 0,
-bg => 'yellow',
-activebackground => 'blue',
-border => 0,
);
$gui{'QualitaetSkala'}->configure(
-command => sub{ $thumbnailQuality = $gui{'QualitaetSkala'}->get(); },
);
![]() |
|< 1 2 >| | ![]() |
16 Einträge, 2 Seiten |