Android Question Change button colors

klaus said:

I made a small test project and this code works:

B4X:

Private Sub btn_DoTransaction_Click

    Log("Wait")
    btn_DoTransaction.Background = cdClick
    btn_DoTransaction.TextColor = tColorClick

    Sleep(1000)
   
    btn_DoTransaction.Background = cdRelease
    btn_DoTransaction.TextColor = tColorRelease
   
    Log("Done")
'    HideAllPages
'    ShowTransactionPage

End Sub

Be aware that if the user clicks on the button before the second is passed the code will be executed once more.
The logs are just there to see that the program holds for 1 second.

Click to expand...

Zeev Goldstein said:

Hi
I'm using a simple button. When pressed on the click action I'd like to change its color for a second, set it back to the original and only then execute the rest of click actions.
This is to give look & feel of the click.
Is there is simple way to do that?
I manage to change the color but it doesn't wait so the user can see the color change and back...

Anyone?

Thanks

Click to expand...

Zeev Goldstein said:

Thanks, so you did it in the click sub not in another one. I did it with dedicated sub so i can use it for other buttons click, this way i need to do it for every button

Click to expand...

Private Sub btn_DoTransaction_Click

    Log("Wait")
    
    ChangeColor(btn_DoTransaction)
    
    Log("Done")
    
'    HideAllPages
'    ShowTransactionPage

End Sub

Private Sub ChangeColor(btn As Button)
    btn.Background = cdClick
    btn.TextColor = tColorClick
    
    btn.Enabled = False
    Sleep(1000)
    btn.Enabled = True
    
    btn.Background = cdRelease
    btn.TextColor = tColorRelease
End Sub

klaus said:

You could use this:

B4X:

Private Sub btn_DoTransaction_Click

    Log("Wait")
    btn_DoTransaction.Background = cdClick
    btn_DoTransaction.TextColor = tColorClick
  
    btn_DoTransaction.Enabled = False
    Sleep(1000)
    btn_DoTransaction.Enabled = True
  
    btn_DoTransaction.Background = cdRelease
    btn_DoTransaction.TextColor = tColorRelease
  
    Log("Done")
'    HideAllPages
'    ShowTransactionPage

End Sub

Click to expand...

klaus said:

This works too:

B4X:

Private Sub btn_DoTransaction_Click

    Log("Wait")
   
    ChangeColor(btn_DoTransaction)
   
    Log("Done")
   
'    HideAllPages
'    ShowTransactionPage

End Sub

Private Sub ChangeColor(btn As Button)
    btn.Background = cdClick
    btn.TextColor = tColorClick
   
    btn.Enabled = False
    Sleep(1000)
    btn.Enabled = True
   
    btn.Background = cdRelease
    btn.TextColor = tColorRelease
End Sub

Maybe, in your code the Try / Catch was a problem.

Click to expand...