MyBarMdi [5]

MyBarMdi [5]

Postby JESUS MARIN » Mon Apr 03, 2023 6:39 am

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)
Last edited by JESUS MARIN on Mon Apr 03, 2023 6:44 am, edited 1 time in total.
Jesús Marín
JESUS MARIN
 
Posts: 176
Joined: Wed Jan 02, 2019 8:36 am

Re: MyBarMdi [5]

Postby karinha » Mon Apr 03, 2023 10:43 am

Excelente. Congratulations.

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

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7794
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: MyBarMdi [5]

Postby JESUS MARIN » Mon Apr 03, 2023 11:10 am

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
Jesús Marín
JESUS MARIN
 
Posts: 176
Joined: Wed Jan 02, 2019 8:36 am

Re: MyBarMdi [5]

Postby karinha » Mon Apr 03, 2023 11:21 am

Busco un hueco.


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

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7794
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: MyBarMdi [5]

Postby leandro » Mon Apr 03, 2023 11:44 am

huyyyyy excelente felicitaciones :D

Amigo y piensas compartir el código? :D :D
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1669
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Re: MyBarMdi [5]

Postby JESUS MARIN » Mon Apr 03, 2023 1:33 pm

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
Jesús Marín
JESUS MARIN
 
Posts: 176
Joined: Wed Jan 02, 2019 8:36 am

Re: MyBarMdi [5]

Postby leandro » Mon Apr 03, 2023 4:18 pm

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

Muchas gracias de antemano y que te rinda.
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1669
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Re: MyBarMdi [5]

Postby Jimmy » Mon Apr 03, 2023 8:52 pm

hi,

try to use

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

   // here your resize

   LockWindowUpdate()
   oWnd:refresh()
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: MyBarMdi [5]

Postby JESUS MARIN » Tue Apr 04, 2023 4:34 am

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() }

 
Jesús Marín
JESUS MARIN
 
Posts: 176
Joined: Wed Jan 02, 2019 8:36 am

Re: MyBarMdi [5]

Postby Jimmy » Tue Apr 04, 2023 12:22 pm

hi,
JESUS MARIN wrote:It has improved a lot.

glad when i can help
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: MyBarMdi [5]

Postby JESUS MARIN » Wed Apr 05, 2023 6:44 am

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)
Jesús Marín
JESUS MARIN
 
Posts: 176
Joined: Wed Jan 02, 2019 8:36 am

Re: MyBarMdi [5]

Postby leandro » Wed Apr 05, 2023 12:31 pm

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
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1669
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Re: MyBarMdi [5]

Postby leandro » Wed Apr 05, 2023 12:38 pm

Amigo una pregunta?
Que controles son estos?
Image
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1669
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Re: MyBarMdi [5]

Postby karinha » Wed Apr 05, 2023 2:17 pm

Espetacular!! Fantistic! Parabiéns! Congratulations!

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

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7794
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: MyBarMdi [5]

Postby JESUS MARIN » Wed Apr 05, 2023 3:41 pm

leandro wrote:Amigo una pregunta?
Que controles son estos?
Image


Buenas. Son xBrowse
Jesús Marín
JESUS MARIN
 
Posts: 176
Joined: Wed Jan 02, 2019 8:36 am

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 46 guests