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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
package SpinBoxDelegate;
use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtCore4::isa qw( Qt::ItemDelegate );
# [0]
sub NEW {
shift->SUPER::NEW();
}
# [0]
# [1]
sub createEditor {
my ( $parent, $option, $index ) = @_;
my $editor = Qt::SpinBox($parent);
$editor->setMinimum(0);
$editor->setMaximum(100);
return $editor;
}
# [1]
# [2]
sub setEditorData {
my ($editor, $index) = @_;
my $value = $index->model()->data($index, Qt::EditRole())->toInt();
my $spinBox = $editor;
$spinBox->setValue($value);
}
# [2]
# [3]
sub setModelData {
my ($editor, $model, $index) = @_;
my $spinBox = $editor;
$spinBox->interpretText();
my $value = Qt::Variant($spinBox->value());
$model->setData($index, $value, Qt::EditRole());
}
# [3]
# [4]
sub updateEditorGeometry {
my ($editor, $option, $index) = @_;
$editor->setGeometry($option->rect);
}
# [4]
1;
|
