Page 1 of 1
Ajuste de ventana
Posted: Sun Jun 03, 2007 2:18 pm
by 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
Posted: Sun Jun 03, 2007 2:21 pm
by Antonio Linares
Cómo haces el degradado ?
Y si quieres que el explorer ocupe toda la ventana, ¿ para que quieres el degradado ?
Posted: Sun Jun 03, 2007 2:51 pm
by JoseLuis
Hola Antonio
El degradado lo hago con un fuente que vi en éste foro, así
Code: Select all
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
Posted: Sun Jun 03, 2007 3:19 pm
by 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
Posted: Sun Jun 03, 2007 6:16 pm
by danielr cyberia®
Saludos Cordiales Colegas!!!
Poque no nos muestra tu fuente completa para poder ver y probar la falla!!!
Eso seria bueno!!!
