SysCtrl PANEL BLACK

[karinha]

João
MDI NO FUNCIONA

Ahora se complicó. Utilizo MDI en todos los proyectos, me perdí. jajajajaja.

Regards, saludos.

[Antonio Linares]

João,

Please try this:

oMetro := MakeMetroPanel( oWnd:oWndClient )

[karinha]

Todo iba tan bien ... Que Lástima.

https://imgur.com/s1Rqz8t



Regards, saludos.

[karinha]

João,

Please try this:

oMetro := MakeMetroPanel( oWnd:oWndClient )

Perfecto mi amado GURU. Eres simplemente mi mayor ídolo. Me gustas más que Bill Gates. jajajajajajajajaja.

https://imgur.com/FyOHeWp



Regards, saludos.

[karinha]

Eliminando el MENU de la WINDOW MDI: Me gusta FiveWin the best!!

Code: Select all  Expand view

   // ON INIT ( oWnd:oMenu:End() ) -> ELIMINA EL MENU DEL MDI. FIVEGURU.PRG
   ACTIVATE WINDOW oWnd MAXIMIZED                                   ;
      ON INIT( oWnd:oMenu:End(), oMetro:Show(), oMetro:SetFocus() ) ;
      VALID( CIERRA_METROWIN( oWnd ) )
 

Regards, saludos.

[karinha]

Asi, parece ser mejor y mas rápido:

Code: Select all  Expand view

   DEFINE WINDOW oWnd TITLE cTitle MDI                                       ;
      COLOR CLR_WHITE, CLR_GREEN ICON ".\TIMAO.ico"

   oWnd:oMenu:End()
   oWnd:Maximize()
 

Regards, saludos.

[sysctrl2]

gracias Maestro Antonio !

Joao
puedes compartir el ejemplo con MDI ?
Muchas gracias !!!

[karinha]

gracias Maestro Antonio !

Joao
puedes compartir el ejemplo con MDI ?
Muchas gracias !!!

Aguarde más un poquito César. haciendo pruebas e cuasi loko de felicidad... jajajajajajajajajajaja.. Broma, broma, broma.

Usando MDICHILD:

https://imgur.com/hvUuuuQ



Regards, saludos.

[karinha]

Pronto César. METROWIN.PRG Versión: 3.0, usando MDICHILD. Very good!!

Download completo. Críticas, porfa.

https://mega.nz/file/YEFBhQjZ#Ze0YeqMG5iZen4Fe7fH705UAECzof5rI1s67VdYNJZQ

Regards, saludos.

[sysctrl2]

Muchas gracias
hay que probar !

[karinha]

Buén dia. Creo que hay un error aqui:

Code: Select all  Expand view

METHOD Destroy() CLASS TMetroBtn

   if ::oDragCursor != nil
      RELEASE CUSROR ::oDragCursor
   endif

return ::Super:Destroy()
 

Regards, saludos.