MDICHILD No se cierra con METROPANEL.

[karinha]

MDICHILD No se cierra con METROPANEL.

Que hago mal?

Code: Select all  Expand view  RUN

STATIC oWndBrow

   PUBLIC lFechaJan

   lFechaJan := .F.

   DEFINE METROBUTTON oBtnEmp OF oMetro                ;
      COLOR CLR_HBLUE, CLR_HGRAY                       ;
      FONT oFontSmall                                  ;
      CAPTION "FiveWin MDI"                            ;
      ALIGN "TOPRIGHT"                                 ;
      BITMAP LoadBitmap( GetResources(), "ORCAMENTO" ) ;
      BMPALIGN "BOTTOMLEFT"                            ;
      SIZE 100, 100                                    ;
      BODYTEXT "Trabando;MDIChild"                     ;
      TEXTALIGN "BOTTOMRIGHT"                          ;
      LARGE                                            ;
      ACTION( nNewChild() )

   oBtnEmp:nClrCaption := CLR_HCYAN
   oBtnEmp:cToolTip := "Usando MDICHILD da FiveTech Traba Todo"

// USANDO MDICHILD VIA TOUCH - traba todo.
FUNCTION nNewChild()

   LOCAL oDlg, oGroup, oFnt, oFont, IDCor, oSaida, aGet := ARRAY(5), oLbx
   LOCAL cAlias, oIncluir, oAlterar, oExcluir, oImprimir, lImpProposta := .T.
   LOCAL nKey, aGrad, oDuplicar, oRadMenu, cTitle, cResource

   cTitle := "PLENOIND: Assistência Técnica"

   aGrad := { { 0.30, CLR_WHITE, CLR_WHITE },{ 0.50, CLR_WHITE, CLR_WHITE } }

   DEFINE WINDOW oWndBrow MDICHILD FROM 00, 00 TO 36.7, 160.3                ;
      COLOR CLR_CYAN, CLR_WHITE TITLE cTitle MDI BORDER NONE NOMAXIMIZE

   DEFINE DIALOG oDlg NAME "BROWSE_CONDICAO_PAGTO_1280_768" OF oWndBrow      ;
      GRADIENT aGrad

   oWndBrow:bGotFocus = { || oDlg:SetFocus() }

   oDlg:lHelpIcon := .F.

   // LISTBOX... AQUI.

   REDEFINE BUTTONBMP oSaida ID 302 OF oDlg RESOURCE "154" TEXTRIGHT         ;
      ACTION ( lFechaJan := .T., oWndBrow:End(), oDlg:End() ) CANCEL

   oSaida:cTooltip := { "Click no Botão Para Sair",                          ;
                        "Saida - Exit - Cancelar ", 1, CLR_WHITE, CLR_CYAN }

   ACTIVATE DIALOG oDlg NOWAIT ;
      VALID( .NOT. GETKEYSTATE( 27 ) )

   // MDICHILD No se cierra con METROPANEL.
   ACTIVATE WINDOW oWndBrow CENTERED VALID( lFechaJan )


RETURN NIL
 

Regards, saludos.

[karinha]

Ejemplo simple que muestra que una ventana secundaria con WINDOW MDI no minimiza ni cierra la ventana secundaria.

Lo uso mucho con un menú normal y una ventana MDI.

Por favor Mestre Navarro eche un vistazo al problema.

Gracias.

regards, saludos.

Editado by João Santos.

[cnavarro]

Joao, no crees que el problema está en que tienes la clausula MDICHILD y MDI en la misma definición?, quizás tu problema vaya por ahi

DEFINE WINDOW oWndBrow ;
MDICHILD ;
FROM 00, 00 TO 36.7, 160.3 ;
COLOR CLR_CYAN, CLR_WHITE TITLE cTitle ;
MDI ;
BORDER NONE NOMAXIMIZE

[karinha]

Joao, no crees que el problema está en que tienes la clausula MDICHILD y MDI en la misma definición?, quizás tu problema vaya por ahi

DEFINE WINDOW oWndBrow ;
MDICHILD ;
FROM 00, 00 TO 36.7, 160.3 ;
COLOR CLR_CYAN, CLR_WHITE TITLE cTitle ;
MDI ;
BORDER NONE NOMAXIMIZE

No maestro Navarro el problema no es porque usé el comando MDI, ay, fue desesperación. jajajajaja.
Descargue y compile este ejemplo que estoy publicando en megaUpload, vea si hay un defecto en TMETRO.PRG o MDICHILD.PRG.
No es un error lógico, ya que la misma lógica funciona perfectamente con el menú emergente(PopUp) normal.

Dowload completo aqui maestro Navarro:

https://mega.nz/file/JckkHZTZ#R4wlqGLAt2T0Vwy-fWyBzRjX2claqfUne3-f0R19sC0


Necesito que la ventana secundaria se minimice o se cierre en X o el botón de salida y no está sucediendo, por alguna razón bloquea la ventana secundaria.

Regards, saludos.