FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsupport.com/forums/

MyBarMdi [5]

https://fivetechsupport.com/forums/viewtopic.php?f=6&t=42981

Page 1 of 2

MyBarMdi [5]

PostPosted: Mon Apr 03, 2023 6:39 am
by JESUS MARIN
Image

¿ 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]

PostPosted: 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]

PostPosted: 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]

PostPosted: 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]

PostPosted: Mon Apr 03, 2023 11:44 am
by leandro
huyyyyy excelente felicitaciones :D

Amigo y piensas compartir el código? :D :D

Re: MyBarMdi [5]

PostPosted: Mon Apr 03, 2023 1:33 pm
by JESUS MARIN
leandro wrote:
Amigo y piensas compartir el código? :D :D


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]

PostPosted: 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]

PostPosted: Mon Apr 03, 2023 8:52 pm
by Jimmy
hi,

try to use

Code: Select all  Expand view
  LockWindowUpdate( oWnd:hWnd )

   // here your resize

   LockWindowUpdate()
   oWnd:refresh()

Re: MyBarMdi [5]

PostPosted: 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.

Image

Code: Select all  Expand view
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]

PostPosted: 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]

PostPosted: Wed Apr 05, 2023 6:44 am
by JESUS MARIN
leandro wrote:
Amigo y piensas compartir el código? :D :D



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]

PostPosted: Wed Apr 05, 2023 12:31 pm
by leandro
Amigo buenos días como estas?

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

Cualquier duda te estaré molestando.

Image

Re: MyBarMdi [5]

PostPosted: Wed Apr 05, 2023 12:38 pm
by leandro
Amigo una pregunta?
Que controles son estos?
Image

Re: MyBarMdi [5]

PostPosted: 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]

PostPosted: Wed Apr 05, 2023 3:41 pm
by JESUS MARIN
leandro wrote:Amigo una pregunta?
Que controles son estos?
Image


Buenas. Son xBrowse
All times are UTC
Page 1 of 2
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/