PB 6.20: Wrong progress bar minimum height?

[marcoagpinto]

Heya,

I AM SO STRESSED:

Code: Select all

Enumeration
  #WINDOW_MAIN

  #BUTTON_IMAGE_GADGET_24X24
  #BUTTON_IMAGE_GADGET_32X32
  #BUTTON
  #BUTTON_ALL_NONE
  #BUTTON_OK_CLOSE_CANCEL
  #TEXT
  #STRING
  #COMBOBOX
  #CHECKBOX
  #RADIOBUTTON
  #SPIN
  #PROGRESSBAR
  #TRACKBAR
EndEnumeration



Procedure GadgetFit(gadget)

  x=GadgetX(gadget)
  y=GadgetY(gadget)
  w=GadgetWidth(gadget)
  h=GadgetHeight(gadget)
  w_new=GadgetWidth(gadget,#PB_Gadget_RequiredSize)
  h_new=GadgetHeight(gadget,#PB_Gadget_RequiredSize)
  
  If w<>w_new Or h<>h_new
    ResizeGadget(gadget,x,y,w_new,h_new)      
  EndIf
  
EndProcedure




; Open a Window
If OpenWindow(#WINDOW_MAIN,0,0,1280,600,"Gadgets Height on each OS",#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)=#False : MessageRequester("Error", "Can't open a window.", #PB_MessageRequester_Error) : EndIf


t=LoadFont(1,"Arial",10,#PB_Font_HighQuality) ;Load Arial Font, Size 10
If t=#False : MessageRequester("Error", "Can't load Arial font.",#PB_MessageRequester_Error) : EndIf
SetGadgetFont(#PB_Default,FontID(1))    


x=1
y=1


; Button Image Gadget 24x24
CreateImage(24,24,24)
ButtonImageGadget(#BUTTON_IMAGE_GADGET_24X24,x,y,24,24,ImageID(24))
GadgetFit(#BUTTON_IMAGE_GADGET_24X24)
Debug "Button Image Gadget 24x24 (width):"+Str(GadgetWidth(#BUTTON_IMAGE_GADGET_24X24))
Debug "Button Image Gadget 24x24 (height):"+Str(GadgetHeight(#BUTTON_IMAGE_GADGET_24X24))
    
x+100
    
; Button Image Gadget 32x32
CreateImage(32,32,32)
ButtonImageGadget(#BUTTON_IMAGE_GADGET_32X32,x,y,32,32,ImageID(32))
GadgetFit(#BUTTON_IMAGE_GADGET_32X32)
Debug "Button Image Gadget 32x32 (width):"+Str(GadgetWidth(#BUTTON_IMAGE_GADGET_32X32))
Debug "Button Image Gadget 32x32 (height):"+Str(GadgetHeight(#BUTTON_IMAGE_GADGET_32X32))

x+100

; Button Gadget
ButtonGadget(#BUTTON,x,y,200,200,"ZXpy")
GadgetFit(#BUTTON)
Debug "Button Gadget (width):"+Str(GadgetWidth(#BUTTON))
Debug "Button Gadget (height):"+Str(GadgetHeight(#BUTTON))

x+100

; Button Gadget ALL/NONE
ButtonGadget(#BUTTON_ALL_NONE,x,y,200,200,"NONE")
GadgetFit(#BUTTON_ALL_NONE)
Debug "Button Gadget ALL/NONE (width):"+Str(GadgetWidth(#BUTTON_ALL_NONE))
Debug "Button Gadget ALL/NONE (height):"+Str(GadgetHeight(#BUTTON_ALL_NONE))

x+100

; Button Gadget OK/CLOSE/CANCEL
ButtonGadget(#BUTTON_OK_CLOSE_CANCEL,x,y,200,200,"CANCEL")
GadgetFit(#BUTTON_OK_CLOSE_CANCEL)
Debug "Button Gadget OK/CLOSE/CANCEL (width):"+Str(GadgetWidth(#BUTTON_OK_CLOSE_CANCEL))
Debug "Button Gadget OK/CLOSE/CANCEL (height):"+Str(GadgetHeight(#BUTTON_OK_CLOSE_CANCEL))

x+100

; Text Gadget
TextGadget(#TEXT,x,y,200,200,"ZXpy")
GadgetFit(#TEXT)
Debug "Text Gadget (height):"+Str(GadgetHeight(#TEXT))

x+100

; String Gadget
StringGadget(#STRING,x,y,200,200,"ZXpy")
GadgetFit(#STRING)
Debug "String Gadget (height):"+Str(GadgetHeight(#STRING))

x+100

; Combobox Gadget
ComboBoxGadget(#COMBOBOX,x,y,200,200)
AddGadgetItem(#COMBOBOX,-1,"ZXpy")
GadgetFit(#COMBOBOX)
Debug "Combobox Gadget (height):"+Str(GadgetHeight(#COMBOBOX))

x+100

; CheckBox Gadget
CheckBoxGadget(#CHECKBOX,x,y,200,200,"ZXpy")
GadgetFit(#CHECKBOX)
Debug "CheckBox Gadget (height):"+Str(GadgetHeight(#CHECKBOX))   

x+100

; RadioButton Gadget
OptionGadget(#RADIOBUTTON,x,y,200,200,"ZXpy")
GadgetFit(#RADIOBUTTON)
Debug "RadioButton Gadget (height):"+Str(GadgetHeight(#RADIOBUTTON)) 

x+100

; Spin Gadget
SpinGadget(#SPIN,x,y,1,1,0,9999999) ; 16/FEB/2025 changed the value to 9999999
SetGadgetText(#SPIN,"9999999") ; 16/FEB/2025 changed the value to 9999999
GadgetFit(#SPIN)
Debug "Spin Gadget (height):"+Str(GadgetHeight(#SPIN)) 

x+100

; ProgressBar Gadget
ProgressBarGadget(#PROGRESSBAR,x,y,1000,1000,0,9999999) ; 16/FEB/2025 changed the value to 9999999
GadgetFit(#PROGRESSBAR)
Debug "ProgressBar Gadget (width):"+Str(GadgetWidth(#PROGRESSBAR))
Debug "ProgressBar Gadget (height):"+Str(GadgetHeight(#PROGRESSBAR))

x+100

; TrackBar Gadget
TrackBarGadget(#TRACKBAR,x,y,1000,1000,0,9999999) ; 16/FEB/2025 changed the value to 9999999
GadgetFit(#TRACKBAR)
Debug "TrackBar Gadget (width):"+Str(GadgetWidth(#TRACKBAR))
Debug "TrackBar Gadget (height):"+Str(GadgetHeight(#TRACKBAR))

On Ubuntu 24.04 it says the minimum progress bar height is this:

ProgressBar Gadget (height):1002

Buaaaaaaaaaaaaaaaaaaaaaaa

[benubi]

It's says 0 width/height on Windows (10/x64) for the ProgressBar and the TrackBar. Seems to be a glitch; I didn't even know that there was a new (??) optional parameter added to GadgetWidth() and GadgetHeight().

I checked if maybe the event list needed to be processed first but it wouldn't make any sense anyways, didn't change a thing.