Page 1 of 1
Getting a dialog to have spacing='0'
Posted: Tue May 27, 2025 4:27 pm
by es_91
Try this window with a container that shall have spacing='0' but has spacing='5' (default) instead.
Code: Select all
; Trying to fill the window with this gray container, but spacing shall be 0.
define *xml
define *dialog
define xmlScript$
xmlScript$ = "<window id='#pb_any' name='' x='0' y='0' width='320' height='200' text='fill-out container?' flags='#PB_Window_SizeGadget|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget'>" +
"<hbox spacing='0' expand='yes'>" +
"<vbox spacing='0' expand='yes'>" +
"<container spacing='0' id='#pb_any' name='cont' />" +
"</vbox>" +
"</hbox>" +
"</window>"
*xml = catchXml ( #pb_any,
@ xmlScript$,
stringByteLength ( xmlScript$ ) )
*dialog = createDialog ( #pb_any )
if ( ( *xml ) and
( isXml ( *xml ) ) and
( xmlStatus ( *xml ) = #pb_xml_success ) and
( *dialog ) and
( isDialog ( *dialog ) ) and
( openXmlDialog ( *dialog,
*xml,
"",
#pb_ignore,
#pb_ignore ) ) )
setGadgetColor ( dialogGadget ( *dialog,
"cont" ),
#pb_gadget_backColor,
rGB ( 191,
191,
191 ) )
repeat
if ( waitWindowEvent ( ) = #pb_event_closeWindow )
end
endIf
forEver
endIf
; es_91 - 2025
What to do? Something wrong?
Re: Getting a dialog to have spacing='0'
Posted: Tue May 27, 2025 4:46 pm
by wombats
Use a <singlebox> with a negative margin. I haven't tested this, so I'm not sure if -5 is enough.
Code: Select all
<singlebox margin='-5'> ... </singlebox>
Re: Getting a dialog to have spacing='0'
Posted: Tue May 27, 2025 6:25 pm
by es_91
Yep! It works.
For some reason '-8' is the exact value needed (at my system).
Code: Select all
xmlScript$ = "<window id='#pb_any' name='' x='0' y='0' width='320' height='200' text='fill-out container?' flags='#PB_Window_SizeGadget|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget'>" +
"<singlebox expand='yes' margin='-8'>" +
"<container id='#pb_any' name='cont' />" +
"</singlebox>" +
"</window>"
Thank you!
Re: Getting a dialog to have spacing='0'
Posted: Tue May 27, 2025 11:13 pm
by HeX0R
Margin=0 for the window should be enough
Code: Select all
xmlScript$ = "<window width='320' height='200' text='fill-out container?' flags='#PB_Window_SizeGadget|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget' margin='0'><hbox spacing='0' expand='yes'><vbox spacing='0' expand='yes'><container spacing='0' id='#pb_any' name='cont' /></vbox></hbox></window>"
*xml=CatchXML(#PB_Any,@xmlScript$,StringByteLength(xmlScript$)):*dialog=CreateDialog(#PB_Any)
If(*xml And(IsXML(*xml))And(XMLStatus(*xml)=#PB_XML_Success)And(*dialog)And(IsDialog(*dialog))And(OpenXMLDialog(*dialog,*xml,"",#PB_Ignore,#PB_Ignore)))
SetGadgetColor(DialogGadget(*dialog,"cont" ),#PB_Gadget_BackColor,RGB(191,191,191)):Repeat:If(WaitWindowEvent()=#PB_Event_CloseWindow):End:EndIf:ForEver:EndIf
(©Inverse coding-style of es_91)
Re: Getting a dialog to have spacing='0'
Posted: Wed May 28, 2025 12:01 pm
by es_91
@HeXOR:
Nice!
I never knew the window would have an 8 px margin, it's propably because of the 8 px thick borders introduced with Windows 8.
Here your code in Fred's style:
Code: Select all
xmlScript$ + "<window width='320' height='200' text='fill-out container!' flags='#PB_Window_SizeGadget|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget' margin='0'>" +
"<hbox spacing='0' expand='yes'>" +
"<vbox spacing='0' expand='yes'>" +
"<container spacing='0' id='#pb_any' name='cont' />" +
"</vbox>" +
"</hbox>" +
"</window>"
*xml = CatchXML (#PB_Any, @xmlScript$, StringByteLength (xmlScript$))
*dialog = CreateDialog (#PB_Any)
If *xml And IsXML (*xml) And XMLStatus (*xml) = #PB_XML_Success And *dialog And IsDialog (*dialog) And OpenXMLDialog (*dialog, *xml, "", #PB_Ignore, #PB_Ignore)
SetGadgetColor (DialogGadget (*dialog, "cont"), #PB_Gadget_BackColor, RGB (127, 127, 127))
Repeat
If WaitWindowEvent () = #PB_Event_CloseWindow
End
EndIf
ForEver
EndIf