Page 2 of 2

Re: Progress bar windows 10 animation

PostPosted: Fri Dec 22, 2017 5:00 am
by Antonio Linares
Antonino,

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

Code: Select all  Expand view
METHOD Initiate( hDlg ) CLASS TProgress

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

return nil


many thanks