Armand Posted February 6, 2008 Share Posted February 6, 2008 well... is there such a possibility ?! [u]My Au3 Scripts:[/u]____________(E)Lephant, A Share download manager (RS/MU etc)Http1.1 Console, The Ez Way!Internet Reconnection Automation Suite & A Macro Recording Tool.SK's Alarm Clock, Playing '.MP3 & .Wav' Files._________________Is GOD a mistake of the Humanity Or the Humanity is a mistake of GOD ?! Link to comment Share on other sites More sharing options...
Valuater Posted February 6, 2008 Share Posted February 6, 2008 Maybe give this a try... NOT tested with latest beta expandcollapse popup; Example of TAB on TAB resize ; Authors - GEOsoft, martin and ReFran #include <GUIConstants.au3> Global $mainGUI, $ok_button, $cancel_button ; This window has 2 ok/cancel-buttons $mainGUI = GUICreate("Tab on Tab Resize", 260, 250, 20, 10, $WS_OVERLAPPEDWINDOW + $WS_CLIPCHILDREN + $WS_CLIPSIBLINGS) GUISetStyle(BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_CAPTION, $WS_SIZEBOX, $WS_POPUP, $WS_SYSMENU)) GUISetBkColor(0x5686A9) $ok_button = GUICtrlCreateButton("OK", 40, 220, 70, 20) $cancel_button = GUICtrlCreateButton("Cancel", 150, 220, 70, 20) ; Create the first child window that is implemented into the main GUI $child1 = GUICreate("", 230, 170, 15, 35, BitOR($WS_CHILD, $WS_TABSTOP), -1, $mainGUI) GUISetBkColor(0x46860A) $child_tab = GUICtrlCreateTab(10, 10, 210, 150) GUICtrlSetResizing(-1, $GUI_DOCKAUTO) $child11tab = GUICtrlCreateTabItem("1") $child12tab = GUICtrlCreateTabItem("2") GUICtrlCreateTabItem("") GUISetState() ; Create the second child window that is implemented into the main GUI $child2 = GUICreate("", 230, 170, 15, 35, BitOR($WS_CHILD, $WS_TABSTOP), -1, $mainGUI) GUISetBkColor(0x56869c) $listview2 = GUICtrlCreateListView("Col1|Col2", 10, 10, 210, 150, -1, $WS_EX_CLIENTEDGE) GUICtrlSetResizing(-1, $GUI_DOCKAUTO) GUICtrlCreateListViewItem("ItemLong1|ItemLong12", $listview2) GUICtrlCreateListViewItem("ItemLong2|Item22", $listview2) ;GUISetState() ; Switch back the main GUI and create the tabs GUISwitch($mainGUI) $main_tab = GUICtrlCreateTab(10, 10, 240, 200) $child1tab = GUICtrlCreateTabItem("Child1") $child2tab = GUICtrlCreateTabItem("Child2") GUICtrlCreateTabItem("") GUISetState() GUIRegisterMsg($WM_SIZE, 'WM_SIZE') Dim $tabItemLast = 0 While 1 $msg = GUIGetMsg(1) Switch $msg[0] Case $GUI_EVENT_CLOSE, $cancel_button ExitLoop Case $main_tab $tabItem = GUICtrlRead($main_tab) If $tabItem <> $tabItemLast Then TabSwitch($tabItem) EndSwitch WEnd Func TabSwitch($tabItem) GUISetState(@SW_HIDE, $child1) GUISetState(@SW_HIDE, $child2) If $tabItem = 0 Then GUISetState(@SW_SHOW, $child1) If $tabItem = 1 Then GUISetState(@SW_SHOW, $child2) $tabItemLast = $tabItem EndFunc ;==>TabSwitch Func WM_SIZE($hWnd, $iMsg, $iWParam, $iLParam) $aMGPos = WinGetClientSize($mainGUI) WinMove($child1, "", 15, 35, +$aMGPos[0] - 30, +$aMGPos[1] - 80) WinMove($child2, "", 15, 35, +$aMGPos[0] - 30, +$aMGPos[1] - 80) ;Guictrlsetpos($child_tab,10,10,+$aMGPos[0]-50,+$aMGPos[1]-100) GUICtrlSetPos($main_tab, 10, 10, +$aMGPos[0] - 20, +$aMGPos[1] - 50) GUICtrlSetPos($listview2, 10, 10, +$aMGPos[0] - 30 - 20, +$aMGPos[1] - 80 - 20) EndFunc ;==>WM_SIZE 8) Link to comment Share on other sites More sharing options...
Armand Posted February 6, 2008 Author Share Posted February 6, 2008 (edited) THANKs ALOT FOR THE FAST RESPONSE !!! -> sorry for yelling P.S - how about progress bar into a listview ?! possible ?! Edited February 6, 2008 by Armand [u]My Au3 Scripts:[/u]____________(E)Lephant, A Share download manager (RS/MU etc)Http1.1 Console, The Ez Way!Internet Reconnection Automation Suite & A Macro Recording Tool.SK's Alarm Clock, Playing '.MP3 & .Wav' Files._________________Is GOD a mistake of the Humanity Or the Humanity is a mistake of GOD ?! Link to comment Share on other sites More sharing options...
martin Posted February 6, 2008 Share Posted February 6, 2008 (edited) Maybe give this a try... NOT tested with latest beta expandcollapse popup; Example of TAB on TAB resize ; Authors - GEOsoft, Mega and ReFran #include <GUIConstants.au3> Global $mainGUI, $ok_button, $cancel_button ; This window has 2 ok/cancel-buttons $mainGUI = GUICreate("Tab on Tab Resize", 260, 250, 20, 10, $WS_OVERLAPPEDWINDOW + $WS_CLIPCHILDREN + $WS_CLIPSIBLINGS) GUISetStyle(BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_CAPTION, $WS_SIZEBOX, $WS_POPUP, $WS_SYSMENU)) GUISetBkColor(0x5686A9) $ok_button = GUICtrlCreateButton("OK", 40, 220, 70, 20) $cancel_button = GUICtrlCreateButton("Cancel", 150, 220, 70, 20) ; Create the first child window that is implemented into the main GUI $child1 = GUICreate("", 230, 170, 15, 35, BitOR($WS_CHILD, $WS_TABSTOP), -1, $mainGUI) GUISetBkColor(0x46860A) $child_tab = GUICtrlCreateTab(10, 10, 210, 150) GUICtrlSetResizing(-1, $GUI_DOCKAUTO) $child11tab = GUICtrlCreateTabItem("1") $child12tab = GUICtrlCreateTabItem("2") GUICtrlCreateTabItem("") GUISetState() ; Create the second child window that is implemented into the main GUI $child2 = GUICreate("", 230, 170, 15, 35, BitOR($WS_CHILD, $WS_TABSTOP), -1, $mainGUI) GUISetBkColor(0x56869c) $listview2 = GUICtrlCreateListView("Col1|Col2", 10, 10, 210, 150, -1, $WS_EX_CLIENTEDGE) GUICtrlSetResizing(-1, $GUI_DOCKAUTO) GUICtrlCreateListViewItem("ItemLong1|ItemLong12", $listview2) GUICtrlCreateListViewItem("ItemLong2|Item22", $listview2) ;GUISetState() ; Switch back the main GUI and create the tabs GUISwitch($mainGUI) $main_tab = GUICtrlCreateTab(10, 10, 240, 200) $child1tab = GUICtrlCreateTabItem("Child1") $child2tab = GUICtrlCreateTabItem("Child2") GUICtrlCreateTabItem("") GUISetState() GUIRegisterMsg($WM_SIZE, 'WM_SIZE') Dim $tabItemLast = 0 While 1 $msg = GUIGetMsg(1) Switch $msg[0] Case $GUI_EVENT_CLOSE, $cancel_button ExitLoop Case $main_tab $tabItem = GUICtrlRead($main_tab) If $tabItem <> $tabItemLast Then TabSwitch($tabItem) EndSwitch WEnd Func TabSwitch($tabItem) GUISetState(@SW_HIDE, $child1) GUISetState(@SW_HIDE, $child2) If $tabItem = 0 Then GUISetState(@SW_SHOW, $child1) If $tabItem = 1 Then GUISetState(@SW_SHOW, $child2) $tabItemLast = $tabItem EndFunc ;==>TabSwitch Func WM_SIZE($hWnd, $iMsg, $iWParam, $iLParam) $aMGPos = WinGetClientSize($mainGUI) WinMove($child1, "", 15, 35, +$aMGPos[0] - 30, +$aMGPos[1] - 80) WinMove($child2, "", 15, 35, +$aMGPos[0] - 30, +$aMGPos[1] - 80) ;Guictrlsetpos($child_tab,10,10,+$aMGPos[0]-50,+$aMGPos[1]-100) GUICtrlSetPos($main_tab, 10, 10, +$aMGPos[0] - 20, +$aMGPos[1] - 50) GUICtrlSetPos($listview2, 10, 10, +$aMGPos[0] - 30 - 20, +$aMGPos[1] - 80 - 20) EndFunc ;==>WM_SIZE 8) If you add this line #include <windowsconstants.au3> then it works fine with Beta 3.2.11.0 Thanks for the credit Valuater, but I'm sure there's nothing of mine in there. I think the script was mainly from Xenobiologist (Mega) though. Edited February 6, 2008 by martin Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script. 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