TrackbarGadget & CanvasGadget

Just starting out? Need help? Post your questions and find answers here.
bembulak
Posts: 71
Joined: Wed Feb 26, 2014 9:53 am

TrackbarGadget & CanvasGadget

Post by bembulak »

Hi all,

Is it possible that the TrackbarGadget is no friend with the CanvasGadget?
I do have a code here where I have both of them and not matter, where I place them, the TrackBarGadget overlaps the Canvas.

Once I remove the trackbar (commenting line 23), the Canvas is visible again.

Do I miss something? Thank you!

Edit:
There seems to be something wrong. I changed the TrackbarGadget to other GadgetTypes and have similar issues (with invisible objects). :?

Code: Select all

Enumeration
  #mainWin        ; Window
  #metroCanvas    ; Canvas / Drawing area
EndEnumeration

Enumeration
  #btnStartStop   ; ToggleButton
  #trkBeats       ; Trackbar
EndEnumeration

#TOGGLED_ON = 1   ; toggle states
#TOGGLED_OFF = 0

#AppTitle = "Demo Trackbar & Canvas"

Declare OnBtnStartStopClick()
Declare GadgetEvents()

; Open The Window and Create Gadgets
OpenWindow(#mainWin, 5, 5, 400, 500, #AppTitle, #PB_Window_SystemMenu)
CanvasGadget(#metroCanvas, 5, 5, 390, 390, #PB_Canvas_Border)
ButtonGadget(#btnStartStop, 5, 400, 64, 32, "Off", #PB_Button_Toggle)
TrackBarGadget(#trkBeats, 5, 450, 390, 5, 1, 4)

; Bind events
BindEvent(#PB_Event_Gadget, @GadgetEvents())
; ===========

Procedure OnBtnStartStopClick()
  Debug "Click"
  Select GetGadgetState(#btnStartStop) ; 1 = toggled, 0 = normal
    Case #TOGGLED_ON
      SetGadgetText(#btnStartStop, "On")
      ; Event
    Case #TOGGLED_OFF
      SetGadgetText(#btnStartStop, "Off")
      ; Event
  EndSelect 
EndProcedure

Procedure GadgetEvents()
  
  Select EventGadget()
    Case #btnStartStop
      OnBtnStartStopClick()
  EndSelect
  
EndProcedure
User avatar
Peter
Posts: 1086
Joined: Mon Feb 24, 2014 10:17 pm
Location: 127.0.0.1:9080
Contact:

Re: TrackbarGadget & CanvasGadget

Post by Peter »

Code: Select all

Enumeration
  #mainWin        ; Window
  #metroCanvas    ; Canvas / Drawing area
EndEnumeration

Enumeration
  #btnStartStop   ; ToggleButton
  #trkBeats       ; Trackbar
EndEnumeration
#metroCanvas and #trkBeats have the same values. ;)
bembulak
Posts: 71
Joined: Wed Feb 26, 2014 9:53 am

Re: TrackbarGadget & CanvasGadget

Post by bembulak »

Peter wrote: Tue Dec 06, 2022 9:30 pm

Code: Select all

Enumeration
  #mainWin        ; Window
  #metroCanvas    ; Canvas / Drawing area
EndEnumeration

Enumeration
  #btnStartStop   ; ToggleButton
  #trkBeats       ; Trackbar
EndEnumeration
#metroCanvas and #trkBeats have the same values. ;)
Thank you, Peter.

Forgot so much over the years … OMG. What a mistake.

:insert massive facepalm here:
Fred
Site Admin
Posts: 1506
Joined: Mon Feb 24, 2014 10:51 am

Re: TrackbarGadget & CanvasGadget

Post by Fred »

:lol:
Post Reply