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
|
package CustomSqlModel;
use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtSql4;
use QtCore4::isa qw( Qt::SqlQueryModel );
sub NEW
{
my ($class, $parent) = @_;
$class->SUPER::NEW($parent);
}
# [0]
sub data
{
my ($index, $role) = @_;
my $value = this->SUPER::data($index, $role);
if ($value->isValid() && $role == Qt::DisplayRole()) {
if ($index->column() == 0) {
return Qt::Variant(Qt::String('#' . $value->toString()));
}
elsif ($index->column() == 2) {
return Qt::Variant(Qt::String(uc $value->toString()));
}
}
if ($role == Qt::TextColorRole() && $index->column() == 1) {
return Qt::qVariantFromValue(Qt::Color(Qt::blue()));
}
return $value;
}
# [0]
1;
|
