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
|
#!/usr/bin/perl
use strict;
use warnings;
use QtCore4;
use QtGui4;
use SpinBoxDelegate;
# [0]
sub main {
my $app = Qt::Application( \@ARGV );
my $model = Qt::StandardItemModel(4, 2);
my $tableView = Qt::TableView();
$tableView->setModel($model);
my $delegate = SpinBoxDelegate();
$tableView->setItemDelegate($delegate);
# [0]
# [1]
for (my $row = 0; $row < 4; ++$row) {
for (my $column = 0; $column < 2; ++$column) {
my $index = $model->index($row, $column, Qt::ModelIndex());
$model->setData($index, Qt::Variant(($row+1) * ($column+1)));
}
# [1] //! [2]
}
# [2]
# [3]
$tableView->setWindowTitle(Qt::Object::tr('Spin Box Delegate'));
$tableView->show();
return $app->exec();
}
# [3]
exit main();
|
