MDICHILD No Fecha(Close) com METROPANEL.

[kapiaba]

Alguém já passou por isso?

 

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=41174&sid=dd684ee2aa42aae7fbf3c2053f5f46df

 

Obg. abs.

[giovanyvecchi]

João, inclua o prg tMetro.prg no seu projeto e comente uma linha que faz fechar.

	ACTIVATE WINDOW ::oWnd MAXIMIZED //;
		//ON CLICK ::oWnd:End()

Não sei o porque fizeram assim, não tem sentido fechar se clicar fora de algum controle.

[kapiaba]

Estranho Giovany, não faz o mínimo efeito, mesmo que eu coloque um QUIT, é como se o compilador naão assumisse a CLASSE TMETRO.PRG

METHOD Activate() CLASS TMetro
	   ACTIVATE WINDOW ::oWnd MAXIMIZED ;
      ON PAINT ( DrawBitmap( hDC, ::hBitmap, 0, 0, GetSysMetrics( 0 ), GetSysMetrics( 1 ) ),;
                 ::oWnd:Say( 3, 16, ::cTitle,,, ::oFont,, .T. ),;
                 ::oWnd:Say( 2, 130, CDoW( Date() ),,, ::oFont,, .T. ),;
                 ::oWnd:Say( 7, 130, CMonth( Date() ) + " " + ;
                             AllTrim( Str( Day( Date() ) ) ),,, ::oFont,, .T. ) ) // ;
     // ON CLICK ::oWnd:End()
return nil

Abs.

[kapiaba]

Giovany, será que não tem que ver com a MDICHILD.RG neste Método?

METHOD End() CLASS TMdiChild
	   local lEnd  := .f.
	   if ::bValid == nil .or. Eval( ::bValid )
      if ::oMenu != nil .and. ! ::lKeepMenu
         ::oMenu:End()
      endif
      ::oWndClient:ChildClose( Self )
      if ValType( ::bPostEnd ) == 'B'
         Eval( ::bPostEnd )
      endif
      lEnd     := .t.
   endif
return lEnd

Abs