FiveTech Software tech support forums

... resource" ; WHEN Len( oWndMain:oWndClient:aWnd ) > 0 ; ACTION Bitmap() ENDMENU MENUITEM "&Window" MENU MENUITEM "&Cascade" RESOURCE "WND_CAS" ; MESSAGE "Organize windows on cascade" ; WHEN Len( oWndMain:oWndClient:aWnd ) > 0 ; ACTION ...

La documentación del API de Windows no especifica la forma de comprobar si las ventanas mdichild estan en modo "cascade": http://msdn.microsoft.com/en-us/library/ms644912(VS.85).aspx Una solución sería modificar la Clase TMdiFrame para que anote en una DATA la última ordenación ...

Sr. Antonio, tem como saber qual a situação da ordem das MDICHILD??


Algo assim?


if !ownd:cascade() <- Não funciona. Como testar CASCADE/TILE ?
oWnd:Cascade()
endif

Obrigado

Antonio:

Muchas Gracias, voy a tratar de hacerlo con una función tipo Cascade().

Rolando

... editor de recursos. Ahora me encuentro con que, al tener muchos diálogos, estos se abren superponiéndose. Mi consulta: ¿Hay alguna función como la Cascade() pero para los diálogos?. Gracias. Rolando :D

Stefan,

> if you maximize the mdi window, you can´t resize it nor select other open mdi windows

As a temporary workaround, the "cascade" MDI menu option can be selected to restore the maximized mdichild.

... asi: ACTIVATE WINDOW oWinh MAXIMIZED VALID ( aDatos:= NIL , oRs:Close() , oBrw:= NIL , .T. ) oWnd:Cascade() oWinh:Show() oWinh:SetFocus() Le agrego la opcion Cascade(), para que me las ordene automaticamente. Espero ...

... PYME Usuario = '+WNetGetUser()); TIME DATE KEYBOARD DEFINE BUTTONBAR oBar _3D SIZE 37, 37 TOP OF oWnd DEFINE BUTTON OF oBar FILENAME "bmps\bars\cascade.bmp" TOOLTIP ; ... ACTIVATE WINDOW oWnd MAXIMIZED ; ON INIT ( Set( 7, cPathEm := Empresas( oWnd, @cNomEmp ) ), ; lActivado := IF( Veri(), .T., ...

... rows in each of the other tables by their matching file_num .. then the user will chose a 'keeper' record in lwmfs and then I will fire off a cascade update to go out and re-order the relational tables with the matching ID from lwmfs. What this program will do: 1) Allow a person to hi-lite ...

... ) > 0 MENUITEM "&Titulo Horizontal" ACTION oWnd:Tile( .t. ) ; WHEN Len( oWnd:oWndClient:aWnd ) > 0 MENUITEM "&Cascada" ACTION oWnd:Cascade() ; WHEN Len( oWnd:oWndClient:aWnd ) > 0 MENUITEM "&Siguiente ventana" + Chr( 9 ) + "Ctrl+F6" ; ACTION oWnd:NextWindow() ; WHEN Len( ...

... de Mercedes"+CHR(10)+; "Todos los derechos reservados","Acerca de Gestion Plus") SEPARATOR MENUITEM "&Cascada" ACTION oWppal:oWndClient:Cascade() ; WHEN(LEN(MEMVAR->aVentanas)>0) MENUITEM "&Mosaico" ACTION oWppal:oWndClient:Tile() ; WHEN(LEN(MEMVAR->aVentanas)>0) MENUITEM ...

... as to what I am doing wrong? Thanks, Jeff Function ReadCD() Private cNewFile, nLen, nError, cFile, cFileDir if lFirstRun cFileDir := cGetFile32("Cascade Data Files |*.smd|"+ ; "Easy II Video Data Files |*.eas|" + ; "Sierra Wave Data Files |*.sd|" ; ,"Select a file to Review") lFirstRun := .f. ...