weird behavioural of StringGadget

morosh · Post by **morosh** » Wed Oct 22, 2025 10:32 am

Hello:
in the following snippet, I can't get the focus on the String gadget #String+14, next to "Resolution" by clicking the mouse inside, I can get it using the TAB key, It works using older versions 5.73 and 6.04.

Code: Select all

EnableExplicit
UseJPEGImageEncoder()
UsePNGImageEncoder()
UsePNGImageDecoder() 

InitSound()

Define InstID.i, Event.i, GadgetID.i, fname.s{1000}, cmd.s, prg.i, choix.b, directory.s
Define result.i, PageCount.i, size.i, OutBytes.i, *Buffer, dumy1.s, dumy2.s, flag.a
Define n1.u, n2.u, len.a, resol.s, minx.d, maxx.d, miny.d, maxy.d, xnull.w, Bkgcolor.l
Global tmp.s

Define *argv, dumy.s
Define.i orig_pdf, output, i
Dim pdfs.i(2)
Define range.i
;1pt = 1/72 inch = 0.0352777 cm    1cm=28.346457  

Enumeration
  #Form
  #Panel
  #Text=#Panel+100
  #String=#Text+100
  #Button=#String+100
  #Editor=#Button+100
  #Option=#Editor+100
  #Spin=#Option+100
  #Image=#Spin+100
  #Check=#Image+100
EndEnumeration

SetGadgetFont(#PB_Default, LoadFont(0, "Arial", 9))
CreateImage(0,100,100)

OpenWindow(0,100, 100, 800, 400, "TOOLS1",  #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar )
PanelGadget(#Panel, 10, 10, 600, 350)

AddGadgetItem(#Panel, -1, "Pdf2Image")
TextGadget(#Text+10,10,10,70,15,"File name:")
StringGadget(#String+12,80,10,200,20,"")
TextGadget(#Text+11,10,40,100,20,"Pages:    From")
StringGadget(#String+10,115,40,40,20,"",#PB_String_ReadOnly)
TextGadget(#Text+12,170,40,15,20,"To")
StringGadget(#String+11,200,40,40,20,"",#PB_String_ReadOnly)
TextGadget(#Text+14,300,40,150,20,"Resolution:")
StringGadget(#String+14,375,40,60,20,"400")
CheckBoxGadget(#Check+1, 300,70,50,20,"File")
TextGadget(#Text+13,10,70,37,20,"Page:")
StringGadget(#String+13,50,70,50,23,"1")
ButtonGadget(#Button+10,285,10,30,20,"...")
ButtonGadget(#Button+11,320,10,60,20,"Convert")
EditorGadget(#Editor+2, 10,100,500,100,#PB_Editor_ReadOnly)

CloseGadgetList()

Repeat 
  Event = WaitWindowEvent()
  GadgetID = EventGadget() ; Is it a gadget event?
Until Event = #PB_Event_CloseWindow
End

Any idea?

Other question: I prefer that the color of the panel gadget stay gray not white. If in compiler options, "enable DPI aware" is checked, panel is white, otherwise it's gray if unchecked. is there a trick to keep it gray with "enable DPI aware" checked?

using PB6.30b2 - W10.

Axolotl · Post by **Axolotl** » Wed Oct 22, 2025 10:41 am

Perhaps because your text gadget is too large.

Code: Select all

TextGadget(#Text+14,300,40,150,20,"Resolution:")  ; <== x = 300 and width = 150 leads to 450 
StringGadget(#String+14,375,40,60,20,"400")       ; <== x = 375 overlapping by textgadget

BTW: what kind of advantage has this #Constant+100 coding style ?

morosh · Post by **morosh** » Wed Oct 22, 2025 11:17 am

Thank you Axoloti

Yes, this is the problem, (but it didn't come to my mind as it runs well with v6.04).
About the "#Constant+100" coding style, I'm not sure if it's a clever idea, but I use it to minimize the search for adding a new gadget, so if I need to add a new string gadget, I search for "#String+" and I note the biggest number and I increment it by 1. #Text=#Panel+100 means I reserved the place for 100 panels gadgets etc...

Still the question for the color of the Panel Gadget.

Best Regards

RASHAD · Post by **RASHAD** » Wed Oct 22, 2025 12:20 pm

Hi

Code: Select all

EnableExplicit
UseJPEGImageEncoder()
UsePNGImageEncoder()
UsePNGImageDecoder() 

InitSound()

Define InstID.i, Event.i, GadgetID.i, fname.s{1000}, cmd.s, prg.i, choix.b, directory.s
Define result.i, PageCount.i, size.i, OutBytes.i, *Buffer, dumy1.s, dumy2.s, flag.a
Define n1.u, n2.u, len.a, resol.s, minx.d, maxx.d, miny.d, maxy.d, xnull.w, Bkgcolor.l
Global tmp.s

Define *argv, dumy.s
Define.i orig_pdf, output, i
Dim pdfs.i(2)
Define range.i
;1pt = 1/72 inch = 0.0352777 cm    1cm=28.346457  

Enumeration
  #Form
  #Panel
  #Text=#Panel+100
  #String=#Text+100
  #Button=#String+100
  #Editor=#Button+100
  #Option=#Editor+100
  #Spin=#Option+100
  #Image=#Spin+100
  #Check=#Image+100
EndEnumeration

Define brush,cont
brush = CreateSolidBrush_($F0F0F0)

SetGadgetFont(#PB_Default, LoadFont(0, "Arial", 9))
CreateImage(0,100,100)

OpenWindow(0,100, 100, 800, 400, "TOOLS1",  #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar )
PanelGadget(#Panel, 10, 10, 600, 350)
cont = ContainerGadget(#PB_Any, 0, 20, 600, 350)
CloseGadgetList()
DisableGadget(cont,1)
SetClassLongPtr_(GadgetID(cont), #GCL_HBRBACKGROUND, brush)

AddGadgetItem(#Panel, -1, "Pdf2Image")
TextGadget(#Text+10,10,10,70,15,"File name:")
SetWindowLongPtr_(GadgetID(#Text+10),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+10),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+12,80,10,200,20,"")
TextGadget(#Text+11,10,40,100,20,"Pages:    From")
SetWindowLongPtr_(GadgetID(#Text+11),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+11),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+10,115,40,40,20,"",#PB_String_ReadOnly)
TextGadget(#Text+12,170,40,15,20,"To")
SetWindowLongPtr_(GadgetID(#Text+12),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+12),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+11,200,40,40,20,"",#PB_String_ReadOnly)
TextGadget(#Text+14,300,40,150,20,"Resolution:")
SetWindowLongPtr_(GadgetID(#Text+14),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+14),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+14,375,40,60,20,"400")
CheckBoxGadget(#Check+1, 300,70,50,20,"File")
TextGadget(#Text+13,10,70,37,20,"Page:")
SetWindowLongPtr_(GadgetID(#Text+13),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+13),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+13,50,70,50,23,"1")
ButtonGadget(#Button+10,285,10,30,20,"...")
ButtonGadget(#Button+11,320,10,60,20,"Convert")
EditorGadget(#Editor+2, 10,100,500,100,#PB_Editor_ReadOnly)

CloseGadgetList()

Repeat 
  Event = WaitWindowEvent()
  GadgetID = EventGadget() ; Is it a gadget event?
Until Event = #PB_Event_CloseWindow
End

Edit : Modified

morosh · Post by **morosh** » Wed Oct 22, 2025 12:33 pm

Thank you Rashad!!
but the panel still white

RASHAD · Post by **RASHAD** » Wed Oct 22, 2025 1:02 pm

Previous post updated
Choose any Color you like
Now you can see how your design is good or not
OR

Code: Select all

EnableExplicit
UseJPEGImageEncoder()
UsePNGImageEncoder()
UsePNGImageDecoder() 

InitSound()

Define InstID.i, Event.i, GadgetID.i, fname.s{1000}, cmd.s, prg.i, choix.b, directory.s
Define result.i, PageCount.i, size.i, OutBytes.i, *Buffer, dumy1.s, dumy2.s, flag.a
Define n1.u, n2.u, len.a, resol.s, minx.d, maxx.d, miny.d, maxy.d, xnull.w, Bkgcolor.l
Global tmp.s

Define *argv, dumy.s
Define.i orig_pdf, output, i
Dim pdfs.i(2)
Define range.i
;1pt = 1/72 inch = 0.0352777 cm    1cm=28.346457  

Enumeration
  #Form
  #Panel
  #Text=#Panel+100
  #String=#Text+100
  #Button=#String+100
  #Editor=#Button+100
  #Option=#Editor+100
  #Spin=#Option+100
  #Image=#Spin+100
  #Check=#Image+100
EndEnumeration

Define brush,cont
brush = CreateSolidBrush_($0)

SetGadgetFont(#PB_Default, LoadFont(0, "Arial", 9))
CreateImage(0,100,100)

OpenWindow(0,100, 100, 800, 400, "TOOLS1",  #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar )
PanelGadget(#Panel, 10, 10, 600, 350)
cont = ContainerGadget(#PB_Any, 0, 20, 600, 350)
CloseGadgetList()
DisableGadget(cont,1)
SetClassLongPtr_(GadgetID(cont), #GCL_HBRBACKGROUND, brush)

AddGadgetItem(#Panel, -1, "Pdf2Image")
TextGadget(#Text+10,10,10,70,20,"File name:",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+10),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+10),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+12,80,10,200,20,"")
TextGadget(#Text+11,10,40,100,20,"Pages:    From",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+11),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+11),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+10,115,40,40,20,"",#PB_String_ReadOnly)
TextGadget(#Text+12,170,40,24,20,"To :",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+12),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+12),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+11,200,40,40,20,"",#PB_String_ReadOnly)
TextGadget(#Text+14,300,40,70,20,"Resolution:",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+14),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+14),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+14,375,40,60,20,"400")
CheckBoxGadget(#Check+1, 300,70,50,20,"File")
TextGadget(#Text+13,10,70,35,23,"Page:",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+13),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+13),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+13,50,70,50,23,"1")
ButtonGadget(#Button+10,285,10,30,20,"...")
ButtonGadget(#Button+11,320,10,60,20,"Convert")
EditorGadget(#Editor+2, 10,100,500,100,#PB_Editor_ReadOnly)

CloseGadgetList()

Repeat 
  Event = WaitWindowEvent()
  GadgetID = EventGadget() ; Is it a gadget event?
Until Event = #PB_Event_CloseWindow
End

morosh · Post by **morosh** » Thu Oct 23, 2025 8:49 am

Thank you Rashad! Awesome as always

In addition I've added a callback function to make text gadgets and others transparent.
now it looks like this (in case that interest someone):

Code: Select all

EnableExplicit
UseJPEGImageEncoder()
UsePNGImageEncoder()
UsePNGImageDecoder() 

InitSound()

Enumeration
  #Form
  #Panel
  #Text=#Panel+100
  #Option=#Text+100
  #Check=#Option+100
  #String=#Check+100
  #Button=#String+100
  #Editor=#Button+100
  #Spin=#Editor+100
  #Image=#Spin+100

EndEnumeration

Define InstID.i, Event.i, GadgetID.i, fname.s{1000}, cmd.s, prg.i, choix.b, directory.s
Define result.i, PageCount.i, size.i, OutBytes.i, *Buffer, dumy1.s, dumy2.s, flag.a
Define n1.u, n2.u, len.a, resol.s, minx.d, maxx.d, miny.d, maxy.d, xnull.w, Bkgcolor.l
Global tmp.s

Define *argv, dumy.s
Define.i orig_pdf, output, i
Dim pdfs.i(2)
Define range.i
;1pt = 1/72 inch = 0.0352777 cm    1cm=28.346457  

Procedure WindowCallback1(hWnd,uMsg,wParam,lParam)
Define kk.u
  Select uMsg
    Case #WM_CTLCOLORSTATIC
      For kk=#Panel To #String
        If IsGadget(kk)
          If lparam = GadgetID(kk) 
            ;If kk=#Spin1 : ProcedureReturn #PB_ProcessPureBasicEvents : EndIf
            SetBkMode_(wParam,#TRANSPARENT)         
            ProcedureReturn GetStockObject_(#NULL_BRUSH)
          EndIf
        EndIf
      Next
  EndSelect
  ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

Define brush,cont
brush = CreateSolidBrush_($E6ECEC)

SetGadgetFont(#PB_Default, LoadFont(0, "Arial", 9))
CreateImage(0,100,100)

OpenWindow(0,100, 100, 800, 400, "TOOLS1",  #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar )
PanelGadget(#Panel, 10, 10, 600, 350)
cont = ContainerGadget(#PB_Any, 0, 20, 600, 350)
CloseGadgetList()
DisableGadget(cont,1)
SetClassLongPtr_(GadgetID(cont), #GCL_HBRBACKGROUND, brush)

AddGadgetItem(#Panel, -1, "Pdf2Image")
TextGadget(#Text+10,10,10,70,20,"File name:",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+10),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+10),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+12,80,10,200,20,"")
TextGadget(#Text+11,10,40,100,20,"Pages:    From",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+11),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+11),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+10,115,40,40,20,"",#PB_String_ReadOnly)
TextGadget(#Text+12,170,40,24,20,"To :",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+12),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+12),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+11,200,40,40,20,"",#PB_String_ReadOnly)
TextGadget(#Text+14,300,40,70,20,"Resolution:",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+14),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+14),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+14,375,40,60,20,"400")
CheckBoxGadget(#Check+1, 300,70,50,20,"File")
TextGadget(#Text+13,10,70,35,23,"Page:",#SS_CENTERIMAGE)
SetWindowLongPtr_(GadgetID(#Text+13),#GWL_STYLE	,GetWindowLongPtr_(GadgetID(#Text+13),#GWL_STYLE)&~ #SS_NOTIFY)
StringGadget(#String+13,50,70,50,23,"1")
ButtonGadget(#Button+10,285,10,30,20,"...")
ButtonGadget(#Button+11,320,10,60,20,"Convert")
EditorGadget(#Editor+2, 10,100,500,100,#PB_Editor_ReadOnly)

CloseGadgetList()

SetWindowCallback(@WindowCallback1())

Repeat 
  Event = WaitWindowEvent()
  GadgetID = EventGadget() ; Is it a gadget event?
Until Event = #PB_Event_CloseWindow
End

PureBasic Forums - English

weird behavioural of StringGadget

weird behavioural of StringGadget

Re: weird behavioural of StringGadget

Re: weird behavioural of StringGadget

Re: weird behavioural of StringGadget

Re: weird behavioural of StringGadget

Re: weird behavioural of StringGadget

Re: weird behavioural of StringGadget