Real Software Forums

Hi all,

I have only been using real basic for a week now, so please don't flame me if this is no good.
I have noticed a lot of posts regarding getting 2 controls that are side by side to resize relative to each other with proportionate spacing.

This is my work around.

Assuming window with which you wish to do this is called MainWindow.

First in the window with which you wish to do this, add 2 properties. lastwidth and widthcount. Both being integer and set to 0.
In the open event of the window place code:

lastwidth = MainWindow.width

Then in the resized event place code:

dim wv as integer
wv=widthcount+MainWindow.width-lastwidth
if wv = 1 then
widthcount = 1
lastwidth = MainWindow.width
else
if bitwise.bitAnd(wv,&h01) <> 0 then
' number is odd
wv = wv - 1
widthcount = 1
'do resize
'first field + label + second field
FirstField.width = FirstField.width + (wv/2)
SecondField.width = SecondField.width + (wv/2)
SecondField.left = SecondField.left + (wv/2)
label.left = label.left + (wv/2)
'end line
lastwidth = MainWindow.width
else
' number is even
widthcount = 0
'do resize
'first field + label + second field
FirstField.width = FirstField.width + (wv/2)
SecondField.width = SecondField.width + (wv/2)
SecondField.left = SecondField.left + (wv/2)
label.left = label.left + (wv/2)
'end line
lastwidth = MainWindow.width
end if
end if

Thats it. The textfield boxes in this case will resize correctly and the labels placed before the second textfield moves along with it. All while keeping the spacing.

Notes, FirstField should be locked left while label and SecondField should not be locked either left or right.
Just repeat the code:

FirstField.width = FirstField.width + (wv/2)
SecondField.width = SecondField.width + (wv/2)
SecondField.left = SecondField.left + (wv/2)
label.left = label.left + (wv/2)

for each row of controls you wish to do this to.

Some smart person may wish to add a method to make this simpler. e.g. resizeboxes(FirstField,label,SecondField) or something like that. If someone does, please reply with the method here.

Credit to Norman Palardy for the even/odd checking code and Dave Wooldridge for revising the even/odd checking code.

I should mention, this works perfectly in Mac OSX. In windows, you need to add the same code in the resized event into the resizing event to get it to resize on-the-fly.

If you have LiveResize true on mac, you also have to do this there. But a great tip! Thnx!