traer ventana al primer plano

traer ventana al primer plano

Postby mastintin » Thu May 10, 2012 3:25 pm

Vengo con una pregunta seguro que facil , pero no encuentro una solucion rápida..
en un boton tengo el siguiente codigo :
oBrw:report(,,.f.)
para que me genere un reporte en una ventana no modal . Funciona perfecto salvo que la ventana generada se coloca en segundo plano. Como la traigo al frente ?
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: traer ventana al primer plano

Postby karinha » Thu May 10, 2012 3:40 pm

Code: Select all  Expand view

      oReport:oDevice:lPrvModal := .T.
      oReport:oDevice:SetPage(9)     //-> A4 //9
 
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7451
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: traer ventana al primer plano

Postby mastintin » Thu May 10, 2012 3:59 pm

Gracias por responder :D pero requiero que la ventana sea NO modal :(
saludos.
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: traer ventana al primer plano

Postby antolin » Fri May 11, 2012 9:33 am

Mastintin, intenta BringWindo( hWnd ), en teoría trae el window hWnd al prmer plano.

Saludos
Peaaaaaso de foro...
FWH 2007 - xHarbour - BCC55
antolin
 
Posts: 498
Joined: Thu May 10, 2007 8:30 pm
Location: Sevilla

Re: traer ventana al primer plano

Postby antolin » Fri May 11, 2012 10:04 am

También puedes intentar SetWindowPos(hWnd,-1,,,,,8)

Debería funcionar.

Aqui tienes unos enlaces: http://winapi.freetechsecrets.com/win32 ... dowPos.htm
y http://www.pinvoke.net/default.aspx/cor ... owPos.html aunque no son de FiveWin, esa funcion trabaja igual en FW.
Peaaaaaso de foro...
FWH 2007 - xHarbour - BCC55
antolin
 
Posts: 498
Joined: Thu May 10, 2007 8:30 pm
Location: Sevilla

Re: traer ventana al primer plano

Postby mastintin » Fri May 11, 2012 10:51 am

Gracias Antolin. Solucionado .
por si a alguien le interesa.
en xbrowse:report() al final del methodo :

Code: Select all  Expand view


   Eval( ::bGoTop )
   Eval( ::bBookMark, UBookMark )

 
   nWnd := GetActiveWindow()  //---------añadido -------------
   ::Refresh()
   ::SetFocus()

    IF !lmodal     //---------añadido
     BringWindowToTop( hWnd )  //------añadido
   endif   //----- añadido

  RELEASE FONT oFont
   RELEASE FONT oBold


 
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 67 guests