Jump to content

Vertical Tab problem


PartyPooper
 Share

Recommended Posts

I'm sure I had this working before using one of the other betas but now I can't seem to get the tab to display the 'Tab1' text vertically as it says it should according to the Help File tab style '$TCS_VERTICAL'.

Can anyone see what I've done wrong.

#include <GUIConstants.au3>
opt("GUIOnEventMode", 1)
opt("MustDeclareVars", 1)
opt("GUICloseOnESC", 1)
Dim $MainGUI
Dim $Title = "My GUI"
MainGUI()
Do
    Sleep(250)
Until 0
Func MainGUI()
    $MainGUI = GUICreate($Title, 190, 160, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
    GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
    GUICtrlCreateTab(10, 5, 170, 120, BitOR($TCS_MULTILINE, $TCS_VERTICAL), $WS_EX_CLIENTEDGE)
    GUICtrlCreateTabItem("Tab1")
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)
EndFunc
Func OnExit()
    If @GUI_WinHandle = $MainGUI Then Exit
EndFunc

Thanks

Link to comment
Share on other sites

hate to say this works for me, tried on left side and right side

#include <GUIConstants.au3>
opt("GUIOnEventMode", 1)
opt("MustDeclareVars", 1)
opt("GUICloseOnESC", 1)
Dim $MainGUI
Dim $Title = "My GUI"
MainGUI()
Do
    Sleep(250)
Until 0
Func MainGUI()
    $MainGUI = GUICreate($Title, 190, 160, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
    GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
    GUICtrlCreateTab(10, 5, 170, 120, BitOR($TCS_MULTILINE, $TCS_VERTICAL, $TCS_RIGHT), $WS_EX_CLIENTEDGE)
    GUICtrlCreateTabItem("Tab1")
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)
EndFunc
Func OnExit()
    If @GUI_WinHandle = $MainGUI Then Exit
EndFunc

SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Link to comment
Share on other sites

try this

#include <GUIConstants.au3>
opt("GUIOnEventMode", 1)
opt("MustDeclareVars", 1)
opt("GUICloseOnESC", 1)
Dim $MainGUI
Dim $Title = "My GUI"
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
MainGUI()
Do
    Sleep(250)
Until 0
Func MainGUI()
    $MainGUI = GUICreate($Title, 190, 160, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
    GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
    GUICtrlCreateTab(10, 5, 170, 120, BitOR($TCS_MULTILINE, $TCS_VERTICAL, $TCS_RIGHT), $WS_EX_CLIENTEDGE)
    GUICtrlCreateTabItem("Tab1")
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)
EndFunc
Func OnExit()
    If @GUI_WinHandle = $MainGUI Then Exit
EndFunc
Edited by gafrost

SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...