FiveTech Software tech support forums

Buenos dias para todos

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

Saludos

ACTIVATE WINDOW oWnd MAXIMIZED ?

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

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

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

Yo tengo algo asi :

Code: Select all  Expand view

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.

Leandro:

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

Code: Select all  Expand view

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

Leandro:

Algo más simple

Code: Select all  Expand view

    ACTIVATE DIALOG oDlg ON INIT SetWindowPos( oDlg:hWnd, -1, 0, 0, 0, 0, 3 )
 

Saludos

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

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

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

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

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

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

Muchas Gracias a todos por responder

Pruebo y comento

+1

DEFINE DIALOG oDlg STYLE nOr(WS_POPUP, WS_VISIBLE)

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

hmpaquito Muchas Gracias

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