FiveTech Support Forums

#include "FiveWin.ch"

Function Main()
Local oDlg
Define Dialog oDlg Title "Teste" From 0,0 To 300,450 Pixel
// Your code here ....

Activate Dialog oDlg Centered On Init FadeIn(oDlg) Valid FadeOut(oDlg)
Return nil

Function FadeIn(oDlg)
Local nNum
oDlg:Hide()
SetTransparency( oDlg, 0 )
oDlg:Show()
For nNum := 0 TO 255
SetTransparency( oDlg, nNum )
SysRefresh()
Next nNum
Return Nil

Function FadeOut(oDlg)
Local nNum
For nNum := 255 TO 0 STEP -1
SetTransparency( oDlg, nNum )
SysRefresh()
Next nNum
Return .t.

Function SetTransparency( oDlg, nValue )
SetWindowLong( oDlg:hWnd, -20, 524288 )
SetLayeredWindowATTributes( oDlg:hWnd, nRGB(255,0,255), nValue, 2 )
Return Nil

#include "fivewin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg SIZE 600,300 PIXEL TITLE "Dialog Fade"
   oDlg:nOpacity  := 3

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oDlg:show(), dowhile( { || SysWait(.01), ( oDlg:nOpacity += 4 ) < 251 } ) ) ;
      VALID   ( dowhile( { || SysWait(.01), ( oDlg:nOpacity -= 4 ) > 3 } ), .t. )

return nil

procedure dowhile( bCond ); while Eval( bCond ); end; return

#include "FiveWin.ch"

Function Main()
Local oDlg
Define Dialog oDlg Title "Teste" From 0,0 To 300,450 Pixel
// Your code here ....

Activate Dialog oDlg Centered On Init FadeIn(oDlg) Valid FadeOut(oDlg)
Return nil

Function FadeIn(oDlg)
Local nNum
oDlg:Hide()
SetTransparency( oDlg, 0 )
oDlg:Show()
For nNum := 0 TO 255
SetTransparency( oDlg, nNum )
SysRefresh()
SysWait(.0004)
Next nNum
Return Nil

Function FadeOut(oDlg)
Local nNum
For nNum := 255 TO 0 STEP -1
SetTransparency( oDlg, nNum )
SysRefresh()
SysWait(.0004)
Next nNum
Return .t.

Function SetTransparency( oDlg, nValue )
SetWindowLong( oDlg:hWnd, -20, 524288 )
SetLayeredWindowATTributes( oDlg:hWnd, nRGB(255,0,255), nValue, 2 )
Return Nil