FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour FADE IN AND FADE OUT
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
FADE IN AND FADE OUT
Posted: Mon Nov 18, 2019 12:02 PM

Can I make a fadein/out of a control there is on a dialog ?
have you a sample pls ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 375
Joined: Tue Feb 10, 2015 09:48 AM
Re: FADE IN AND FADE OUT
Posted: Mon Nov 18, 2019 01:32 PM

It is not a duplicate of viewtopic.php?f=3&t=37673 ?

Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: FADE IN AND FADE OUT
Posted: Mon Nov 18, 2019 02:00 PM

Yes because the solution founded not run ok

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 1772
Joined: Thu Sep 05, 2019 05:32 AM
Re: FADE IN AND FADE OUT
Posted: Mon Nov 18, 2019 09:01 PM
hi,

not sure if you search this
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-animatewindow

Code (fw): Select all Collapse
DLLFUNCTION AnimateWindow(hwnd,dwTime,dwFlags) USING STDCALL FROM USER32.DLL

     hHwnd := oDlg:GetHwnd()
     DO CASE
        CASE cOrtTaskbar = "LinksOben"
           AnimateWindow( hHwnd, 200, AW_ACTIVATE + AW_SLIDE + AW_HOR_POSITIVE + AW_VER_NEGATIVE )
        CASE cOrtTaskbar = "RechtsOben"
           AnimateWindow( hHwnd, 200, AW_ACTIVATE + AW_SLIDE + AW_HOR_NEGATIVE + AW_VER_NEGATIVE )
        CASE cOrtTaskbar = "LinksUnten"
           AnimateWindow( hHwnd, 200, AW_ACTIVATE + AW_SLIDE + AW_HOR_POSITIVE + AW_VER_POSITIVE )
        CASE cOrtTaskbar = "RechtsUnten"
           AnimateWindow( hHwnd, 200, AW_ACTIVATE + AW_SLIDE + AW_HOR_NEGATIVE + AW_VER_POSITIVE )
     ENDCASE

it need a Handle of Window to work.

have fun
greeting,

Jimmy

Continue the discussion