PartyPooper Posted December 6, 2005 Posted December 6, 2005 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
Valuater Posted December 6, 2005 Posted December 6, 2005 i tried ... same result... must be a bug from the latest Beta 8)
PartyPooper Posted December 6, 2005 Author Posted December 6, 2005 Ah OK, thanks for confirming that Valuater. I thought I may have brainfarted again :-)
Valuater Posted December 6, 2005 Posted December 6, 2005 the young have "brain farts" the middle aged have "intelectual interludes" the older have "senior moments" so, you know its over when you have an intlectual interlude in the middle of a senior moment and in comes a brain fart 8) and yes... you can quote me lol
GaryFrost Posted December 6, 2005 Posted December 6, 2005 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.
Valuater Posted December 6, 2005 Posted December 6, 2005 Windows XP Theme... does not work Windows Classic theme... it works 8)
PartyPooper Posted December 6, 2005 Author Posted December 6, 2005 Yes, I can confirm Valuaters results - works for me in Windows Classic theme as well but fails in Windows XP theme.
GaryFrost Posted December 6, 2005 Posted December 6, 2005 (edited) 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 December 6, 2005 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.
PartyPooper Posted December 6, 2005 Author Posted December 6, 2005 Yep, works and is a good temporary workaround for all problems relating to themes. Thanks gafrost.
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now