topic-7190

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Ajuste de ventana
Posted: Sun Jun 03, 2007 02:18 PM

Hola a migos

En una aplicación arranco una ventana con un degradado como el siguiente:

Y me presenta los dialogos bien, etc, pero quiero que me presente en la ventana, el Explorer, y me lo presenta de la siguiente imagen:

Y todo esto a pesar de que le digo lo siguiente:
oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2" )
oWnd:oClient = oActiveX // To fill the entire window surface
Sin embargo, si no arranco con el degradado, me funciona perfectamente llenando el explore toda la pantalla

Saludos

Jose luis

--------------------------

Saludos

Jose Luis

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Ajuste de ventana
Posted: Sun Jun 03, 2007 02:21 PM

Cómo haces el degradado ?

Y si quieres que el explorer ocupe toda la ventana, ¿ para que quieres el degradado ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

JoseLuis

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Ajuste de ventana
Posted: Sun Jun 03, 2007 02:51 PM

Hola Antonio
El degradado lo hago con un fuente que vi en éste foro, así

Code: Select all Collapse

STAT FUNC Refr_Wnd(hDC,oWnd)

   LOCAL hWnd, nColor:=255
   LOCAL aRect, nSteps
   LOCAL oBrush, nI
   Local lInit:=.T.
   LOCAL  aCoor,letras,longi
   hWnd  :=oWnd:hWnd
   aRect :=GetClientRect(hWnd)
   nSteps:=(aRect[3]-aRect[1])/3
   aRect[3]=0
   FOR nI=1 to nSteps
      aRect[3]+=3
      DEFINE BRUSH oBrush COLOR RGB(nColor,nColor,nColor)
      FillRect(hDC,aRect,oBrush:hBrush)
      RELEASE BRUSH oBrush
      aRect[1]+=3
      nColor-=1
   NEXT nI

   SetBkMode(hDC,1)
   SetTextColor(hDC,CLR_WHITE)
   letras:="Modulo de Subida de ficheros a Web"
   longi:=len(letras)
   DrawText(hDC,letras,{oWnd:nHeight-105,1,oWnd:nHeight-10,oWnd:nWidth},1)
RETURN (NIL)

Quiero que el explorer ocupe toda la ventana, después de mostrar en ella otros Dialogos, ya que es un proceso que concluye ejecutando un archivo php en internet, pero antes me va mostrando en la ventana algunos dialogos, y en blanco me parece feo.
De todas las maneras, no se que me pasa que he quitado la rutina que hace el degradado, y me sigue con el mismo problema, cuando antes si me funcionaba. No se que habré tocado.

Saludos

Jose Luis

--------------------------

Saludos

Jose Luis

JoseLuis

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Ajuste de ventana
Posted: Sun Jun 03, 2007 03:19 PM

Bueno, para salir del atasco, lo que he hecho ha sido que el explorer lo muestre en otra ventana que se crea en ése momento.

Saludos

Jose Luis

--------------------------

Saludos

Jose Luis

danielr cyberia®

Posts: 28

Joined: Sat Apr 28, 2007 04:06 AM

Ajuste de ventana
Posted: Sun Jun 03, 2007 06:16 PM

Saludos Cordiales Colegas!!!

Poque no nos muestra tu fuente completa para poder ver y probar la falla!!!
Eso seria bueno!!!

Best Regards- Saludos y Exitos

Daniel Rivas

FiveTech Support Forums

Continue the discussion