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 56 57 58 59
|
package Window;
use strict;
use warnings;
use QtCore4;
use QtGui4;
# [0]
use QtCore4::isa qw( Qt::GraphicsWidget );
# [0]
use LayoutItem;
sub NEW
{
my ($class, $parent) = @_;
$class->SUPER::NEW($parent, Qt::Window());
# [0]
my $windowLayout = Qt::GraphicsLinearLayout(Qt::Vertical());
my $linear = Qt::GraphicsLinearLayout($windowLayout);
my $item = LayoutItem(this);
$linear->addItem($item);
$linear->setStretchFactor($item, 1);
# [0]
# [1]
$item = LayoutItem(this);
$linear->addItem($item);
$linear->setStretchFactor($item, 3);
$windowLayout->addItem($linear);
# [1]
# [2]
my $grid = Qt::GraphicsGridLayout($windowLayout);
$item = LayoutItem(this);
$grid->addItem($item, 0, 0, 4, 1);
$item = LayoutItem(this);
$item->setMaximumHeight($item->minimumHeight());
$grid->addItem($item, 0, 1, 2, 1, Qt::AlignVCenter());
$item = LayoutItem(this);
$item->setMaximumHeight($item->minimumHeight());
$grid->addItem($item, 2, 1, 2, 1, Qt::AlignVCenter());
$item = LayoutItem(this);
$grid->addItem($item, 0, 2);
$item = LayoutItem(this);
$grid->addItem($item, 1, 2);
$item = LayoutItem(this);
$grid->addItem($item, 2, 2);
$item = LayoutItem(this);
$grid->addItem($item, 3, 2);
$windowLayout->addItem($grid);
# [2]
# [3]
this->setLayout($windowLayout);
this->setWindowTitle(this->tr('Basic Graphics Layouts Example'));
# [3]
}
1;
|