FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour ¿Dialogo que funcione como ventana?
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
¿Dialogo que funcione como ventana?
Posted: Tue Dec 04, 2018 01: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.

"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.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ¿Dialogo que funcione como ventana?
Posted: Tue Dec 04, 2018 07: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
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: ¿Dialogo que funcione como ventana?
Posted: Tue Dec 04, 2018 01: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.
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: ¿Dialogo que funcione como ventana?
Posted: 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 (fw): Select all Collapse
  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...

:-)
"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.
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: ¿Dialogo que funcione como ventana?
Posted: Wed Dec 05, 2018 03: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.

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: ¿Dialogo que funcione como ventana?
Posted: Wed Dec 05, 2018 09: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.
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: ¿Dialogo que funcione como ventana?
Posted: Thu Dec 06, 2018 10:24 AM

José

Prueba con

ACTIVATE DIALOG oDlg ON INIT oDlgAjustar(oDlg)

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: ¿Dialogo que funcione como ventana?
Posted: Thu Dec 06, 2018 02: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.

Continue the discussion

Static archive · New replies & topics via GitHub Discussions