Hi,

I have a couple of questions:

1. How do I change or remove the icon of a window?

2. Is it possible to start a Win32::GUI app. in an other programm wich
is running in fullscreen?

3. How do I change the colors of the titlebar, scrollbar(s),
textfields (background), etc.?

4. I want that the second textfield is always at the bottom of the
window, and that only the width is resizeable, not the height!


$W = new Win32::GUI::Window (
   -name     => "Window",
   -title    => "W",
   -pos      => [100, 100],
   -size     => [400, 400],
   -onResize   => \&resize,

);

$W->AddTextfield(
   -name      => "Edit",
   -pos       => [0, 0],
   -size      => [100, 100],
   -multiline => 1,
   -vscroll   => 1,
   -autovscroll => 1,
   -keepselection => 1 ,
   -readonly => 1,
);
$W->AddTextfield(
   -name      => "Edit2",
   -pos       => [0, 0],
   -size      => [100, 24],
   -autovscroll => 1,
   -keepselection => 1,
);

sub resize {
 my ($self) = @_;
 my ($width, $height) = ($self->GetClientRect())[2..3];
 $self->Edit->Resize($width+1, $height+1) if exists $self->{Edit};
# $self->Edit2->Resize(....... ... ... ... .. ) ... ...
}


Example:

________________
|                |
|                |      <------- Textfield 1
|                |
|________________|
|________________|      <------- Textfield 2 (always at the bottom,
and only the width is resizeable)

Reply via email to