FiveTech Software tech support forums

Podrian decirme por favor, como puedo abrir o cerrar la ventana en forma de zoom y Mostrar una apariencia tipo Vista.



Saludos
Erick

Erick:

Sacado de este foro:

.....
ACTIVATE DIALOG OBentr00 ON INIT (CENTRA(oDlg),lisbas:gotfocus(),lisbas:gotop()) VALID (Salir)



Function Centra( oDlg)

LOCAL nSel:= nRandom(4)
LOCAL cAni:= ""

IF nSel == 1
cAni:= AW_HOR_POSITIVE
ELSEIF nSel == 2
cAni:= AW_HOR_NEGATIVE
ELSEIF nSel == 3
cAni:= AW_VER_POSITIVE
ELSEIF nSel == 4
cAni:= AW_VER_NEGATIVE
ELSEIF nSel == 0
cAni:= AW_BLEND
ENDIF

AnimateWindow( oDlg : hWnd, 200, cAni )
oDlg : refresh()
Return 0

DLL32 function AnimateWindow( hWnd As LONG, dwTime As LONG, dwFlags As LONG ) AS LONG PASCAL ;
from "AnimateWindow" lib "user32.DLL"

/********************
#define AW_HOR_POSITIVE 1 // Animates the window from left to right. This flag can be used with roll or slide animation.
#define AW_HOR_NEGATIVE 2 // Animates the window from right to left. This flag can be used with roll or slide animation.
#define AW_VER_POSITIVE 4 // Animates the window from top to bottom. This flag can be used with roll or slide animation.
#define AW_VER_NEGATIVE 8 // Animates the window from bottom to top. This flag can be used with roll or slide animation.
#define AW_CENTER 16 // Makes the window appear to collapse inward if AW_HIDE is used or expand outward if the AW_HIDE is not used.
#define AW_HIDE 65536 // Hides the window. By default, the window is shown.
#define AW_ACTIVATE 131072 // Activates the window.
#define AW_SLIDE 262144 // Uses slide animation. By default, roll animation is used.
#define AW_BLEND 524288 // Uses a fade effect. This flag can be used only if hwnd is a top-level window.
**********************/

Espero te sirva.