FADE IN AND FADE OUT

Post Reply
User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

FADE IN AND FADE OUT

Post by Silvio.Falconi »

Can I make a fadein/out of a control there is on a dialog ?
have you a sample pls ?
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
AntoninoP
Posts: 347
Joined: Tue Feb 10, 2015 9:48 am
Location: Albenga, Italy
Contact:

Re: FADE IN AND FADE OUT

Post by AntoninoP »

User avatar
Silvio.Falconi
Posts: 4956
Joined: Thu Oct 18, 2012 7:17 pm

Re: FADE IN AND FADE OUT

Post by Silvio.Falconi »

Yes because the solution founded not run ok
I use : FiveWin for Harbour August 2020 (Revision) - Harbour 3.2.0dev (r1712141320) - Bcc7.30 - xMate ver. 1.15.3 - PellesC
User avatar
Jimmy
Posts: 165
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: FADE IN AND FADE OUT

Post by Jimmy »

hi,

not sure if you search this
https://docs.microsoft.com/en-us/window ... matewindow

Code: Select all

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
Post Reply