touch.prg

[Otto]

Hello Antonio,
if you slide a bit and then click you see the input dialog. Then if you enter PW and user you get into metroUI.
But metroUI is not operable any more.
If you slide till you see the icon and then click on the icon all is working.
Best regards,
Otto

[Antonio Linares]

Otto,

You may oWnd:Disable() the main window until the slider ends and then oWnd;Enable() it

[Otto]

Hello Antonio,
can you please show me where to put oWnd:Disable() and oWnd:Enable().
Best regards,
Otto

[Antonio Linares]

Otto,

I placed them insize Class TSliderMetro:

Code: Select all  Expand view  RUN

METHOD GoTop() CLASS TSliderMetro

   ::oBmp:oWnd:Disable()

   while ::oBmp:nTop > -ScreenHeight() - 100
      ::oBmp:nTop -= 10
      SysRefresh()
   end

   ::oBmp:oWnd:Enable()

return nil
 

Here it seems to be working fine, please test it, thanks