PartyPooper Posted December 6, 2005 Share 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 Link to comment Share on other sites More sharing options...
Valuater Posted December 6, 2005 Share Posted December 6, 2005 i tried ... same result... must be a bug from the latest Beta 8) Link to comment Share on other sites More sharing options...
PartyPooper Posted December 6, 2005 Author Share Posted December 6, 2005 Ah OK, thanks for confirming that Valuater. I thought I may have brainfarted again :-) Link to comment Share on other sites More sharing options...
Valuater Posted December 6, 2005 Share 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 Link to comment Share on other sites More sharing options...
GaryFrost Posted December 6, 2005 Share 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. Link to comment Share on other sites More sharing options...
Valuater Posted December 6, 2005 Share Posted December 6, 2005 Windows XP Theme... does not work Windows Classic theme... it works 8) Link to comment Share on other sites More sharing options...
PartyPooper Posted December 6, 2005 Author Share 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. Link to comment Share on other sites More sharing options...
GaryFrost Posted December 6, 2005 Share 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. Link to comment Share on other sites More sharing options...
PartyPooper Posted December 6, 2005 Author Share Posted December 6, 2005 Yep, works and is a good temporary workaround for all problems relating to themes. Thanks gafrost. Link to comment Share on other sites More sharing options...
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