PureBasic Forums - English

Posted: **Mon Oct 06, 2025 11:13 pm**

I know this has got to be another I/O error (idiot Operator) but I can't get passed it. Can anyone give me a clue why my two buttons and progressbar are not appearing? Was working months ago. Extranious code removed but I normally run this code in PBv5.62 and I also tried in 5.40 and 6.21 but still no good.

Code: Select all

Enumeration ; window
  #Window_0
  #Window_1
EndEnumeration
Enumeration ; gadget
  #Continue
  #Abort
  #Progress
  #FTPprogress
  #Frame
  #KillProcs_1
  #FTPdie_2
  #CheckOL3
  #ReadOL4
  #MarkOL5
  #DelPRG_6
  #DwnLd_7
  #ReStart_8
  #Frame3D_1
  #UserID_1
  #Blurb_1
  #Note_1
  #Launch_1
  #Abort_1
EndEnumeration
If LoadFont(2,"Arial",9)
  SetGadgetFont(#PB_Default,FontID(2))
EndIf
If LoadFont(3,"Verdana",9)
  SetGadgetFont(#PB_Default,FontID(3))
EndIf
HWND0 = OpenWindow(#Window_0, 100, 9, 393, 356 , "Update 1Log")
If HWND0
  Debug "make gadgets"
  If LoadFont(1,"Arial",9,#PB_Font_Bold)
    SetGadgetFont(#PB_Default,FontID(1))
    If ButtonGadget(#Continue, 275, 290, 110, 30, "CONTINUE", #PB_Button_Default) = 0
      Debug "SHIT!!!!!"
    EndIf
    If ButtonGadget(#Abort, 290, 325, 80, 20, "ABORT") = 0
      Debug "SHIT!!!!!"
    EndIf
  EndIf
  TextGadget(#Progress, 15, 305, 255, 55, mssgCTL$)
  SetGadgetFont(#PB_Default,FontID(1))
  FrameGadget(#Frame, 10, 15, 375, 265, frame$)
  FrameGadget(#Frame, 10, 15, 375, 265, frame$, #PB_Frame_Single)
  frame$ = ""
  SetGadgetFont(#PB_Default,FontID(3))
  TextGadget(#KillProcs_1, 60, 50, 300, 15, Chk1$ + "  pending")
  TextGadget(#FTPdie_2, 60, 80, 300, 15, Chk2$ + "  pending")
  TextGadget(#CheckOL3, 60, 115, 300, 15, Chk3$ + "  pending")
  TextGadget(#ReadOL4, 60, 135, 300, 15, Chk4$ + "  pending")
  TextGadget(#MarkOL5, 60, 170, 300, 15, Chk5$ + "  pending")
  TextGadget(#DelPRG_6, 60, 190, 300, 15, Chk6$ + "  pending")
  TextGadget(#DwnLd_7, 60, 225, 300, 15, Chk7$ + "  pending")
  ProgressBarGadget(#FTPprogress, 269, 225, 82, 16,1,20)
  ;HideGadget(#FTPprogress,1)
  TextGadget(#ReStart_8, 60, 250, 300, 15, Chk8$ + "  pending")
  DisableGadget(#KillProcs_1,1)
  DisableGadget(#FTPdie_2,1)
  DisableGadget(#CheckOL3,1)
  DisableGadget(#ReadOL4,1)
  DisableGadget(#DelPRG_6,1)
  DisableGadget(#MarkOL5,1)
  DisableGadget(#DwnLd_7,1)
  DisableGadget(#ReStart_8,1)
Else
  MessageRequester("Huh?","What happened?")
EndIf
Repeat : Until WaitWindowEvent = #PB_Event_CloseWindow

Posted: **Mon Oct 06, 2025 11:23 pm**

Randy Walker wrote: Mon Oct 06, 2025 11:13 pm
Code: Select all
Repeat : Until WaitWindowEvent = #PB_Event_CloseWindow

It must be

Code: Select all

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Posted: **Mon Oct 06, 2025 11:32 pm**

Hi Randy
Without proper events loop what do you expect ?

Code: Select all

Enumeration ; window
  #Window_0
  #Window_1
EndEnumeration
Enumeration ; gadget
  #Continue
  #Abort
  #Progress
  #FTPprogress
  #Frame
  #KillProcs_1
  #FTPdie_2
  #CheckOL3
  #ReadOL4
  #MarkOL5
  #DelPRG_6
  #DwnLd_7
  #ReStart_8
  #Frame3D_1
  #UserID_1
  #Blurb_1
  #Note_1
  #Launch_1
  #Abort_1
EndEnumeration
If LoadFont(2,"Arial",9)
  SetGadgetFont(#PB_Default,FontID(2))
EndIf
If LoadFont(3,"Verdana",9)
  SetGadgetFont(#PB_Default,FontID(3))
EndIf
HWND0 = OpenWindow(#Window_0, 100, 9, 393, 356 , "Update 1Log",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If HWND0 <> 0
  Debug "make gadgets"
  If LoadFont(1,"Arial",9,#PB_Font_Bold)
    SetGadgetFont(#PB_Default,FontID(1))
    If ButtonGadget(#Continue, 275, 290, 110, 30, "CONTINUE", #PB_Button_Default) = 0
      Debug "SHIT!!!!!"
    EndIf
    If ButtonGadget(#Abort, 290, 325, 80, 20, "ABORT") = 0
      Debug "SHIT!!!!!"
    EndIf
  EndIf
 TextGadget(#Progress, 15, 305, 255, 55, mssgCTL$)
 SetGadgetFont(#PB_Default,FontID(1))
  ;FrameGadget(#Frame, 10, 15, 375, 265, frame$)
  FrameGadget(#Frame, 10, 15, 375, 265, frame$, #PB_Frame_Single)
  frame$ = ""
 SetGadgetFont(#PB_Default,FontID(3))
  TextGadget(#KillProcs_1, 60, 50, 300, 15, Chk1$ + "  pending")
  TextGadget(#FTPdie_2, 60, 80, 300, 15, Chk2$ + "  pending")
  TextGadget(#CheckOL3, 60, 115, 300, 15, Chk3$ + "  pending")
  TextGadget(#ReadOL4, 60, 135, 300, 15, Chk4$ + "  pending")
  TextGadget(#MarkOL5, 60, 170, 300, 15, Chk5$ + "  pending")
  TextGadget(#DelPRG_6, 60, 190, 300, 15, Chk6$ + "  pending")
  TextGadget(#DwnLd_7, 60, 225, 300, 15, Chk7$ + "  pending")
  ProgressBarGadget(#FTPprogress, 269, 225, 82, 16,1,20)
  ;HideGadget(#FTPprogress,1)
  TextGadget(#ReStart_8, 60, 250, 300, 15, Chk8$ + "  pending")
  DisableGadget(#KillProcs_1,1)
  DisableGadget(#FTPdie_2,1)
  DisableGadget(#CheckOL3,1)
  DisableGadget(#ReadOL4,1)
  DisableGadget(#DelPRG_6,1)
  DisableGadget(#MarkOL5,1)
  DisableGadget(#DwnLd_7,1)
  DisableGadget(#ReStart_8,1)
Else
  MessageRequester("Huh?","What happened?")
EndIf
Repeat
  Select WaitWindowEvent(1)
    Case #PB_Event_CloseWindow
      Quit = 1
      
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Abort
          Quit = 1
      EndSelect
  EndSelect
Until Quit = 1

Posted: **Tue Oct 07, 2025 12:27 am**

<cough>

Code: Select all

EnableExplicit

</cough>

PureBasic Forums - English

No button or progress gadgets appearing?

No button or progress gadgets appearing?

Re: No button or progress gadgets appearing?

Re: No button or progress gadgets appearing?

Re: No button or progress gadgets appearing?