boat73 has asked for the wisdom of the Perl Monks concerning the following question:

Hello perl monks, I have a simple chunk of code (see below) that just sticks a tabstrip in a main window using win32::gui. My question is this. The tabstrip looks great but how do I get rid of all the white border around it. I will be of course adding buttons and labels as well. I don't see a color option for the Window function. Am I just missing it? As always thanks in advance for the Wisdom. 
use Win32::GUI;

$Mainwin = new Win32::GUI::Window(
      -background => "red",
      -left   => 612,
      -top    => 15,
      -width  => 400,
      -height => 450,
      -name   => "Mainwin",
      -text   => "Window Title"
      );
$Mainwin->Show();

$Maintab = $Mainwin->AddTabStrip(
                                -left   => 10,   
                                -top    => 10, 
                                -width  => $Mainwin->ScaleWidth - 105,
                                -height => 175,
                                -name   => "Maintab",
);

$Maintab->InsertItem(-text => "Tab1");
$Maintab->InsertItem(-text => "Tab2");
$Maintab->InsertItem(-text => "Tab3");
$Maintab->InsertItem(-text => "Tab4");
$Maintab->InsertItem(-text => "Tab5");








Win32::GUI::Dialog();

sub Mainwin_Terminate {
   return -1;
}

[download]

Replies are listed 'Best First'.
Re: How do I change main window color Win32::GUI
by ~~David~~ (Hermit) on Sep 10, 2004 at 14:41 UTC
    Is this what you mean: 
    use Win32::GUI;

$Mainwin = new Win32::GUI::Window(
      -background => "red",
      -left   => 612,
      -top    => 15,
      -width  => 400,
      -height => 450,
      -name   => "Mainwin",
      -text   => "Window Title"
      );
$Mainwin->Show();

$Maintab = $Mainwin->AddTabStrip(
                                -left   => 0,   
                                -top    => 0, 
                                -width  => $Mainwin->ScaleWidth,
                                -height => $Mainwin->ScaleHeight,
                                -name   => "Maintab"
);

$Maintab->InsertItem(-text => "Tab1");
$Maintab->InsertItem(-text => "Tab2");
$Maintab->InsertItem(-text => "Tab3");
$Maintab->InsertItem(-text => "Tab4");
$Maintab->InsertItem(-text => "Tab5");








Win32::GUI::Dialog();

sub Mainwin_Terminate {
   return -1;
}

    [download]
    ~~David~~
[reply]
[d/l]
      I tried that but it didn't work. I got it to work like this. This made the window color the same as the tabstrip color. 
      use Win32::GUI;
    my $main_class = new Win32::GUI::Class(
        -name    => "temp_Class",
        -color  => 16, 
    );


    $Mainwin = new Win32::GUI::Window(
          -background => "red",
          -left   => 612,
          -top    => 15,
          -width  => 400,
          -height => 455,
          -name   => "Mainwin",
          -text   => "Window Title",
          -class  => $main_class
          );
    $Mainwin->Show();
Win32::GUI::Dialog();

      [download]
[reply]
[d/l]
      sorry, don`t u know how i change color of Tabs? (TabFrame, TabStrip) Thanks Roman
[reply]

Back to Seekers of Perl Wisdom