FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Progress bar windows 10 animation
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Progress bar windows 10 animation
Posted: Fri Dec 22, 2017 05:00 AM
Antonino,

No need to add extra code for the else. Instead Method Initiate() should be implemented:

Code (fw): Select all Collapse
METHOD Initiate( hDlg ) CLASS TProgress

   ::Super:Initiate( hDlg )
   SendMessage( ::hWnd, PBM_SETMARQUEE, If( ::WinStyle( PBS_MARQUEE ), 1, 0 ), 0 )

return nil


many thanks
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion