Mouse control in freeform

[Brandon Parker]

Rod & Everyone,
If you want to resolve the rendering issue with TextBox controls so that they appear as sized by the user, you can replace the [renderTextBox] routine with the one below. Note that this obviously does not make the TextBox a multi-line TextBox; this has to be accomplished with API in LB 4.x.x ...

[renderTextBox] 'render the textbox at idx. type$(idx) = "textbox"
   fillIt$ = "white"
   if boxcolor$(idx) <> "" then fillIt$ = boxcolor$(idx)
   print #form, "place "; xOrg(idx); " "; yOrg(idx) +menu.offset;
   print #form, "color white ; backcolor ";fillIt$;"; size 1" ;
   print #form, "down ; boxfilled "; xOrg(idx)+width(idx); " "; yOrg(idx)+height(idx)+1+menu.offset ;
   print #form, "color buttonface ; backcolor white ; size 1" ;
   print #form, "down ; box "; xOrg(idx)+width(idx)-1; " "; yOrg(idx)+height(idx)+menu.offset ;
   print #form, "color darkgray ; backcolor white ; size 2" ;
   print #form, "down ; line "; xOrg(idx);" "; yOrg(idx)+menu.offset;" ";xOrg(idx)+width(idx); " "; yOrg(idx)+menu.offset ;
   print #form, "down ; line "; xOrg(idx);" "; yOrg(idx)+menu.offset;" ";xOrg(idx); " "; yOrg(idx)+height(idx)+menu.offset ;
   result = postRender(idx, displayOrdering,menu.offset)
   return


{:0)

Brandon Parker

[Rod]

Yeah, Reg should ignore this solution for now. We need to focus on his specific problem of not being able to resize ANY control. Reg you said last time vertical height, which lead us down the textbox path. Probably a bit of a red herring.Can you just confirm that you cannot change ANY controls size.

The frame stretches but the control never changes size, all controls behave this way. Just to be clear what the problem is.

Let’s stick with a single control for testing. Put a list box on the blank form. Does this list box resize first time , second time, never?

On my system when I click on the listbox the frame gets highlighted with check marks, I can drag the frame out to enlarge it. The listbox only changes shape when I release the left mouse button. Does any of this happen on your system, does the listbox get highlighted when you click on it. Can you drag the check marked frame out larger? What happens exactly when you release the mouse key? does the frame snap back to original size , does the frame disappear, I assume the listbox image does nothing.

[Rod]

Reg please run this code and post the results back here. I just want to confirm the files and directories we are dealing with. The output my system gives is appended.

Now it is important that you have Liberty set to AppData directory. To do this start Liberty, go to preferences and tick the file on open setting to no file. Now close Liberty. Start it up again and you should see the appdata directory listed at the top of ide. Now paste in my code and run it. Dont save the code anywhere because this will change the default directory.


dim info$(10,10)
print "Command Line : ";CommandLine$
print Platform$
print Drives$
print Version$
print DefaultDir$
print StartupDir$
print DefaultDir$+"\freeform404.tkn"
files DefaultDir$, "\freeform404.tkn", info$()
print val(info$(0, 0))
files DefaultDir$, "\freeform404.bas", info$()
print val(info$(0, 0))
open DefaultDir$+"\freeform404.bas" for input as #1
print lof(#1)
for l= 1 to 11
line input #1,l$
print l$
next
close #1
open DefaultDir$+"\ffrm3019.ini" for input as #1
print lof(#1)
for l= 1 to 11
line input #1,l$
print l$
next
close #1



Command Line : Files (x86)\Liberty BASIC Pro v4.5.1\lbpro.exe"
Windows
c: d: f:
4.5.1
C:\Users\rodbi\AppData\Roaming\Liberty BASIC Pro v4.5.1
C:\Program Files (x86)\Liberty BASIC Pro v4.5.1\
C:\Users\rodbi\AppData\Roaming\Liberty BASIC Pro v4.5.1\freeform404.tkn
1
1
199295
rem
rem    Freeform404
rem    Copyright 1995 to 2008 Shoptalk Systems
rem    All rights reserved.
rem    This program is an open source, community project and may not be
rem    sold as a commercial product.  Do not remove this copyright notice.
rem
rem    This program lets you graphically lay out windows and their controls,
rem    and then converts this visual layout to Liberty BASIC source code
rem    that you can paste into your Liberty BASIC programming session.
rem    Modified for use with Windows 95/98/ME/2K/XP/Vista.
941
50
50
1
0
0
1
0

0
0
1



[regoroxford]

Command Line : Files (x86)\Liberty BASIC Pro v4.5.1\lbpro.exe"

Windows

c: d: f:

4.5.1

C:\Users\Rodger\AppData\Roaming\Liberty BASIC Pro v4.5.1

C:\Program Files (x86)\Liberty BASIC Pro v4.5.1\

C:\Users\Rodger\AppData\Roaming\Liberty BASIC Pro v4.5.1\freeform404.tkn

1

1

199295

rem

rem    Freeform404

rem    Copyright 1995 to 2008 Shoptalk Systems

rem    All rights reserved.

rem    This program is an open source, community project and may not be

rem    sold as a commercial product.  Do not remove this copyright notice.

rem

rem    This program lets you graphically lay out windows and their controls,

rem    and then converts this visual layout to Liberty BASIC source code

rem    that you can paste into your Liberty BASIC programming session.

rem    Modified for use with Windows 95/98/ME/2K/XP/Vista.

936

5

5

1

1

0

1

1



1

0

1





[Rod]

So the the files are fine. Let’s focus on exactly what happens when you try and resize the listbox. You left click on the listbox, the frame appears, you drag the frame’s bottom right check mark larger and release the left button.

The frame follows the mouse? The frame disappears as soon as you release the left mouse button? The listbox image does not change size at all?

I can see from the previous screen print that you posted that the snap to grid is set to visible and 5x5 so you should have no problem increasing the size of a control.

[regoroxford]

Mar 21, 2023 2:48:25 GMT -5 Rod said:

Yeah, Reg should ignore this solution for now. We need to focus on his specific problem of not being able to resize ANY control. Reg you said last time vertical height, which lead us down the textbox path. Probably a bit of a red herring.Can you just confirm that you cannot change ANY controls size.

The frame stretches but the control never changes size, all controls behave this way. Just to be clear what the problem is.

Let’s stick with a single control for testing. Put a list box on the blank form. Does this list box resize first time , second time, never?

On my system when I click on the listbox the frame gets highlighted with check marks, I can drag the frame out to enlarge it. The listbox only changes shape when I release the left mouse button. Does any of this happen on your system, does the listbox get highlighted when you click on it. Can you drag the check marked frame out larger? What happens exactly when you release the mouse key? does the frame snap back to original size , does the frame disappear, I assume the listbox image does nothing.



Rod I just ran thru every control. ONLY groupbox and  listbox are resizable for me. ALL CONTROLS exhibit "ears" when clicked. Textbox can be made smaller but not enlarged from small size.

[Rod]

Well the files and file locations are all ok, the file access seems ok and you can drag some controls. I can only conclude it is your mouse playing tricks. Never had this issue reported before, we would know about it if there was a bug in the code or a file issue to hunt down.

Single line text controls will change width but not height which is set to the font size. radio buttons and checkboxes will not change size, they don't in Windows either. All else should change size but any text part may not grow with the frame but the frame indicates how much room the control will take on the form when activated.

You did mention that you had a new mouse. Can you post the make and model number and let's see if others using the same mouse are reporting issues.

[regoroxford]

m325 logitech p/n 810-006956

[Rod]

Well not much on google that matches. Since the mouse managed to drag and drop the little squares in the program I posted we can pretty much say everything is working as normal. If you can reliably and consistently resize a listbox you should be able to resize everything else that is resizeable. I'm stumped.

[Brandon Parker]

If you have Microsoft Teams, Discord, or Zoom, I would be willing to get on a call to screen share and see what is going on. Feel free to send me a PM if you would like...


{:0)

Brandon Parker

[Brandon Parker]

I think we are all set with this one, but hopefully, the OP will confirm. I got on a screen share with the OP and everything that I saw from Freeform was exactly what I would expect for an unaltered freeform450.bas program.


{:0)

Brandon Parker