FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour traer ventana al primer plano
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
traer ventana al primer plano
Posted: Thu May 10, 2012 03: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 ?

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: traer ventana al primer plano
Posted: Thu May 10, 2012 03:40 PM
Code (fw): Select all Collapse
      oReport:oDevice:lPrvModal := .T.
      oReport:oDevice:SetPage(9)     //-> A4 //9
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: traer ventana al primer plano
Posted: Thu May 10, 2012 03:59 PM

Gracias por responder :D pero requiero que la ventana sea NO modal :(
saludos.

Posts: 498
Joined: Thu May 10, 2007 08:30 PM
Re: traer ventana al primer plano
Posted: Fri May 11, 2012 09:33 AM

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

Saludos

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55
Posts: 498
Joined: Thu May 10, 2007 08:30 PM
Re: traer ventana al primer plano
Posted: 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
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: traer ventana al primer plano
Posted: Fri May 11, 2012 10:51 AM
Gracias Antolin. Solucionado .
por si a alguien le interesa.
en xbrowse:report() al final del methodo :

Code (fw): Select all Collapse
   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

Continue the discussion