Progress bar windows 10 animation

[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