¿Dialogo que funcione como ventana?

¿Dialogo que funcione como ventana?

Postby JoseAlvarez » Tue Dec 04, 2018 1:58 am

Hola a todos los foristas.
Saludos.

Hice un menu principal pero usando un cuadro de dialogo en lugar de una ventana.
Lo hice así por la facilidad de hacer los controles con recursos.
Ahora necesito resolver como hacer para que el dialogo se adapte a los diferentes tamaños de resolución de monitores.

Se puede "incrustar" un dialog dentro de una ventana y que funcionen como uno? quizás estoy hablando locuras con esto, pero es la mejor forma que encuentro para describir lo que necesito hacer.

Dejo una imagen de muestra. Este es el dialogo con el menu principal. Todo hecho con workshop.

Image
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 792
Joined: Sun Nov 09, 2014 5:01 pm

Re: ¿Dialogo que funcione como ventana?

Postby Antonio Linares » Tue Dec 04, 2018 7:34 am

José,

Prueba a usar este estilo en el diálogo: WS_OVERLAPPEDWINDOW

Añádelo en el fichero de recursos
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42063
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: ¿Dialogo que funcione como ventana?

Postby JoseAlvarez » Tue Dec 04, 2018 1:18 pm

Hola Antonio, saludos.

Ya lo intenté como me dijiste, pero no funciona.

Sigo buscando...
:D
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 792
Joined: Sun Nov 09, 2014 5:01 pm

Re: ¿Dialogo que funcione como ventana?

Postby JoseAlvarez » Wed Dec 05, 2018 12:50 am

Hola Antonio,

Saludos Nuevamente...

Encontré la solución a lo que buscaba con la ayuda del amigo Giancarlo sabattino de acá de Venezuela también.

Finalmente solo hizo falta esto:

Code: Select all  Expand view
 hWnd   := CreateDc( 'DISPLAY', ',' )
 nAlto  := GetDeviceCaps( hWnd,  10) //VERTRES )
 nAncho := GetDeviceCaps( hWnd,  8) //HORZRES )
 oDlg_MainMenu:SetSize( (nAncho), (nAlto) )
 oDlg_MainMenu:Move(0,0)
 oDlg_MainMenu:Refresh()

 


De esta forma, puedo manejar un cuadro de dialogo hecho desde recursos con WorkShop como si fuese una ventana en el sentido de que se ajuste automáticamente al tamaño de la pantalla según la resolución.

Gracias por la ayuda y la atención prestadas..

Hasta la próxima...

:D
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 792
Joined: Sun Nov 09, 2014 5:01 pm

Re: ¿Dialogo que funcione como ventana?

Postby jnavas » Wed Dec 05, 2018 3:00 am

oDlg:bInit:={||oDlgAjustar(oDlg)
ACTIVATE DIALOG oDlg

RETURN .T.

FUNCTION oDlgAjustar(oDlg)
LOCAL aCoors:=GetCoors( GetDesktopWindow() )
oDlg:Move(0,0,aCoors[3],aCoors[4],.T.)
RETURN .T.
User avatar
jnavas
 
Posts: 479
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela

Re: ¿Dialogo que funcione como ventana?

Postby JoseAlvarez » Wed Dec 05, 2018 9:26 pm

Excelente Juan,

Funciona perfecto también, aunque no abarca la pantalla completa como lo quiero, pero funciona muy bien y con menos código.

Creo que decantaré por esta opción.

Agradecido !

Muchas Gracias !

:D
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 792
Joined: Sun Nov 09, 2014 5:01 pm

Re: ¿Dialogo que funcione como ventana?

Postby jnavas » Thu Dec 06, 2018 10:24 am

José

Prueba con

ACTIVATE DIALOG oDlg ON INIT oDlgAjustar(oDlg)
User avatar
jnavas
 
Posts: 479
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela

Re: ¿Dialogo que funcione como ventana?

Postby JoseAlvarez » Thu Dec 06, 2018 2:07 pm

ya probé Juan.
Aún no se maximiza correctamente. Puede ser algo que tenga yo por este lado en el diseño.

Pero igual puedo aplicarlo para solucionar lo que necesitaba.

Gracias nuevaente por tu ayuda.
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 792
Joined: Sun Nov 09, 2014 5:01 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 49 guests