Ajuste de ventana

[JoseLuis]

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

[Antonio Linares]

Cómo haces el degradado ?

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

[JoseLuis]

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

Code: Select all  Expand view

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

[JoseLuis]

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

[danielr cyberia®]

Saludos Cordiales Colegas!!!

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