How to Show\Hide Tab

[sergeyWolf]

hello everyone, got a question

example

expandcollapse popup

#Include <WindowsConstants.au3>


Func getCurrent ($type)
    Local $_coord = MouseGetPos()
    
    Select
    Case $type = "x"
        Return $_coord[0]
    Case $type = "y"
        Return $_coord[1]
    EndSelect
EndFunc


local $cur_x, $cur_y
Local $tab_main 
Local $tab1, $tab2

$GUI =          GUICreate ('MyGUI', 400, 400)


$tab_main =     GUICtrlCreateTab(10, 10, 380, 380)

$tab1 =         GUICtrlCreateTabItem('Item1')
                GUICtrlCreateGroup("some",      20,     40,     85,     75)
                GUICtrlCreateLabel("X = ",          28,     55,     20,     15)
$cur_x =        GUICtrlCreateLabel("",              48,     55,     25,     15)
                GUICtrlCreateLabel("Y = ",          28,     75,     20,     15)
$cur_y =        GUICtrlCreateLabel("",              48,     75,     25,     15)
                GUICtrlCreateTabItem('')
                
$tab2 = GUICtrlCreateTabItem('Item2')
        
                GUICtrlCreateTabItem('')

GUISetState(@SW_SHOW, $GUI)



While 1

GUICtrlSetData($cur_x, getCurrent("x"))
GUICtrlSetData($cur_y, getCurrent("y"))

    Switch GUIGetMsg()
        Case -3
            Exit

    EndSwitch
WEnd

in $tab1 we see current coordinates of mouse (just example for better understanding of problem - it very quick updates)

when we change tab to $tab2 we see blinks on those places, how to use @SW_HIDE in my example? or how to "hide" $tab1 totally (when active is $tab2)?

[Melba23]

sergeyWolf,

I see no "blinks on those places" - when $tab2 is active I get no breakthrough from $tab1. Do you have any special themes enabled (Aero for example) which might affect GUI behaviour?

On a side point, you only need to close the tab definiton once - the first GUICtrlCreateTabItem('') at line 28 is not needed.

M23

[sergeyWolf]

sergeyWolf,

I see no "blinks on those places" - when $tab2 is active I get no breakthrough from $tab1. Do you have any special themes enabled (Aero for example) which might affect GUI behaviour?

On a side point, you only need to close the tab definiton once - the first GUICtrlCreateTabItem('') at line 28 is not needed.

M23

i use simple theme and yes, i talking about breakthrough (my english so-so )

here I noticed

#Include <WindowsConstants.au3>

$hForm = GUICreate('MyGUI', 400, 400)

$hTab = GUICreate('', 300, 300, 50, 50, BitOR($WS_CHILD, $WS_TABSTOP), -1, $hForm)
$Tab2 = GUICtrlCreateTab(0, 0, 300, 300)
GUICtrlCreateTabItem('Item3')
GUICtrlCreateTabItem('Item4')
GUICtrlCreateTabItem('')

GUISwitch($hForm)

$Tab1 = GUICtrlCreateTab(10, 10, 380, 380)
GUICtrlCreateTabItem('Item1')
GUICtrlCreateTabItem('Item2')
GUICtrlCreateTabItem('')

GUISetState(@SW_SHOW, $hForm)
GUISetState(@SW_SHOW, $hTab)

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $Tab1
            Switch GUICtrlRead($Tab1)
                Case 0
                    GUISetState(@SW_SHOW, $hTab)
                Case 1
                    GUISetState(@SW_HIDE, $hTab)
            EndSwitch
    EndSwitch
WEnd

if i put group (from first example) "some" to Item4 and change tab to Item2 there would not be this breakthrough

ps: copy pasted from link

Edited June 9, 2011 by sergeyWolf