FiveTech Software tech support forums

... nOption ]:SetFocus() ) color CLR_BLACK oTabs:bRClicked := { || nil } oWndChild:oBottom := oTabs oWndChild:bresized := { || IF(oWndChild#NIL,IF(!ISZOOMED(oWndChild:hwnd),oTabs:hide(),oTabs:show()),.T.) } oWndChild:Resize() ************************************* * 1 dlg * DEFINE DIALOG oDlg1 RESOURCE ...

... nOption ]:SetFocus() ) color CLR_BLACK oTabs:bRClicked := { || nil } oWndChild:oBottom := oTabs oWndChild:bresized := { || IF(oWndChild#NIL,IF(!ISZOOMED(oWndChild:hwnd),oTabs:hide(),oTabs:show()),.T.) } oWndChild:Resize() DEFINE DIALOG oDlg2 RESOURCE "TOUCHTELA2" OF oWndChild REDEFINE BROWSE ...

... ao teclar ALT-?? qualquer coisa sai do programa, verifiquei que o problema é na MdIChild.. veja: /fwh27/Source/classes/mdichild.prg METHOD IsZoomed() INLINE IsZoomed( ::hWnd ) METHOD IsIconic() INLINE IsIconic( ::hWnd ) METHOD SetSize( nWidth, nHeight ) INLINE ; // to properly resize contained ...

... n ], ::aColSrw[ n ] ) next wind_save( padr( ::cCargo, 10 ), ::oWnd ) endif // added here some line - if window was maximized and with folders if IsZoomed( ::oWnd:hWnd ) == .t. .and. ::lFld lRest := .t. ::oWnd:Hide() ::oWnd:Restore() // minimize that window endif ::LstFcs() endif if ::bEndPst ...

... NIL ) METHOD Start() CLASS TMyBasic local n := 0 if ::nWd == 1 // for MDIChilds if !::lMax for n := 1 to len( wndMain():oWndClient:aWnd ) if IsZoomed( wndMain():oWndClient:aWnd[ n ]:hWnd ) ::lMax := .t. exit endif next endif ::oWnd:Activate( if( ::lMax, "MAXIMIZED", "NORMAL" ) ) ::nPrvWnd ...