...
MENUITEM "Account &Heads" ;
ACTION if(!wndSetFocus("Account Heads Master"),AcMaster(), )
..
*------------------------------------------------------*
Function wndSetFocus(cTitle)
*------------------------------------------------------*
/* Here is a function to prevent opening more than one copy of a MDI child window.
It also brings the window to the top and set the focus to it.
Title/Caption of the window is passed as a parameter
*/
local i:=0,lSuccess:=.f.
cTitle:=upper(cTitle)
For i=1 to len(wndMain():oWndClient:aWnd)
if upper( wndMain():oWndClient:aWnd[i]:cCaption )=cTitle
wndMain():oWndClient:aWnd[i]:setFocus()
lSuccess:=.t.
endif
Next
Return lSuccess
*-----------------------*
Function AcMaster()
*-----------------------*
...
DEFINE WINDOW oWnd MDICHILD OF WndMain() TITLE "Account Heads Master" FROM 1,5 to 35.2,95
...
...
STATIC oWnd
FUNCTION SapWin1a(oWindow)
IF ValType(oWnd) == "O"
oWnd:Restore() // Si esta minimizada la ampliamos
RETURN(NIL)
ENDIF
oWnd := NIL
#include "FiveWin.ch"
function Main()
local oWnd, oBar
DEFINE WINDOW oWnd MDI
DEFINE BUTTONBAR oBar OF oWnd 2007
DEFINE BUTTON OF oBar ACTION Child( oWnd )
ACTIVATE WINDOW oWnd
return nil
function Child( oWnd )
local oWndChild
local n
IF ( n := AScan( oWnd:oWndClient:aWnd, {|x| x:cargo == "TEST"} ) ) == 0
DEFINE WINDOW oWndChild MDICHILD OF oWnd
ACTIVATE WINDOW oWndChild
oWndChild:Cargo = "TEST"
ELSE
oWndChild = oWnd:oWndClient:aWnd[ n ]
oWndChild:SetFocus()
oWndChild:restore()
ENDIF
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 40 guests