Page 1 of 2
MyBarMdi [5]
Posted: Mon Apr 03, 2023 6:39 am
by 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)
Re: MyBarMdi [5]
Posted: Mon Apr 03, 2023 10:43 am
by karinha
Excelente. Congratulations.
¿Te diste cuenta de que hay muchos parpadeos? En português: Pisca, Pisca.
Regards, saludos.
Re: MyBarMdi [5]
Posted: Mon Apr 03, 2023 11:10 am
by 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
Re: MyBarMdi [5]
Posted: Mon Apr 03, 2023 11:21 am
by 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.
Re: MyBarMdi [5]
Posted: Mon Apr 03, 2023 11:44 am
by leandro
huyyyyy excelente felicitaciones
Amigo y piensas compartir el código?
Re: MyBarMdi [5]
Posted: Mon Apr 03, 2023 1:33 pm
by JESUS MARIN
leandro wrote:
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
Re: MyBarMdi [5]
Posted: Mon Apr 03, 2023 4:18 pm
by leandro
Vale amigo te agradezco mucho por escuchar las peticiones que hacemos.
Muchas gracias de antemano y que te rinda.
Re: MyBarMdi [5]
Posted: Mon Apr 03, 2023 8:52 pm
by Jimmy
hi,
try to use
Code: Select all | Expand
LockWindowUpdate( oWnd:hWnd )
// here your resize
LockWindowUpdate()
oWnd:refresh()
Re: MyBarMdi [5]
Posted: Tue Apr 04, 2023 4:34 am
by 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
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() }
Re: MyBarMdi [5]
Posted: Tue Apr 04, 2023 12:22 pm
by Jimmy
hi,
JESUS MARIN wrote:It has improved a lot.
glad when i can help
Re: MyBarMdi [5]
Posted: Wed Apr 05, 2023 6:44 am
by JESUS MARIN
leandro wrote:
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)
Re: MyBarMdi [5]
Posted: Wed Apr 05, 2023 12:31 pm
by 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.
Re: MyBarMdi [5]
Posted: Wed Apr 05, 2023 12:38 pm
by leandro
Amigo una pregunta?
Que controles son estos?
Re: MyBarMdi [5]
Posted: Wed Apr 05, 2023 2:17 pm
by karinha
Espetacular!! Fantistic! Parabiéns! Congratulations!
Ni el maestro Antonio Liñares lo pudo hacer mejor. jajajajajaja
Regards, saludos.
Re: MyBarMdi [5]
Posted: Wed Apr 05, 2023 3:41 pm
by JESUS MARIN
leandro wrote:Amigo una pregunta?
Que controles son estos?
Buenas. Son xBrowse