use strict;
use Win32::GUI;
my $mw = Win32::GUI::Window->new (
-name => 'Main',
-width => 300,
-height => 100,
-text => 'bbtrack',
);
my $label1 = $mw->AddLabel( -text => "hello");
my $label2 = $mw->AddLabel( -text => "hello2");
$mw->Show();
Win32::GUI::Dialog();
####
my $label2 = $mw->AddLabel( -text => "hello2", -left => 30);
####
my $label2 = $mw->AddLabel( -text => "hello2", -top => 15);
####
my $label2 = $mw->AddLabel(
-text => "hello2",
-left => ($label1->Width + 2));
## OR
my $label2 = $mw->AddLabel(
-text => "hello2",
-top => ($label1->Height + 2));
####
use Win32::GUI;
use Win32::GUI::GridLayout;
my $mw = Win32::GUI::Window->new (
-name => 'Main',
-width => 300,
-height => 100,
-text => 'bbtrack',
);
my $grid = apply Win32::GUI::GridLayout($mw, 4, 4, 0, 0);
for my $col (1 .. 4) {
for my $row (1 .. 4) {
my $lab = $mw->AddLabel(
-name => "MainLabel$col$row",
-text => "C: $col, R: $row");
$grid->add($lab, $col, $row);
}
}
$grid->recalc;
$mw->Show();
Win32::GUI::Dialog();
sub Main_Resize {
$grid->recalc();
}