OpenEuphoria

Re: Floating Child Windows

• Posted by "Elliott S. de Andrade" <quantum_analyst at hotmail.com> Aug 07, 2004
• 416 views

Here's how you fix those pesky popup toolwindow things. Soon to be=20
added to an IDE near you. There are comments in the code.

--IDE_docking.ew
--  Causes pop-up Windows to stay active...
--  Original concept from Catch22 Productions

sequence DockWindows

-- boring stuff to get it working. keep going down....
function dockMsgHandler(integer pSource, atom hWnd, atom iMsg, atom wParam,=
=20
atom lParam)
integer fKeepActive, fSyncOthers
fKeepActive = wParam
fSyncOthers = w32True

-- UNDOCUMENTED FEATURE:
-- If the other window being activated/deactivated
-- (i.e. NOT this one) is one of our popups, then go (or stay) active.
if find(getId(lParam), DockWindows) then
	fKeepActive = w32True
	fSyncOthers = w32False
end if

-- If this message was sent by the synchronise-loop (below)
-- then exit normally. If we don't do this, there will be an infinite loop!=

if find(lParam, {-1, #FFFFFFFF}) then
	return {w32Func(xDefWindowProc, {hWnd, WM_NCACTIVATE, fKeepActive, 0})}
end if

-- This window is about to change (inactive/active).
-- Sync all other popups to the same state
if fSyncOthers then
	for i = 1 to length(DockWindows) do
		-- DO NOT send this message to ourselves!!!!
		if not(find(getHandle(DockWindows[i]), {hWnd, lParam})) then
			VOID = sendMessage(DockWindows[i], WM_NCACTIVATE, fKeepActive, -1)
		end if
	end for
end if

	return {w32Func(xDefWindowProc, {hWnd, WM_NCACTIVATE, fKeepActive,=20
lParam})}
end function

procedure destroyHandler(integer self, integer event, sequence params)
	event = find(self, DockWindows)
	DockWindows = DockWindows[1..event - 1] & DockWindows[event +=20
1..length(DockWindows)]
end procedure

function enableHandler(integer pSource, atom hWnd, atom wMsg, atom wParam,=
=20
atom lParam)
-- Synchronise all toolwindows to the same state.
for i = 1 to length(DockWindows) do
	if DockWindows[i] != getId(hWnd) then
		setEnable(DockWindows[i], wParam)
	end if
end for

	-- just do the default
    return 0
end function

-- call createDockBar() just like createEx(), but you don't need to specify=
=20
the Window parameter.
global function createDockBar(sequence pCaption, atom pOwner,
	        object pLeft, object pTop, object pWidth, object pHeight,
	        object styleFlags, object exFlags)
integer dockWnd
dockWnd = createEx(Window, pCaption, pOwner, pLeft, pTop, pWidth, pHeight=
,=20
styleFlags, exFlags)

DockWindows &= dockWnd
setWinMsgHandler(dockWnd, WM_NCACTIVATE, routine_id("dockMsgHandler"))
setHandler(dockWnd, w32HDestroy, routine_id("destroyHandler"))

	return dockWnd
end function

-- This should contain any of your MAIN windows
DockWindows = {Controls, Form}
setWinMsgHandler(DockWindows, WM_NCACTIVATE, routine_id("dockMsgHandler"))
setHandler(DockWindows, w32HDestroy, routine_id("destroyHandler"))
setWinMsgHandler(Controls, WM_ENABLE, routine_id("enableHandler"))    --=
=20
*ONLY* use for your *MAIN* windows....

~[ WingZone ]~
http://wingzone.tripod.com/

s=20
to offer.=20=20
http://join.msn.com/?pgmarket=en-ca&page=byoa/prem&xAPID=1994&DI=10=
34&SU=http://hotmail.com/enca&HL=Market_MSNIS_Taglines=20
  Start enjoying all the benefits of MSN=AE Premium right now and get the=
=20
first two months FREE*.