Simple Tab skin

[guinness]

I can't switch to another tabsheet when "GUIOnEventMode" is ON

If I turn off it will work but I can't capture event on button click, can any1 help?

This is because you're mixing GUIGetMsg (which Yashied uses) and EventMode. You should only use one and not both. I suggest you familiarise yourself with these modes and look at the help file for more details.

[jackie68]

This is because you're mixing GUIGetMsg (which Yashied uses) and EventMode. You should only use one and not both. I suggest you familiarise yourself with these modes and look at the help file for more details.

Thanks for your fast reply.

I just look at the Help file and I forget this line:

"If the GUIOnEventMode option is set to 1 then the return from GUIGetMsg is always 0 and the @error is set to 1."

Problem solved!

[hiho]

Hi, I've got a question : why the tabs are disabled?

expandcollapse popup

While 1

$Info = GUIGetCursorInfo()
    If @error Then
        If $Over <> -1 Then
            GUICtrlSetImage($Pic[$Over], @ScriptDir & '\img_black.bmp')
        EndIf
        $Over = -1
    Else
        $Index = _Index($Info[4])
        If $Index <> $Over Then
            If $Over <> -1 Then
                GUICtrlSetImage($Pic[$Over], @ScriptDir & '\img_black.bmp')
            EndIf
            If ($Index <> -1) And ($Index <> $Item) Then
                GUICtrlSetImage($Pic[$Index], @ScriptDir & '\img_over.bmp')
                $Over = $Index
            Else
                $Over = -1
            EndIf
        EndIf
EndIf

    $aMsg = GUIGetMsg(1)
    If $Item = -1 Then
        $Msg = $Pic[0]
        $Item = 1
    EndIf
    Switch $aMsg[1]
        Case $hGUI1
            Switch $aMsg[0]
                Case 0
                    ContinueLoop
                Case $GUI_EVENT_CLOSE
                    ExitLoop
                Case $Pic[0] To $Pic[UBound($Pic) - 1]
                    If $Msg <> $Pic[$Item] Then
                        GUICtrlSetImage($Pic[$Item], @ScriptDir & '\img_black.bmp')
                        GUICtrlSetColor($Pic[$Item] + 1, 0xFFFFFF)
                        GUICtrlSetImage($Msg, @ScriptDir & '\img_white.bmp')
                        GUICtrlSetColor($Msg + 1, 0x313A42)
                        $Item = _Index($Msg)
                        GUICtrlSendMsg($Tab, $TCM_SETCURFOCUS, $Item, 0)
                        $Over = -1
                    EndIf
                Case $button_descr
                    GUICtrlSetState($button_descr, $GUI_DISABLE)
                    opisanie()
            EndSwitch
        Case $hGUI2
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE
                    GUIDelete($hGUI2)
                    GUICtrlSetState($button_descr, $GUI_ENABLE)
                Case $book_16
                    MsgBox(0, "", "test")
            EndSwitch
    EndSwitch
WEnd

The function "opisanie" calls another GUI.

Edited May 13, 2013 by hiho

[aa2zz6]

Why can't I change the tab names? I tried removing the for loop but no tabs will show on the GUI

expandcollapse popup

#Include <Constants.au3>
#Include <GUIConstantsEx.au3>
#Include <StaticConstants.au3>
#Include <TabConstants.au3>
#Include <WindowsConstants.au3>

Dim $Pic[5]

$Form1 = GUICreate("MyGUI", 705, 369, 645, 124, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP))
GUISetBkColor(0xFFFFFF)
GUICtrlCreatePic('img_bg.bmp', 0, 0, 705, 369)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT+$GUI_DOCKRIGHT+$GUI_DOCKTOP+$GUI_DOCKBOTTOM)
GUICtrlSetState(-1, $GUI_DISABLE)

For $i = 0 To 4
    $Pic[$i] = GUICtrlCreatePic(@ScriptDir & '\img_black.bmp', 10, 24 + 50 * $i, 162, 49)
    GUICtrlCreateLabel('Tabsheet' & $i, 21, 40 + 50 * $i, 140, 18, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 400, 0, 'Tahoma')
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetcolor(-1, 0xFFFFFF)
Next

$Tab = GUICtrlCreateTab(172 + 4, 10 + 4, 523 - 8, 349 - 8)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateTabItem('Dashboard')
GUICtrlCreateEdit('', 190, 28, 487, 313)
GUICtrlCreateTabItem('Workforce')
GUICtrlCreateButton('OK', 398, 319, 70, 23)
GUICtrlCreateTabItem('Tabsheet2')
GUICtrlCreateTabItem('Tabsheet3')
GUICtrlCreateTabItem('Tabsheet4')
GUICtrlCreateTabItem('')

GUISetState()

$Item = -1
$Over = -1

While 1
    $Info = GUIGetCursorInfo()
    If @error Then
        If $Over <> -1 Then
            GUICtrlSetImage($Pic[$Over], @ScriptDir & '\img_black.bmp')
        EndIf
        $Over = -1
    Else
        $Index = _Index($Info[4])
        If $Index <> $Over Then
            If $Over <> -1 Then
                GUICtrlSetImage($Pic[$Over], @ScriptDir & '\img_black.bmp')
            EndIf
            If ($Index <> -1) And ($Index <> $Item) Then
                GUICtrlSetImage($Pic[$Index], @ScriptDir & '\img_over.bmp')
                $Over = $Index
            Else
                $Over = -1
            EndIf
        EndIf
    EndIf
    $Msg = GUIGetMsg()
    If $Item = -1 Then
        $Msg = $Pic[0]
        $Item = 1
    EndIf
    Switch $Msg
        Case 0
            ContinueLoop
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Pic[0] To $Pic[UBound($Pic) - 1]
            If $Msg <> $Pic[$Item] Then
                GUICtrlSetImage($Pic[$Item], @ScriptDir & '\img_black.bmp')
                GUICtrlSetcolor($Pic[$Item] + 1, 0xFFFFFF)
                GUICtrlSetImage($Msg, @ScriptDir & '\img_white.bmp')
                GUICtrlSetcolor($Msg + 1, 0x313A42)
                $Item = _Index($Msg)
                GUICtrlSendMsg($Tab, $TCM_SETCURFOCUS, $Item, 0)
                $Over = -1
            EndIf
    EndSwitch
WEnd

Func _Index($CtrlID)
    For $i = 0 To UBound($Pic) - 1
        If ($CtrlID = $Pic[$i]) Or ($CtrlID = $Pic[$i] + 1) Then
            Return $i
        EndIf
    Next
    Return -1
EndFunc   ;==>_Index