Snippets ( GUI ) - Revision history

MLipok: /* GUI With Scrollable TabItem */

2021-08-19T21:02:53Z

GUI With Scrollable TabItem

← Older revision		Revision as of 21:02, 19 August 2021
Line 640:		Line 640:
	Local $idTab0 = GUICtrlCreateTabItem("tab0")		Local $idTab0 = GUICtrlCreateTabItem("tab0")
	#forceref $idTab0		#forceref $idTab0
	Local $hChild = GUICreate("~~Scrollbereich~~", 588, 255, 26, 45, $WS_POPUP, $WS_EX_MDICHILD, $hGui)		Local $hChild = GUICreate("Scroll area", 588, 255, 26, 45, $WS_POPUP, $WS_EX_MDICHILD, $hGui)
	Local $x = 6 ; +22		Local $x = 6 ; +22
	Local $y = 8		Local $y = 8

MLipok: /* GUI With Scrollable TabItem */

2021-08-19T21:01:26Z

GUI With Scrollable TabItem

← Older revision		Revision as of 21:01, 19 August 2021
Line 633:		Line 633:

	_Example()		_Example()

	Func _Example()		Func _Example()
	Local $hGui = GUICreate("Gui with scrollable TabItem ", 633, 350, 190, 220)		Local $hGui = GUICreate("Gui with scrollable TabItem ", 633, 350, 190, 220)

MLipok: /* GUI With Scrollable TabItem */

2021-08-19T21:00:42Z

GUI With Scrollable TabItem

← Older revision		Revision as of 21:00, 19 August 2021
Line 624:		Line 624:

	<syntaxhighlight lang="autoit">		<syntaxhighlight lang="autoit">
	~~;~ https://www.autoitscript.com/wiki/Snippets_(_GUI_)#GUI_With_Scrollable_TabItem~~
	; GUI With Scrollable TabItem		; GUI With Scrollable TabItem

MLipok: /* GUI With Scrollable TabItem */ code snippet

2021-08-19T20:59:53Z

GUI With Scrollable TabItem: code snippet

Show changes

Argumentum: /* Snapped Window */

2020-06-30T18:41:54Z

Snapped Window

← Older revision		Revision as of 18:41, 30 June 2020
Line 1,264:		Line 1,264:

	If BitAND($nEdge, 1) And Abs($nLeft - $stWinPos.x) <= $nGap Then $stWinPos.x = $nLeft + $nEdgeBorderWidth[0]		If BitAND($nEdge, 1) And Abs($nLeft - $stWinPos.x) <= $nGap Then $stWinPos.x = $nLeft + $nEdgeBorderWidth[0]
	~~If BitAND($nEdge, 2) And Abs($nTop - $stWinPos.y) <= $nGap Then $stWinPos.y = $nTop + $nEdgeBorderWidth[1]~~
	If BitAND($nEdge, 4) And Abs($nRight - $stWinPos.x) <= $nGap Then $stWinPos.x = $nRight + $nEdgeBorderWidth[2]		If BitAND($nEdge, 4) And Abs($nRight - $stWinPos.x) <= $nGap Then $stWinPos.x = $nRight + $nEdgeBorderWidth[2]
	If BitAND($nEdge, 8) And Abs($nBottom - $stWinPos.y) <= $nGap Then $stWinPos.y = $nBottom + $nEdgeBorderWidth[3]		If BitAND($nEdge, 8) And Abs($nBottom - $stWinPos.y) <= $nGap Then $stWinPos.y = $nBottom + $nEdgeBorderWidth[3]
			If BitAND($nEdge, 2) And Abs($nTop - $stWinPos.y) <= $nGap Then $stWinPos.y = $nTop + $nEdgeBorderWidth[1]

	Return $GUI_RUNDEFMSG		Return $GUI_RUNDEFMSG

Argumentum: /* Snapped Window */

2020-06-26T06:05:59Z

Snapped Window

← Older revision		Revision as of 06:05, 26 June 2020
Line 1,252:		Line 1,252:
	$tPos = _WinAPI_GetMousePos() ; These func are very time consuming and		$tPos = _WinAPI_GetMousePos() ; These func are very time consuming and
	If Not @error Then $hMonitor = _WinAPI_MonitorFromPoint($tPos) ; the user is very unlikely to move the		If Not @error Then $hMonitor = _WinAPI_MonitorFromPoint($tPos) ; the user is very unlikely to move the
	If Not @error Then $aData = _WinAPI_GetMonitorInfo($hMonitor) ; mouse into position of another monitor		If Not @error Then $aData = _WinAPI_GetMonitorInfo($hMonitor) ; mouse into position on another monitor
	If @error Then Return $GUI_RUNDEFMSG ; in less than a second.		If @error Then Return $GUI_RUNDEFMSG ; in less than a second.
	EndIf		EndIf

Argumentum: /* Snapped Window */

2020-06-26T06:05:08Z

Snapped Window

← Older revision		Revision as of 06:05, 26 June 2020
Line 1,250:		Line 1,250:
	If TimerDiff($hTimer) > 1000 Then		If TimerDiff($hTimer) > 1000 Then
	$hTimer = TimerInit()		$hTimer = TimerInit()
	$tPos = _WinAPI_GetMousePos() ; These func are very time consuming and		$tPos = _WinAPI_GetMousePos() ; These func are very time consuming and
	If Not @error Then $hMonitor = _WinAPI_MonitorFromPoint($tPos) ; the user is very unlikely to move the		If Not @error Then $hMonitor = _WinAPI_MonitorFromPoint($tPos) ; the user is very unlikely to move the
	If Not @error Then $aData = _WinAPI_GetMonitorInfo($hMonitor) ; mouse into position of another monitor		If Not @error Then $aData = _WinAPI_GetMonitorInfo($hMonitor) ; mouse into position of another monitor
	If @error Then Return $GUI_RUNDEFMSG ; in less than a second.		If @error Then Return $GUI_RUNDEFMSG ; in less than a second.
	EndIf		EndIf

Argumentum: /* Snapped Window */

2020-06-26T05:37:03Z

Snapped Window

← Older revision		Revision as of 05:37, 26 June 2020
Line 1,199:		Line 1,199:

	Global $nGap = 30 ; 30 pixels for "dramatic effect", 10 pixels should be good for the "magnetic pull"		Global $nGap = 30 ; 30 pixels for "dramatic effect", 10 pixels should be good for the "magnetic pull"
	Global $nEdge = BitOR(1, 2, 4, 8); Left, Top, Right, Bottom		Global $nEdge = BitOR(1, 2, 4, 8) ; Left, Top, Right, Bottom
	Global $nEdgeBorderWidth[4] = [0, 0, 0, 0] ; Left, Top, Right, Bottom		Global $nEdgeBorderWidth[4] = [0, 0, 0, 0] ; Left, Top, Right, Bottom

	~~Global~~ $hGUI = GUICreate("Snapped Window multi-monitor", 500, 200)		Example()
	~~Global~~ $bNewStyle = False, $idBtnStyle = GUICtrlCreateButton("Change Style", 50, 50, 200, 25)		Func Example()
	GUIRegisterMsg($WM_WINDOWPOSCHANGING, "MY_WM_WINDOWPOSCHANGING")		Local $hGUI = GUICreate("Snapped Window multi-monitor", 500, 200)
	GUISetState()		Local $bNewStyle = False, $idBtnStyle = GUICtrlCreateButton("Change Style", 50, 50, 200, 25)
			GUIRegisterMsg($WM_WINDOWPOSCHANGING, "MY_WM_WINDOWPOSCHANGING")
			GUISetState()

	While 1		While 1
	Switch GUIGetMsg()		Switch GUIGetMsg()
	Case $GUI_EVENT_CLOSE		Case $GUI_EVENT_CLOSE
	GUIDelete()		GUIDelete()
	ExitLoop		ExitLoop

	Case $GUI_EVENT_MAXIMIZE, $GUI_EVENT_RESTORE ; should not change to this style while maximized		Case $GUI_EVENT_MAXIMIZE, $GUI_EVENT_RESTORE ; should not change to this style while maximized
	GUICtrlSetState($idBtnStyle, (BitAND(WinGetState($hGUI), $WIN_STATE_MAXIMIZED) ? $GUI_DISABLE : $GUI_ENABLE))		GUICtrlSetState($idBtnStyle, (BitAND(WinGetState($hGUI), $WIN_STATE_MAXIMIZED) ? $GUI_DISABLE : $GUI_ENABLE))

	Case $idBtnStyle		Case $idBtnStyle
	$bNewStyle = Not $bNewStyle		$bNewStyle = Not $bNewStyle
	If $bNewStyle Then		If $bNewStyle Then
	GUISetStyle(BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))		GUISetStyle(BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP))
	Dim $nEdgeBorderWidth[4] = [-7, 0, 7, 7] ; adjusting for Windows 10 border scheme		Dim $nEdgeBorderWidth[4] = [-7, 0, 7, 7] ; adjusting for Windows 10 border scheme
	Else		Else
	GUISetStyle($GUI_SS_DEFAULT_GUI)		GUISetStyle($GUI_SS_DEFAULT_GUI)
	Dim $nEdgeBorderWidth[4] = [0, 0, 0, 0]		Dim $nEdgeBorderWidth[4] = [0, 0, 0, 0]
	EndIf		EndIf
	GUICtrlSetData($idBtnStyle, ($bNewStyle ? 'Undo Style' : 'Change Style'))		GUICtrlSetData($idBtnStyle, ($bNewStyle ? 'Undo Style' : 'Change Style'))
	GUIStyleRefresh($hGUI)		GUIStyleRefresh($hGUI)

	EndSwitch		EndSwitch
	WEnd		WEnd
			EndFunc ;==>Example

	Func GUIStyleRefresh($hWnd)		Func GUIStyleRefresh($hWnd)
Line 1,236:		Line 1,239:
	WinMove($hWnd, "", $aWinPos[0], $aWinPos[1], $aWinPos[2] - 1, $aWinPos[3] - 1)		WinMove($hWnd, "", $aWinPos[0], $aWinPos[1], $aWinPos[2] - 1, $aWinPos[3] - 1)
	WinMove($hWnd, "", $aWinPos[0], $aWinPos[1], $aWinPos[2], $aWinPos[3])		WinMove($hWnd, "", $aWinPos[0], $aWinPos[1], $aWinPos[2], $aWinPos[3])
	EndFunc		EndFunc ;==>GUIStyleRefresh

	Func MY_WM_WINDOWPOSCHANGING($hWnd, $iMsg, $wParam, $lParam)		Func MY_WM_WINDOWPOSCHANGING($hWnd, $iMsg, $wParam, $lParam)
Line 1,244:		Line 1,247:
	; The Static declaration speeds up the func. ( not much, nanoseconds )		; The Static declaration speeds up the func. ( not much, nanoseconds )
	Local Static $stWinPos, $tPos, $hMonitor, $aData, $nLeft, $nTop, $nRight, $nBottom, $hTimer = 0		Local Static $stWinPos, $tPos, $hMonitor, $aData, $nLeft, $nTop, $nRight, $nBottom, $hTimer = 0
	~~Local Static $tagWINDOWPOS = "hwnd hwnd;hwnd hwndInsertAfter;int x;int y;int cx;int cy;uint flags"~~
	~~; https://docs.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-windowpos?redirectedfrom=MSDN~~

	If TimerDiff($hTimer) > 1000 Then		If TimerDiff($hTimer) > 1000 Then
	$hTimer = TimerInit()		$hTimer = TimerInit()
	$tPos = _WinAPI_GetMousePos() ; These func are very time consuming and		$tPos = _WinAPI_GetMousePos() ; These func are very time consuming and
	If Not @error Then $hMonitor = _WinAPI_MonitorFromPoint($tPos); the user is very unlikely to move the		If Not @error Then $hMonitor = _WinAPI_MonitorFromPoint($tPos) ; the user is very unlikely to move the
	If Not @error Then $aData = _WinAPI_GetMonitorInfo($hMonitor) ; mouse into position of another monitor		If Not @error Then $aData = _WinAPI_GetMonitorInfo($hMonitor) ; mouse into position of another monitor
	If @error Then Return $GUI_RUNDEFMSG ; in less than a second.		If @error Then Return $GUI_RUNDEFMSG ; in less than a second.
	EndIf		EndIf

	$stWinPos = DllStructCreate(~~$tagWINDOWPOS~~, $lParam)		; https://docs.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-windowpos?redirectedfrom=MSDN
			$stWinPos = DllStructCreate("hwnd hwnd;hwnd hwndInsertAfter;int x;int y;int cx;int cy;uint flags", $lParam) ; $tagWINDOWPOS
	$nLeft = DllStructGetData($aData[1], 1)		$nLeft = DllStructGetData($aData[1], 1)
	$nTop = DllStructGetData($aData[1], 2)		$nTop = DllStructGetData($aData[1], 2)
	$nRight = DllStructGetData($aData[1], 3) - ~~DllStructGetData(~~$stWinPos~~, 5)~~		$nRight = DllStructGetData($aData[1], 3) - $stWinPos.cx
	$nBottom = DllStructGetData($aData[1], 4) - ~~DllStructGetData(~~$stWinPos~~, 6)~~		$nBottom = DllStructGetData($aData[1], 4) - $stWinPos.cy

	If BitAND($nEdge, 1) ~~and~~ Abs($nLeft - ~~DllStructGetData(~~$stWinPos~~, 3)~~) <= $nGap Then ~~DllStructSetData(~~$stWinPos~~, 3,~~ $nLeft + $nEdgeBorderWidth[0])		If BitAND($nEdge, 1) And Abs($nLeft - $stWinPos.x) <= $nGap Then $stWinPos.x = $nLeft + $nEdgeBorderWidth[0]
	If BitAND($nEdge, 2) ~~and~~ Abs($nTop - ~~DllStructGetData(~~$stWinPos~~, 4)~~) <= $nGap Then ~~DllStructSetData(~~$stWinPos~~, 4,~~ $nTop + $nEdgeBorderWidth[1])		If BitAND($nEdge, 2) And Abs($nTop - $stWinPos.y) <= $nGap Then $stWinPos.y = $nTop + $nEdgeBorderWidth[1]
	If BitAND($nEdge, 4) ~~and~~ Abs($nRight - ~~DllStructGetData(~~$stWinPos~~, 3)~~) <= $nGap Then ~~DllStructSetData(~~$stWinPos~~, 3,~~ $nRight + $nEdgeBorderWidth[2])		If BitAND($nEdge, 4) And Abs($nRight - $stWinPos.x) <= $nGap Then $stWinPos.x = $nRight + $nEdgeBorderWidth[2]
	If BitAND($nEdge, 8) ~~and~~ Abs($nBottom - ~~DllStructGetData(~~$stWinPos~~, 4)~~) <= $nGap Then ~~DllStructSetData(~~$stWinPos~~, 4,~~ $nBottom + $nEdgeBorderWidth[3])		If BitAND($nEdge, 8) And Abs($nBottom - $stWinPos.y) <= $nGap Then $stWinPos.y = $nBottom + $nEdgeBorderWidth[3]

	Return $GUI_RUNDEFMSG		Return $GUI_RUNDEFMSG
	EndFunc		EndFunc ;==>MY_WM_WINDOWPOSCHANGING
	</syntaxhighlight>		</syntaxhighlight>

Argumentum: /* Snapped Window */

2020-06-25T03:58:25Z

Snapped Window

← Older revision		Revision as of 03:58, 25 June 2020
Line 1,203:		Line 1,203:

	Global $hGUI = GUICreate("Snapped Window multi-monitor", 500, 200)		Global $hGUI = GUICreate("Snapped Window multi-monitor", 500, 200)
	~~Global $aGUIStyle = GUIGetStyle($hGUI) ; be careful the style change after opening~~		Global $bNewStyle = False, $idBtnStyle = GUICtrlCreateButton("Change Style", 50, 50, 200, 25)
	Global $bNewStyle = False, $idBtnStyle = GUICtrlCreateButton("~~Set~~ Style", 45, 50, ~~150~~, 20)
	GUIRegisterMsg($WM_WINDOWPOSCHANGING, "MY_WM_WINDOWPOSCHANGING")		GUIRegisterMsg($WM_WINDOWPOSCHANGING, "MY_WM_WINDOWPOSCHANGING")
	GUISetState()		GUISetState()
Line 1,218:		Line 1,217:

	Case $idBtnStyle		Case $idBtnStyle
			$bNewStyle = Not $bNewStyle
	If $bNewStyle Then		If $bNewStyle Then
	GUISetStyle($~~aGUIStyle[0]~~, $~~aGUIStyle~~[1], ~~$hGUI)~~		GUISetStyle(BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
	~~GUICtrlSetData~~($~~idBtnStyle, 'Change Style'~~)		Dim $nEdgeBorderWidth[4] = [-7, 0, 7, 7] ; adjusting for Windows 10 border scheme
			Else
			GUISetStyle($GUI_SS_DEFAULT_GUI)
	Dim $nEdgeBorderWidth[4] = [0, 0, 0, 0]		Dim $nEdgeBorderWidth[4] = [0, 0, 0, 0]
	~~$bNewStyle = False~~
	~~Else~~
	~~GUISetStyle(BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP), -1, $hGUI)~~
	~~GUICtrlSetData($idBtnStyle, 'Undo Style')~~
	~~Dim $nEdgeBorderWidth[4] = [-7, 0, 7, 7] ; adjusting for Windows 10 border scheme~~
	~~$bNewStyle = True~~
	EndIf		EndIf
			GUICtrlSetData($idBtnStyle, ($bNewStyle ? 'Undo Style' : 'Change Style'))
	GUIStyleRefresh($hGUI)		GUIStyleRefresh($hGUI)

Line 1,248:		Line 1,245:
	Local Static $stWinPos, $tPos, $hMonitor, $aData, $nLeft, $nTop, $nRight, $nBottom, $hTimer = 0		Local Static $stWinPos, $tPos, $hMonitor, $aData, $nLeft, $nTop, $nRight, $nBottom, $hTimer = 0
	Local Static $tagWINDOWPOS = "hwnd hwnd;hwnd hwndInsertAfter;int x;int y;int cx;int cy;uint flags"		Local Static $tagWINDOWPOS = "hwnd hwnd;hwnd hwndInsertAfter;int x;int y;int cx;int cy;uint flags"
			; https://docs.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-windowpos?redirectedfrom=MSDN

	If TimerDiff($hTimer) > 1000 Then		If TimerDiff($hTimer) > 1000 Then
Line 1,257:		Line 1,255:
	EndIf		EndIf

	~~; https://docs.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-windowpos?redirectedfrom=MSDN~~
	$stWinPos = DllStructCreate($tagWINDOWPOS, $lParam)		$stWinPos = DllStructCreate($tagWINDOWPOS, $lParam)
	$nLeft = DllStructGetData($aData[1], 1)		$nLeft = DllStructGetData($aData[1], 1)
	$nTop = DllStructGetData($aData[1], 2)		$nTop = DllStructGetData($aData[1], 2)
	$nRight = DllStructGetData($aData[1], 3) - DllStructGetData($stWinPos, 5)		$nRight = DllStructGetData($aData[1], 3) - DllStructGetData($stWinPos, 5)
	$nBottom = DllStructGetData($aData[1], 4) - DllStructGetData($stWinPos, 6)		$nBottom = DllStructGetData($aData[1], 4) - DllStructGetData($stWinPos, 6)

	If BitAND($nEdge, 1) and Abs($nLeft - DllStructGetData($stWinPos, 3)) <= $nGap Then DllStructSetData($stWinPos, 3, $nLeft + $nEdgeBorderWidth[0])		If BitAND($nEdge, 1) and Abs($nLeft - DllStructGetData($stWinPos, 3)) <= $nGap Then DllStructSetData($stWinPos, 3, $nLeft + $nEdgeBorderWidth[0])
	If BitAND($nEdge, 2) and Abs($nTop - DllStructGetData($stWinPos, 4)) <= $nGap Then DllStructSetData($stWinPos, 4, $nTop + $nEdgeBorderWidth[1])		If BitAND($nEdge, 2) and Abs($nTop - DllStructGetData($stWinPos, 4)) <= $nGap Then DllStructSetData($stWinPos, 4, $nTop + $nEdgeBorderWidth[1])
	If BitAND($nEdge, 4) and Abs($nRight - DllStructGetData($stWinPos, 3)) <= $nGap Then DllStructSetData($stWinPos, 3, $nRight + $nEdgeBorderWidth[2])		If BitAND($nEdge, 4) and Abs($nRight - DllStructGetData($stWinPos, 3)) <= $nGap Then DllStructSetData($stWinPos, 3, $nRight + $nEdgeBorderWidth[2])
	If BitAND($nEdge, 8) and Abs($nBottom - DllStructGetData($stWinPos, 4)) <= $nGap Then DllStructSetData($stWinPos, 4, $nBottom + $nEdgeBorderWidth[3])		If BitAND($nEdge, 8) and Abs($nBottom - DllStructGetData($stWinPos, 4)) <= $nGap Then DllStructSetData($stWinPos, 4, $nBottom + $nEdgeBorderWidth[3])

Argumentum: /* Snapped Window */

2020-06-25T03:24:39Z

Snapped Window

← Older revision		Revision as of 03:24, 25 June 2020
Line 1,265:		Line 1,265:

	If BitAND($nEdge, 1) and Abs($nLeft - DllStructGetData($stWinPos, 3)) <= $nGap Then DllStructSetData($stWinPos, 3, $nLeft + $nEdgeBorderWidth[0])		If BitAND($nEdge, 1) and Abs($nLeft - DllStructGetData($stWinPos, 3)) <= $nGap Then DllStructSetData($stWinPos, 3, $nLeft + $nEdgeBorderWidth[0])
	If BitAND($nEdge, 2) and Abs($nTop - DllStructGetData($stWinPos, 4)) <= $nGap Then DllStructSetData($stWinPos, 4, $nTop + $nEdgeBorderWidth[1])		If BitAND($nEdge, 2) and Abs($nTop - DllStructGetData($stWinPos, 4)) <= $nGap Then DllStructSetData($stWinPos, 4, $nTop + $nEdgeBorderWidth[1])
	If BitAND($nEdge, 4) and Abs($nRight - DllStructGetData($stWinPos, 3)) <= $nGap Then DllStructSetData($stWinPos, 3, $nRight + $nEdgeBorderWidth[2])		If BitAND($nEdge, 4) and Abs($nRight - DllStructGetData($stWinPos, 3)) <= $nGap Then DllStructSetData($stWinPos, 3, $nRight + $nEdgeBorderWidth[2])
	If BitAND($nEdge, 8) and Abs($nBottom - DllStructGetData($stWinPos, 4)) <= $nGap Then DllStructSetData($stWinPos, 4, $nBottom + $nEdgeBorderWidth[3])		If BitAND($nEdge, 8) and Abs($nBottom - DllStructGetData($stWinPos, 4)) <= $nGap Then DllStructSetData($stWinPos, 4, $nBottom + $nEdgeBorderWidth[3])