Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

How do I change the default color of a win32::GUI TabStrip

by boat73 (Scribe)
on Sep 10, 2004 at 15:03 UTC ( #390105=perlquestion: print w/ replies, xml ) Need Help??
boat73 has asked for the wisdom of the Perl Monks concerning the following question:

The default color is a grey and I would like to change it to white. I have been reading the docs but don't see a -color or -background option. My code is as follows. Thanks in advance for the wisdom.
use Win32::GUI; &mainwin; &maintab; Win32::GUI::Dialog(); sub Mainwin_Terminate { return -1; } sub mainwin { #### Defining color class for main window #### 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(); } sub maintab{ $Maintab = $Mainwin->AddTabStrip( -left => 10, -top => 10, -width => $Mainwin->ScaleWidth - 20, -height => $Mainwin->ScaleHeight - 50, -name => "Maintab", ); $Maintab->InsertItem(-text => "Tab1"); $Maintab->InsertItem(-text => "Tab2"); $Maintab->InsertItem(-text => "Tab3"); $Maintab->InsertItem(-text => "Tab4"); $Maintab->InsertItem(-text => "Tab5"); }

Comment on How do I change the default color of a win32::GUI TabStrip
Download Code
Re: How do I change the default color of a win32::GUI TabStrip
by bsdz (Friar) on Sep 11, 2004 at 11:34 UTC
      That link is broken sadly. Just curious if you ever did find a resoultion to this?
Re: How do I change the default color of a win32::GUI TabStrip
by Anonymous Monk on Nov 29, 2012 at 17:44 UTC
    Here is a kludge I am using: create a read-only textfield over the entire window.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://390105]
Approved by Old_Gray_Bear
Front-paged by PERLscienceman
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (14)
As of 2014-12-26 13:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (171 votes), past polls