While Gadget Is Pressed?

ToastEater · Post by **ToastEater** » Fri Aug 18, 2006 2:02 am

Ima currectly making a quite big project there controls lot of files.
Within there have to be a MP3.
Its working perfectly with the mciSendString but there is still one problem, with the Trackbar for change the time.
I need something about when a Gadget is hold down it wont go futhure in the code.
sorry bad explanation bad english here - my bad.
Something like this

Code: Select all

...
...
...

Repeat
  
  Event = WindowEvent()
  Select Event
  case bla
     ...
  case otherbla
    ....
    Case #PB_Event_Gadget
      Select EventGadget()
          Case MyTrack
              While Track_Is_Press
                   ; Do nothing
                   Delay(20) ; For flickking
              Wend
                   ;  Seek in the mp3 of the Track
      endselect
   EndSelect
Until Event = #PB_Event_CloseWindow

Sorry for bad english hope you understand.
Thanks a bunch already
Regards

netmaestro · Post by **netmaestro** » Fri Aug 18, 2006 4:20 am

I can't understand - if you trap the loop while the trackbar is pressed, you can't move the trackbar, rendering it useless. What exactly are you trying to prevent happening?

ToastEater · Post by **ToastEater** » Fri Aug 18, 2006 5:37 am

to have a Trackbar Desideing he position of a mp3 file playing

netmaestro · Post by **netmaestro** » Fri Aug 18, 2006 5:46 am

I'd like to help but I just can't understand what you're trying to accomplish, I'm sorry.

ToastEater · Post by **ToastEater** » Fri Aug 18, 2006 6:13 am

@NetMaestro I'd like to help but I just can't understand what you're trying to accomplish, I'm sorry.
I know Thanks

.

okay i past a bit of my code

Code: Select all

Select EventGadget()
  Case _mp3timetrack
    mciseek(GetGadgetState(_mp3timetrack))
EndSelect

Very simply if the _mp3timetrack have been touch it will change the playing too. But when use it it just make a joke outta the track.

ToastEater · Post by **ToastEater** » Sat Aug 19, 2006 12:53 pm

Anybody ?

i can't get my Track button to my timer to work

localmotion34 · Post by **localmotion34** » Sat Aug 19, 2006 2:48 pm

i am working on a solution. it might be one more day. OK?

Sparkie · Post by **Sparkie** » Sat Aug 19, 2006 3:03 pm

Hi ToastEater. Is this what you are looking for? If you move the Trackbar with the left mouse button or any of the Up/Down/Left/Right keys, you bypass the call to mci3seek until the mouse button or key has been released. This works on Windows only as it uses API (GetAsyncKeyState_).

Code: Select all

#mp3timetrack = 1

If OpenWindow(0, 0, 0, 320, 200, "TrackBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
  TextGadget(0, 10, 90, 280, 20, "Move the Trackbar")
  TrackBarGadget(#mp3timetrack, 10, 120, 280, 20, 0, 30, #PB_TrackBar_Ticks)
  SetGadgetState(#mp3timetrack, 20)
  Repeat
    event = WaitWindowEvent()
    Select EventGadget() 
      Case #mp3timetrack 
        If GetAsyncKeyState_(#VK_LBUTTON) Or GetAsyncKeyState_(#VK_UP) Or GetAsyncKeyState_(#VK_DOWN) Or GetAsyncKeyState_(#VK_LEFT) Or GetAsyncKeyState_(#VK_RIGHT)
          ;...Do nothing while moving Trackbar
          SetGadgetText(0, "Do nothing while Trackbar is moving")
        Else
          ;...Seek and play mp3
          SetGadgetText(0, "It is now ok to seek and play mp3")
          ;mciseek(GetGadgetState(_mp3timetrack)) 
        EndIf
    EndSelect 
  Until event = #PB_Event_CloseWindow
EndIf
End

ToastEater · Post by **ToastEater** » Sun Aug 20, 2006 1:52 am

@Sparkie
Excatly what i needed thanks man

@LocalMotion34

toolate thanks anyway