Big ProgressWheel

Extras
41

Better get Dave working on it then ! :slight_smile:

42

I will leave the ā€œthemesā€ up to the end users :slight_smile:

But for the recordā€¦ Themes should be implemented using METHODS external to the controlā€¦
not adding more overloads to SET_COLORS.

With the two overloaded versions of SET_COLORS, the end user has endless flexibitiy in how the end result looks

43

Right - just looked at the SetColor method.

Could one of you 2 please tell me what code I need to edit in order to change each petal to red, white and blue?
Once I know how to do this once, I will know for future reference.

Thanks

44

create a method (outside of the control)

SUB set_my_flag
   BigWheel1.Set_Color(0)=&cFF0000 ' red
  ..... fill in code here for 1 to 10
  BigWheel1.Set_Color(11)=&c0000FF ' blue
END SUB

call that sub at any time, and the wheel will immediately switch to your color theme

SUB set_my_flag
  for i=0 to 9 step 3
   BigWheel1.Set_Color(i)=&cFF0000 ' red
   BigWheel1.Set_Color(i+1)=&cFFFFFF ' white
  BigWheel1.Set_Color(i+2)=&c0000FF ' blue
next i
END SUB
45

THANK YOU DAVE !

46

If the wheel is to be displayed against a white background, only two petal colors are necessary : red and blue.

SUB set_my_flag for i as integer =0 to 9 step 2 Bigwheel1.Set_Colors(i)=&cFF0000 ' red BigWheel1.Set_Colors(i+1)=&c0000FF ' blue next i END SUB

Dave : Somehow the wheel does not turn well with two petal colors. It seems to jump instead of spinning regularly. Blue skips position 1 oā€™clock and two blue are adjacent at 2 and 3 oā€™clock. I looked at the canvas paint event but could not figure out why.

47

You must define a color for all petals (0 thru 11ā€¦ or the constant PETAL_COUNT)

0 to 9 step 3ā€¦ ends with 9,10 and 11
but 0 to 9 step 2 ends with 8 and 9 ā€¦ 10 and 11 are never defined that way

48

Thanks. But the problem persists with step 0 to 11. I am a bit tired to dive into the logic. Will do that tomorrow.

49 
  for i as integer =0 to 11 step 2
    Bigwheel1.Set_Colors(i)=&cFF0000 ' red
    BigWheel1.Set_Colors(i+1)=&c0000FF ' blue
  next i

seems to work just fine

50

As you can see, there is a problem at 2 and 3 oā€™clock, and 8 and 9. Unless I am mistaken, the wheel should alternate colors evenly.

51

download a new versionā€¦

I also found a problem where it got confused and frozeā€¦ that is fixed also

52

[quote=84939:@Dave S]download a new versionā€¦

I also found a problem where it got confused and frozeā€¦ that is fixed also[/quote]

Great. Everything A.OK. Congratulations. We are now ready for Independence Day, Bastille Day, and Richardā€™s country patriotic events. And maybe even The Netherlands, as they use the same colors.

I repost the download link now scrolled miles away above :
BigWheel

53

I noticed that Photoshop on the Mac uses a small progresswheel instead of the standard wait cursor.

This gave me the idea to place the big ProgressWheel around the cursor.

I added a timer with a period of 1 to Dave project with the following in it :

Sub Action() Window1.BigWheel1.left = system.MouseX-Window1.left- 47 Window1.BigWheel1.top = system.mousey-Window1.top-45 app.MouseCursor = system.cursors.wait End Sub

I made the window larger to see the wheel travel :slight_smile:

One could use the same trick with the standard ProgressWheel around the arrow cursor :wink: