FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour dialogo o ventana pantalla completa
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 01:41 PM

Buenos dias para todos

Queria saber como puedo iniciar un dialogo o window en modo pantalla completa?

Saludos

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 02:25 PM

ACTIVATE WINDOW oWnd MAXIMIZED ?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 03:23 PM

Gracias Cristobal por responder

Pero no es lo que necesito... si no que la ventana de aplicación... se ubique por encima de todas las aplicaciones de windows y que en modo pantalla completa...

Algo similar a lo que hace youtube cuando colocas un video en pantalla completa.

De antemano gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 03:46 PM
leandro wrote:Gracias Cristobal por responder

Pero no es lo que necesito... si no que la ventana de aplicación... se ubique por encima de todas las aplicaciones de windows y que en modo pantalla completa...

Algo similar a lo que hace youtube cuando colocas un video en pantalla completa.

De antemano gracias

Colega, disculpe la intromision, pero la respuesta de Navarro es la correcta a su pregunta...solo que no preguntastes bien lo que querias...a veces sucede que decimos o escribimos cosas creyendo son las que estamos pensando y que se nos va a entender...por eso hay que ser en PROGRAMACION, muy detallista...tambien le iba a responder lo mismo que Navarro hasta que lei su respuesta a lo que el le dijo...ojo, no es un regañp ni nada parecido, solo una observacion GENERAL...por experiencia propia es que hago mi acotacion ya que tambien me ha pasado.

Lo que quieres es que tu sistema se sobre-ponga a las aplicaciones abiertas...creo hay algo por alli en el foro...buscare y si lo consigo..respondo. gracias...saludos... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 03:47 PM

Leandro,

algo assim:

function Main()

local oDlg, oIco, cTest := "Hello world! "

DEFINE ICON oIco FILE "..\icons\fivewin.ico"

DEFINE DIALOG oDlg TITLE "I am a DialogBox" COLOR "W+/B" ;
ICON oIco

@ 1, 3 GET cTest

@ 3, 5 BUTTON "&Ok" SIZE 40, 12 ;
ACTION MsgInfo( "Any action here!" ) DEFAULT

@ 3, 16 BUTTON "&Cancel" SIZE 40, 12 ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED on init(ConfiguraDialogPrincipal(odlg)) ;
VALID MsgYesNo( "Do you want to end ?" )

return nil

static procedure ConfiguraDialogPrincipal( oDialog )

oDialog:maximize()
oDialog:center()

return

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
VitalJavier
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 03:50 PM
Yo tengo algo asi :

Code (fw): Select all Collapse
oTB := TaskBar()   <<- Esta es una clase
oTB:HideShowTaskBar(.F.)

        DEFINE WINDOW oWin Title "Sistema Empresarial..." Icon "AAsesores" NOICONIZE NOSYSMENU BORDER NONE NOCAPTION
                oWin:bPainted := {|hDC| CBmpTiled(hDC,oWin,oBmp1)}              
       ACTIVATE WINDOW oWin Maximized 
       oTB:HideShowTaskBar(.T.)


Espero y te sirva
Saludos.
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 05:11 PM
Leandro:

Buscando en el baúl de los recuerdos encontré esto, aunque es para un dialogo
tal vez te sirva para una ventana.

Code (fw): Select all Collapse
ACTIVATE DIALOG oDlg ON INIT DlgOnTop((.T.),oDlg:hWnd)
..
..
..

FUNCTION DlgOnTop(lState,hWnd)
LOCAL nRet := 0
DEFAULT hWnd := GetActiveWindow()
IF lState
   nRet := AcpOnTop(hWnd,-2.0.0.0.0.3)
ELSE
   nRet := AcpOnTop(hWnd,-1.0.0.0.0.3)
ENDIF
RETURN(nRet)


dll32 STATIC FUNCTION AcpOnTop(hWnd AS LONG, hWndInsertAfter AS LONG, x AS LONG, y AS LONG, ex AS LONG, cy AS LONG, wFlags AS LONG);
AS LONG PASCAL FROM "SetWindowPos" LIB "User32.dll"


Ojalá te sirva, Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 05:14 PM
Leandro:

Algo más simple :-)

Code (fw): Select all Collapse
    ACTIVATE DIALOG oDlg ON INIT SetWindowPos( oDlg:hWnd, -1, 0, 0, 0, 0, 3 )


Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 06:23 PM

Gracias a Armando consegui esto, espero te ayude...saludos... :shock:

viewtopic.php?f=6t=24061p=129634hilit=SetWindowPossid=843b1321ba72b79b6ddf67e8d49c18b1#p129634

viewtopic.php?f=6t=14366p=74173hilit=SetWindowPossid=843b1321ba72b79b6ddf67e8d49c18b1#p74173

http://winapi.freetechsecrets.com/win32 ... dowPos.htm

http://www.pinvoke.net/default.aspx/cor ... owPos.html

&&&&&&&&

Dios no está muerto...



Gracias a mi Dios ante todo!
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: dialogo o ventana pantalla completa
Posted: Fri Jan 29, 2016 07:01 PM

Todo es aún más sencillo.
En los ejemplos touch de fwh se usan ventanas a pantalla completa.

leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: dialogo o ventana pantalla completa
Posted: Sun Jan 31, 2016 02:30 PM

Muchas Gracias a todos por responder

Pruebo y comento

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Sistem
Posts: 226
Joined: Sun May 13, 2012 07:52 AM
Re: dialogo o ventana pantalla completa
Posted: Mon Feb 01, 2016 12:13 AM

+1

DEFINE DIALOG oDlg STYLE nOr(WS_POPUP, WS_VISIBLE)

ACTIVATE DIALOG oDlg CENTERED ON INIT ShowWindow(oDlg:hWnd, 3)

FWH2008 | xHarbour | BCC74 | SQLRDD
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: dialogo o ventana pantalla completa
Posted: Mon Feb 15, 2016 07:54 PM

hmpaquito Muchas Gracias

Algo así es lo que estoy tratando de hacer.... voy a probar por ese lado y comento.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Continue the discussion

Static archive · New replies & topics via GitHub Discussions