2003-11-22 06:13

'API Windows Animation
' aWindows.bas for RapidQ
' Coded by Gérald VERDIER - BinoclaR (°-°) software
' august 2003
' email : gerald.verdier@club-internet.fr
' PURPOSE : open and close windows with animation

     DECLARE FUNCTION aWindow LIB "user32.dll" ALIAS "AnimateWindow" (hwnd AS LONG, dwTime AS LONG, dwFlag AS LONG) AS LONG
     DECLARE FUNCTION  actW LIB "user32" ALIAS "EnableWindow" ( hWnd AS LONG,  fEnable AS LONG) AS LONG
     DECLARE FUNCTION ShW  LIB "user32" ALIAS "ShowWindow" (  hwnd AS LONG,  nCmdShow AS LONG) AS LONG

     DECLARE SUB aForm
     DECLARE SUB end_aForm

     CREATE AnForm AS QFORM
      CAPTION = "click me"
      Width = 242
      Height = 238
      BorderStyle = 4
      Center
      OnClick = end_aForm
     END CREATE
     CREATE Form1 AS QFORM
      Width = 280
      Height = 240
      Center
      CAPTION = "Animation"
      CREATE Button1 AS QBUTTON
       CAPTION = "open"
       Left = 96
       Top = 86
       OnClick = aForm
      END CREATE
      CREATE Button2 AS QBUTTON
       CAPTION = "close"
       Left = 96
       Top = 26
       OnClick = end_aForm
      END CREATE
      CREATE Label1 AS QLABEL
       CAPTION = "    Open or close a window with animation  "
       Left = 5
       Top = 138
       Width = 260
      END CREATE
      SHOWMODAL
     END CREATE
     aWindow(Form1.Handle,100,&h10)


     SUB aForm
      aWindow(AnForm.Handle,1000,&h4)
     END SUB

     SUB end_aForm
      shW(AnForm.Handle,0)
     END SUB

2003-11-22 06:13