Resulta que empezando la aplicación, usando entorno MDI, me atranco con un problema, y no pequeño.
Defino la WINDOW principal como MDI y las demás MDICHILD... hasta ahà correcto.
El tema que me deja atorado, es que en la ventana principal, si tengo algun control como por jemplo una ExplBar, esa no está "habilitada" no se puede utilizar, es como si se dehabilitaran los controles (también los Buttons y no he probado, pero igual los GETs/EDITs) al estar en MDI.
No asà las BUTTONBAR... esas si estan "operativas"
Y... otra cosa añadida, si se crea una ventana hija y se arrastra por la ventana, el contenido en ella es "eliminado" - "borrado", como si pasaras una goma por donde se pasea la ventana hija. (arrastrar la ventana por encima de la ExplBar y vereis que la va borrando por donde se situa la ventana hija)
Alguna razón???
Algo que se me pase y deba de corregir???
Gracias, y Felices Fiestas.
aquà el código.
Defino la WINDOW principal como MDI y las demás MDICHILD... hasta ahà correcto.
El tema que me deja atorado, es que en la ventana principal, si tengo algun control como por jemplo una ExplBar, esa no está "habilitada" no se puede utilizar, es como si se dehabilitaran los controles (también los Buttons y no he probado, pero igual los GETs/EDITs) al estar en MDI.
No asà las BUTTONBAR... esas si estan "operativas"
Y... otra cosa añadida, si se crea una ventana hija y se arrastra por la ventana, el contenido en ella es "eliminado" - "borrado", como si pasaras una goma por donde se pasea la ventana hija. (arrastrar la ventana por encima de la ExplBar y vereis que la va borrando por donde se situa la ventana hija)
Alguna razón???
Algo que se me pase y deba de corregir???
Gracias, y Felices Fiestas.
aquà el código.
#include "FiveWin.ch"
static oWnd
function Main()
local oBar
DEFINE WINDOW oWnd MDI
DEFINE BUTTONBAR oBar OF oWnd 2007 SIZE 50, 50
DEFINE BUTTON OF oBar ACTION VentanaHija()
DEFINE MSGBAR OF oWnd PROMPT "Ejemplo MDI" 2007
WITH OBJECT TExplorerBar():New( oBar:nHeight, 0, 325, oWnd:nHeight -70, oWnd )
:AddPanel( "PANEL 1 'primero'" )
:AddPanel( "PANEL 2 'segundo'" )
END WITH
ACTIVATE WINDOW oWnd
return nil
function VentanaHija()
local oWndChild, oFolder
DEFINE WINDOW oWndChild MDICHILD OF oWnd FROM 0, 50 TO 20, 40
@ 0, 0 FOLDER oFolder OF oWndChild
oWndChild:oClient = oFolder
ACTIVATE WINDOW oWndChild
return nilUn Saludo,
Xevi.
Aprendiz de la vida!!!
Xevi.
Aprendiz de la vida!!!
