hi,
I've the problem that my labels are only shown after clicking on them or after
resizing the window.
do I have to implement a repainting or something?
my script:
[snip]
$cfg_window=Win32::GUI::Window->new(
-name => "configwin",
-title => "$cfg{name} - Configuration",
-left => CW_USEDEFAULT,
-size => [ 600, 450 ],
-parent => $main,
-vscroll => 1,
-hscroll => 1,
-helpbutton => 0,
-dialogui => 1,
-resizable => 1,
-onTerminate => sub { do_animation($cfg_window); 0; },
);
my $ncw = $cfg_window->ScaleWidth();
my $nch = 20;
$cfg_window->AddButton(
-name => "CFGOK",
-text => "OK",
-pos => [ 30, $nch ],
);
$cfg_window->AddButton(
-name => "CFGCANCEL",
-text => "CANCEL",
-pos => [ 70, $nch ],
);
my $count = 0;
my $padding = 10;
$cfg_window->AddGroupbox(
-name => "CFGX",
-title => "Configuration",
-left => 25,
-top => 10,
-width => 400,
-group => 1,
);
foreach my $xx (sort(keys %config))
{
$count = $count + 1;
$cfg_window->AddTextfield(
-name => "${xx}_name",
-text => "$config{$xx}",
-left => 35,
-prompt => [ "$xx:" , 150 ],
-height => 20,
-width => 200,
-top => 25 + ($count * 20),
-width => $cfg_window->CFGX->Width() - (2 * 20),
-tabstop => 1,
);
}
$cfg_window->CFGX->Height(350);
$cfg_window->CFGX->Width(550);
do_animation($cfg_window);
$cfg_window->SetRedraw(1);
[/snip]
thx
juergen
--
GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Perl-Win32-GUI-Users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
