MyBarMdi [5]

[JESUS MARIN]

¿ Qué tiene de nuevo ?

MdiFrame tipo POPUP. Sin caption
Las solapas (que son realmente ventanas MDI) en la posición del CAPTION
Doble click sobre el espacio libre en las solapas : MAXIMIZA o RESTAURA TAMAÑO VENTANA
Cick izquerdo sobre el espacio libre en las solapas : Mueve la pantalla
Posibilidad de RESIZE en lado derecho y abajo (aunque sea una ventana POPUP) A mejorar como se visualiza. Tengo que pulir ahi mucho. No me gusta nada.
Diseño tipo navegador EDGE y Windows 11. Pero bueno, eso es relativamente fácil. Y cada uno tiene un gusto.

Saludos
Jesús Marín
Valencia (España)

[karinha]

Excelente. Congratulations.

¿Te diste cuenta de que hay muchos parpadeos? En português: Pisca, Pisca.

Regards, saludos.

[JESUS MARIN]

Buenas Joao
Si, lo se. Solo cuando se redimensiona la pantalla desde abajo o la derecha.
Es lo que he dicho antes que no me gusta. Estoy revisandolo.
Luego intentamos hablar por Skype.
Tengo esta tarde unos clientes de Santo Domingo.
Busco un hueco.
Saludos

[karinha]

Busco un hueco.

En português, no me hace sentido. -> un tiempo( en português: Brecha) jajajaja. Desculpe, falla en el google traductor.

Saludos.

[leandro]

huyyyyy excelente felicitaciones

Amigo y piensas compartir el código?

[JESUS MARIN]

Amigo y piensas compartir el código?

Si.
Cuando limpie bién el código y sin clases modificadas.
Despues de Semana Santa
Además, lo hice porque tu lo pediste

Saludos

[leandro]

Vale amigo te agradezco mucho por escuchar las peticiones que hacemos.

Muchas gracias de antemano y que te rinda.

[Jimmy]

hi,

try to use

Code: Select all  Expand view  RUN

  LockWindowUpdate( oWnd:hWnd )

   // here your resize

   LockWindowUpdate()
   oWnd:refresh()

[JESUS MARIN]

Fantastic Jimmy
It has improved a lot.

It's been a bit complex, because I move the MDI Child window, but I scale its MdiFrame window.
But it has turned out very well.

Code: Select all  Expand view  RUN

oBar:bLClicked := { | nRow, nCol | If( nRow < 25, ( CursorDrag(), oVentana:Capture(), nRowPos := nRow, nColPos := nCol, lDrag := .T. ),) }


oVentana:bLClicked = { | nRow, nCol | If( nRow > 25 .and. nRow < oVentana:nHeight-50 .and. nCol > oVentana:nWidth - 50, ( CursorWE(), LockWindowUpdate( oVentanaPrincipal:hWnd ), oVentana:Capture(), nRowPos := nRow, nColPos := nCol, lRResize := .T. ),) ,;
                                      If( nRow > 25 .and. nRow < oVentana:nHeight    .and. nRow > oVentana:nHeight- 80, ( CursorNS(), LockWindowUpdate( oVentanaPrincipal:hWnd ), oVentana:Capture(), nRowPos := nRow, nColPos := nCol, lBResize := .t. ),) }


oVentana:bMMoved = { | nRow, nCol | TrackMouseEvent( oVentana:hWnd, TME_LEAVE ),;
                               If( lDrag .and. IsOverWnd( oVentanaPrincipal:hWnd, nRow, nCol ) ,;
                                   oVentanaPrincipal:Move( oVentanaPrincipal:nTop + nRow - nRowPos, oVentanaPrincipal:nLeft + nCol - nColPos,,, .T. ), ),;
                               If( lRResize .and. IsOverWnd( oVentanaPrincipal:hWnd, nRow, nCol ) ,;
                                   ( CursorWE(),;
                                     oVentanaPrincipal:SetSize( oVentanaPrincipal:nWidth + nCol - nColPos, oVentanaPrincipal:nHeight, .t. ),;
                                     nColPos := nCol, nRowPos := nRow ), ) ,;
                               If( lBResize .and. IsOverWnd( oVentanaPrincipal:hWnd, nRow, nCol ) ,;
                                   ( CursorNS(),;
                                     oVentanaPrincipal:SetSize( oVentanaPrincipal:nWidth, oVentanaPrincipal:nHeight + nRow - nRowPos, .t. ),;
                                     nColPos := nCol, nRowPos := nRow ), ) }

oVentana:bLButtonUp = { | nRow, nCol | CursorArrow(),;
                                       oVentanaPrincipal:SetSize( oVentanaPrincipal:nWidth, oVentanaPrincipal:nHeight, .t. ),;
                                       ReleaseCapture(), lDrag := .F., lRResize := .F., lBResize := .F.,;
                                       LockWindowUpdate(), oVentana:Refresh() }

 

[Jimmy]

hi,

It has improved a lot.

glad when i can help

[JESUS MARIN]

Amigo y piensas compartir el código?

Buenos dias Leandro

Enviado a tu correo.
Versión simplificada, sin clases modificadas.
Agradezco tus impresiones y posibles mejoras.

Saludos
Jesús Marín
Valencia (España)

[leandro]

Amigo buenos días como estas?

Ya quedo compilado, ahora viene la parte demorada, implementarla dentro de la aplicación.

Cualquier duda te estaré molestando.

[leandro]

Amigo una pregunta?
Que controles son estos?

[karinha]

Espetacular!! Fantistic! Parabiéns! Congratulations!

Ni el maestro Antonio Liñares lo pudo hacer mejor. jajajajajaja

Regards, saludos.

[JESUS MARIN]

Amigo una pregunta?
Que controles son estos?

Buenas. Son xBrowse