Tabs -- Odd Colors

[Percius]

First as far as I am aware it is not possible, but I thought I would double check.

I have a tabbed window and I set the main window's baclground to white. The problem is verry few themes utalize the 3d 0bject color set as white so there is color bar that is a random color where the tabs go. Is there any way to either set the tab background to a certain color or to be the same as the main window background color?

I am not referring to the tab window area, but changeing that color would be nice too.

expandcollapse popup

$MainWindow = GUICreate ( "Example", 600, 450, "-1", "-1", 0x80880008)
Opt("GUICoordMode", 1)
Opt("TrayIconHide", 1) 
GUISetBkColor ( 0xFFFFFF )

$next = GUICtrlCreateButton("Next", 520, 415, 75, 20)
$back = GUICtrlCreateButton("Back", 445, 415, 75, 20)

; Create Box Text
$Welecome = "Below this are multiple Tabs"

$font="Comic Sans MS"
GUISetFont (14, 400, "", $font)
GUICtrlCreateLabel ( $Welecome , 60, 75 , 500 , 25 )

$font="Times New Roman"
GUISetFont (10, 400, "", $font)

Dim $ProgCheckBox[51]

$Tab = GUICtrlCreateTab ( 0, 100 ,600 ,300, 0x0400 )

;GUISetBkColor ( 0x00E0FFFF )

    #A-F G-M N-S T-Z
    $tab1=GUICtrlCreateTabitem ("A-F")

    # First Row
    
        $ProgCheckBox[1] = GUICtrlCreateCheckbox ( "Check 1", 10, 130, 100, 20 )
        $ProgCheckBox[2] = GUICtrlCreateCheckbox ( "Check 2", 10, 150, 100, 20 )
        $ProgCheckBox[3] = GUICtrlCreateCheckbox ( "Check 3", 10, 170, 100, 20 )
        $ProgCheckBox[4] = GUICtrlCreateCheckbox ( "Check 4", 10, 190, 100, 20 )
        $ProgCheckBox[5] = GUICtrlCreateCheckbox ( "Check 5", 10, 210, 100, 20 )
        
    # Second Row
        $ProgCheckBox[6] = GUICtrlCreateCheckbox ( "Check 6", 230, 130, 100, 20 )
        $ProgCheckBox[7] = GUICtrlCreateCheckbox ( "Check 7", 230, 150, 100, 20 )
        $ProgCheckBox[8] = GUICtrlCreateCheckbox ( "Check 8", 230, 170, 100, 20 )
        $ProgCheckBox[9] = GUICtrlCreateCheckbox ( "Check 9", 230, 190, 100, 20 )
        $ProgCheckBox[10] = GUICtrlCreateCheckbox ( "Check 10", 230, 210, 100, 20 )
    
    $tab2=GUICtrlCreateTabitem ("G-M")

        $ProgCheckBox[11] = GUICtrlCreateCheckbox ( "Check 11", 10, 130, 100, 20 )
        $ProgCheckBox[12] = GUICtrlCreateCheckbox ( "Check 12", 10, 150, 100, 20 )
        $ProgCheckBox[13] = GUICtrlCreateCheckbox ( "Check 13", 10, 170, 100, 20 )
        $ProgCheckBox[14] = GUICtrlCreateCheckbox ( "Check 14", 10, 190, 100, 20 )
        $ProgCheckBox[15] = GUICtrlCreateCheckbox ( "Check 15", 10, 210, 100, 20 )
        
    # Second Row
        $ProgCheckBox[16] = GUICtrlCreateCheckbox ( "Check 16", 230, 130, 100, 20 )
        $ProgCheckBox[17] = GUICtrlCreateCheckbox ( "Check 17", 230, 150, 100, 20 )
        $ProgCheckBox[18] = GUICtrlCreateCheckbox ( "Check 18", 230, 170, 100, 20 )
        $ProgCheckBox[19] = GUICtrlCreateCheckbox ( "Check 19", 230, 190, 100, 20 )
        $ProgCheckBox[20] = GUICtrlCreateCheckbox ( "Check 20", 230, 210, 100, 20 )

GUICtrlCreateTabitem ("")   ; end tabitem definition


GuiSetState()

While 1
  $msg = GUIGetMsg()
  Select
    Case $msg = $next
        GUIDelete ( )
        $GoOn = 1;
        ExitLoop
    Case $msg = $back
        GUIDelete ( )
        $GoOn = -1;
        ExitLoop
    EndSelect
Wend