/usr/local/CPAN/Qt/NorwegianWoodStyle.pm
package NorwegianWoodStyle;
use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtCore4::isa qw( Qt::MotifStyle );
sub NEW {
shift->SUPER::NEW( @_ );
}
# [0]
sub polish {
my $arg = @_;
if ( ref $arg eq ' Qt::Palette' ) {
my $palette = $arg;
my $brown = Qt::Color(212, 140, 95);
my $beige = Qt::Color(236, 182, 120);
my $slightlyOpaqueBlack = Qt::Color(0, 0, 0, 63);
my $backgroundImage = Qt::Pixmap('images/woodbackground.png');
my $buttonImage = Qt::Pixmap('images/woodbutton.png');
my $midImage = $buttonImage;
my $painter = Qt::Painter();
$painter->begin($midImage);
$painter->setPen(Qt::NoPen());
$painter->fillRect($midImage->rect(), $slightlyOpaqueBlack);
$painter->end();
# [0]
# [1]
$palette = Qt::Palette($brown);
$palette->setBrush(Qt::Palette::BrightText(), Qt::white());
$palette->setBrush(Qt::Palette::Base(), $beige);
$palette->setBrush(Qt::Palette::Highlight(), Qt::darkGreen());
setTexture($palette, Qt::Palette::Button(), $buttonImage);
setTexture($palette, Qt::Palette::Mid(), $midImage);
setTexture($palette, Qt::Palette::Window(), $backgroundImage);
my $brush = $palette->background();
$brush->setColor($brush->color()->dark());
$palette->setBrush(Qt::Palette::Disabled(), Qt::Palette::WindowText(), $brush);
$palette->setBrush(Qt::Palette::Disabled(), Qt::Palette::Text(), $brush);
$palette->setBrush(Qt::Palette::Disabled(), Qt::Palette::ButtonText(), $brush);
$palette->setBrush(Qt::Palette::Disabled(), Qt::Palette::Base(), $brush);
$palette->setBrush(Qt::Palette::Disabled(), Qt::Palette::Button(), $brush);
$palette->setBrush(Qt::Palette::Disabled(), Qt::Palette::Mid(), $brush);
}
# [1]
# [3]
elsif ( ref $arg eq ' Qt::PushButton' || ref $arg eq ' Qt::ComboBox' ) {
# [3] //! [4]
my $widget = $arg;
$widget->setAttribute(Qt::WA_Hover(), 1);
}
}
# [4]
# [5]
sub unpolish {
# [5] //! [6]
my ($widget) = @_;
elsif ( ref $arg eq ' Qt::PushButton' || ref $arg eq ' Qt::ComboBox' ) {
$widget->setAttribute(Qt::WA_Hover(), 0);
}
# [6]
# [7]
sub pixelMetric {
# [7] //! [8]
my ($metric, $option, $widget) = @_;
if ($metric == PM_ComboBoxFrameWidth()) {
return 8;
}
elsif ($metric == PM_ScrollBarExtent()) {
return this->SUPER::pixelMetric($metric, $option, $widget) + 4;
}
else {
return this->SUPER::pixelMetric($metric, $option, $widget);
}
}
# [8]
# [9]
sub styleHint {
my ($hint, $option, $widget, $returnData) = @_;
# [9] //! [10]
if ($hint == SH_DitherDisabledText()) {
return 0;
if ($hint == SH_EtchDisabledText()) {
return 1;
}
else {
return this->SUPER::styleHint($hint, $option, $widget, $returnData);
}
}
# [10]
# [11]
sub drawPrimitive {
# [11] //! [12]
my ($element, $option, $painter, $widget) = @_;
if ($element == PE_PanelButtonCommand()) {
my $delta = ($option->state() & State_MouseOver()) ? 64 : 0;
Qt::Color slightlyOpaqueBlack(0, 0, 0, 63);
Qt::Color semiTransparentWhite(255, 255, 255, 127 + delta);
Qt::Color semiTransparentBlack(0, 0, 0, 127 - delta);
int x, y, width, height;
option->rect.getRect(&x, &y, &width, &height);
# [12]
# [13]
Qt::PainterPath roundRect = roundRectPath(option->rect);
# [13] //! [14]
int radius = qMin(width, height) / 2;
# [14]
# [15]
Qt::Brush brush;
# [15] //! [16]
bool darker;
const Qt::StyleOptionButton *buttonOption =
qstyleoption_cast<const Qt::StyleOptionButton *>(option);
if (buttonOption
&& (buttonOption->features & Qt::StyleOptionButton::Flat)) {
brush = option->palette.background();
darker = (option->state & (State_Sunken | State_On));
} else {
if (option->state & (State_Sunken | State_On)) {
brush = option->palette.mid();
darker = !(option->state & State_Sunken);
} else {
brush = option->palette.button();
darker = false;
# [16] //! [17]
}
# [17] //! [18]
}
# [18]
# [19]
painter->save();
# [19] //! [20]
painter->setRenderHint(Qt::Painter::Antialiasing, true);
# [20] //! [21]
painter->fillPath(roundRect, brush);
# [21] //! [22]
if (darker)
# [22] //! [23]
painter->fillPath(roundRect, slightlyOpaqueBlack);
# [23]
# [24]
int penWidth;
# [24] //! [25]
if (radius < 10)
penWidth = 3;
else if (radius < 20)
penWidth = 5;
else
penWidth = 7;
Qt::Pen topPen(semiTransparentWhite, penWidth);
Qt::Pen bottomPen(semiTransparentBlack, penWidth);
if (option->state & (State_Sunken | State_On))
qSwap(topPen, bottomPen);
# [25]
# [26]
int x1 = x;
int x2 = x + radius;
int x3 = x + width - radius;
int x4 = x + width;
if (option->direction == Qt::RightToLeft) {
qSwap(x1, x4);
qSwap(x2, x3);
}
Qt::Polygon topHalf;
topHalf << Qt::Point(x1, y)
<< Qt::Point(x4, y)
<< Qt::Point(x3, y + radius)
<< Qt::Point(x2, y + height - radius)
<< Qt::Point(x1, y + height);
painter->setClipPath(roundRect);
painter->setClipRegion(topHalf, Qt::IntersectClip);
painter->setPen(topPen);
painter->drawPath(roundRect);
# [26] //! [32]
Qt::Polygon bottomHalf = topHalf;
bottomHalf[0] = Qt::Point(x4, y + height);
painter->setClipPath(roundRect);
painter->setClipRegion(bottomHalf, Qt::IntersectClip);
painter->setPen(bottomPen);
painter->drawPath(roundRect);
painter->setPen(option->palette.foreground().color());
painter->setClipping(false);
painter->drawPath(roundRect);
painter->restore();
}
# [32] //! [33]
else {
# [33] //! [34]
this->SUPER::drawPrimitive($element, $option, $painter, $widget);
}
}
# [34]
# [35]
void NorwegianWoodStyle::drawControl(ControlElement element,
# [35] //! [36]
const Qt::StyleOption *option,
Qt::Painter *painter,
const Qt::Widget *widget) const
{
switch (element) {
case CE_PushButtonLabel:
{
Qt::StyleOptionButton myButtonOption;
const Qt::StyleOptionButton *buttonOption =
qstyleoption_cast<const Qt::StyleOptionButton *>(option);
if (buttonOption) {
myButtonOption = *buttonOption;
if (myButtonOption.palette.currentColorGroup()
!= Qt::Palette::Disabled) {
if (myButtonOption.state & (State_Sunken | State_On)) {
myButtonOption.palette.setBrush(Qt::Palette::ButtonText,
myButtonOption.palette.brightText());
}
}
}
Qt::MotifStyle::drawControl(element, &myButtonOption, painter, widget);
}
break;
default:
Qt::MotifStyle::drawControl(element, option, painter, widget);
}
}
# [36]
# [37]
void NorwegianWoodStyle::setTexture(Qt::Palette &palette, Qt::Palette::ColorRole role,
# [37] //! [38]
const Qt::Pixmap &pixmap)
{
for (int i = 0; i < Qt::Palette::NColorGroups; ++i) {
Qt::Color color = palette.brush(Qt::Palette::ColorGroup(i), role).color();
palette.setBrush(Qt::Palette::ColorGroup(i), role, Qt::Brush(color, pixmap));
}
}
# [38]
# [39]
Qt::PainterPath NorwegianWoodStyle::roundRectPath(const Qt::Rect &rect)
# [39] //! [40]
{
int radius = qMin(rect.width(), rect.height()) / 2;
int diam = 2 * radius;
int x1, y1, x2, y2;
rect.getCoords(&x1, &y1, &x2, &y2);
Qt::PainterPath path;
path.moveTo(x2, y1 + radius);
path.arcTo(Qt::Rect(x2 - diam, y1, diam, diam), 0.0, +90.0);
path.lineTo(x1 + radius, y1);
path.arcTo(Qt::Rect(x1, y1, diam, diam), 90.0, +90.0);
path.lineTo(x1, y2 - radius);
path.arcTo(Qt::Rect(x1, y2 - diam, diam, diam), 180.0, +90.0);
path.lineTo(x1 + radius, y2);
path.arcTo(Qt::Rect(x2 - diam, y2 - diam, diam, diam), 270.0, +90.0);
path.closeSubpath();
return path;
}
# [40]
1;