I have tried to animate the opening of a window by using a routine changing the height of the form using a timer.
The problem is that clarion is too fast, so the progressive opening effect is lost.
Has anybody else tried this and got it to work?
My intention is to have windows opening from the top, or sliding in from the left or right, to give the application a more modern look.
I tried AnimateWindow some years ago, the code in window procedure looks like this:
! OF WM_SHOWWINDOW
! wh::DebugInfo('WM_SHOWWINDOW')
!
! IF SELF.animation.dwTime AND SELF.animation.dwFlags
! wh::AnimateWindow(SELF.W{PROP:Handle}, SELF.animation.dwTime, SELF.animation.dwFlags)
!! wh::AnimateWindow(SELF.W{PROP:Handle}, SELF.animation.dwTime, AW_ACTIVATE + SELF.animation.dwFlags)
! END
OF WM_CLOSE
SELF.Close()
IF SELF.animation.dwTime AND SELF.animation.dwFlags
wh::AnimateWindow(SELF.W{PROP:Handle}, SELF.animation.dwTime, AW_HIDE + SELF.animation.dwFlags)
END
WM_SHOWWINDOW branch is commented out because I could not make AnimateWindow to work on window opening. On closing it works, but IIRC only for non-MDI windows.