|
Post by Rod on Mar 19, 2023 3:14:26 GMT -5
Is there a difference if you start a new form with a single graphic box. Can you resize it. Can you reload the form back in to freeform and resize it again? can you post the .ffa file that freeform saves the project to.
I just loaded up freeform and tried to replicate what you say is happening. I can't, freeform allows me to resize reload and resize till my hearts content. Freeform has worked for years, we have never had this issue reported before. So something is going on.
Please tell us what OS you are on and what type of computer. Also please tell us how you installed Liberty BASIC. Did you accept the default directory structures or did you amend the installation.
The usual is for Liberty BASIC to be installed to c:\program files(x86) directory, for the support files to be installed to %appdata% the USERs application data directory. If you fire up Liberty and then print StartupDir$ and DefaultDir$ what do they contain?
|
|
|
Post by regoroxford on Mar 19, 2023 17:25:34 GMT -5
It exists in my LBPRO451 directory. Not found in the c:\program files(x86)\liberty basic prov451 directory.
5
5
1
0
0
1
0
1
0
1
window
#1
ms_sans_serif 10
C:\Users\Rodger\AppData\Roaming\Liberty BASIC Pro v4.5.1\
C:\Users\Rodger\AppData\Roaming\Liberty BASIC Pro v4.5.1\bmp\
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
For future use.
|
|
|
Post by regoroxford on Mar 19, 2023 17:40:38 GMT -5
print(StartupDir$) print(DefaultDir$) C:\Program Files (x86)\Liberty BASIC Pro v4.5.1\ C:\LBPRO451 I'll bet the next move is to delete / uninstall lbpro451 , reinstall it without interference from me. When I look for something it will be 5 layers deep. Attachments:problem.bas (105 B)
|
|
|
Post by regoroxford on Mar 19, 2023 20:01:52 GMT -5
I uninstalled LBPRO451 & reinstalled to c:program files(x86)\Liberty Basic PRO451. Start ICON came from the above directory. From start I chose run freeform & chose listbox & textbox to enlarge. No luck. Only logical possibility is that I have a bad file in the setup?
I have done offline scan with windows defender. no hits.
|
|
|
Post by Rod on Mar 20, 2023 2:23:39 GMT -5
Reg you are overthinking it. It will be something really simple. It won’t be a corrupt file, it won’t be Defender. It might be a permissions issue. You may not have access rights to the directory the .ffa is in.
Bear in mind that thousands of folks have downloaded and installed Liberty over years and that no one has had this issue before. So it is unique. Do you have an old computer to try out, do you have a friend who has a pc that might help test. If not no problem we just need to take it a step at a time.
I will fire up freeform later and puzzle out what we can test.
First thing I would like you to do is to be absolutely sure it is the recent installation of Liberty that you are running. Use a new folder to put your freeform .ffa file into. Once you have a new .ffa file navigate to it and right click on it to get the properties window up. Does it say anything about the file being read only or blocked?
|
|
|
Post by metro on Mar 20, 2023 3:40:22 GMT -5
It's a little confusing, DefautlDir$ shows C:\LBPRO451 which I assume still exists, however, the ini file shows C:\Users\Rodger\AppData\Roaming\Liberty BASIC Pro v4.5.1\
try running lbpro.exe from C:\Program Files (x86)\Liberty BASIC Pro v4.5.1\(which I assume your shortcut points too)
then click on "File" then - "Open" and navigate to C:\Users\Rodger\AppData\Roaming\Liberty BASIC Pro v4.5.1\ and find freeform451.bas then run it. see if that works for you. ignore C:\LBPRO451 for now
|
|
|
Post by Rod on Mar 20, 2023 4:30:19 GMT -5
The StartupDir$ and DefaultDir$ both look ok, but I assume you have created a project directory called c:\LBPRO451. That's all fine.
Here is my .ini file from %appdata%\liberty basic pro v4.5.1 Notice the two 50 values that are listed first this is the snap to settings. They are normally set to 5.
50 50 1 0 0 1 0
0 0 1 window #main ms_sans_serif 10 C:\atemp\ C:\Users\rodbi\AppData\Roaming\Liberty BASIC Pro v4.5.1\bmp
For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use. For future use.
The .ffa file should look like this if you have a listbox and textbox on the form. Here is what mine looks like.
black buttonface 3 untitled window 3 #main 1 5 5 0 550 410
0 0 C:\Users\rodbi\AppData\Roaming\Liberty BASIC Pro v4.5.1\bmp ms_sans_serif 10 0 0 0 listbox
listbox1 195 235 125 135
[listbox1DoubleClick] 4
array$(
white ms_sans_serif 10
textbox
textbox3 195 195 125 30
5
white ms_sans_serif 10
Now the only way I can replicate what you describe is to set the OPTIONS, GRID SETTINGS, to large values say x=50 y=50 Then the control will move when you drag but if you don't go beyond the 50 pixel drag it will snap back to the last position. What are your GRID X and Y settings?
|
|
|
Post by Rod on Mar 20, 2023 6:12:16 GMT -5
Also, I read that you can actually have mouse issues on Windows. So just to check out your mouse. Run this program and then left click on either of the squares and drag it about with the left mouse button held down. Dos this program work ok for you?
nomainwin ' draw some objects dim obj(10,4) 'x,y,width/height, obj number = z order obj(1,1)=100 obj(1,2)=100 obj(1,3)=50
obj(2,1)=120 obj(2,2)=120 obj(2,3)=25 numObj=2
open "Panning" for graphics as #1 #1 "down ; trapclose [quit]" #1 "when leftButtonDown [select]" gosub [draw]
wait
[select] x=MouseX y=MouseY selected=0 for n=numObj to 1 step -1 if x>obj(n,1) and x<obj(n,1)+obj(n,3)then if y>obj(n,2) and y<obj(n,2)+obj(n,3) then selected=n exit for end if end if next if selected>0 then #1 "when leftButtonDown" #1 "when leftButtonMove [track]" #1 "when leftButtonUp [stop]" offsetX=x-obj(n,1) offsetY=y-obj(n,2) end if gosub [draw] wait
[track] obj(selected,1)=MouseX-offsetX obj(selected,2)=MouseY-offsetY if mix>MouseX then mix=MouseX if miy>MouseY then miy=MouseY if max<MouseX then max=MouseX if may<MouseY then may=MouseY print mix,max,miy,may gosub [draw] wait
[stop] #1 "when leftButtonDown [select]" #1 "when leftButtonMove" #1 "when leftButtonUp" selected=0 gosub [draw] wait
[draw] #1 "cls" for n= 1 to numObj if n= selected then #1 "color red" else #1 "color black" #1 "place ";obj(n,1);" ";obj(n,2) #1 "box ";obj(n,1)+obj(n,3);" ";obj(n,2)+obj(n,3) next return
[quit] close #1 end
|
|
|
Post by Rod on Mar 20, 2023 6:15:26 GMT -5
|
|
|
Post by tsh73 on Mar 20, 2023 6:24:48 GMT -5
(cannot check so I would ask) is there any difference in FreeForm in LB and LB pro version?
options out would be to try FreeForm from LB or even JB (==basic source)
|
|
|
Post by Rod on Mar 20, 2023 7:07:37 GMT -5
There may be a difference but Reg is using the same version as I have been testing, it is freeform404.bas but it reports as v3
'Form created with the help of Freeform 3 v07-15-08 'Generated on Mar 20, 2023 at 12:05:12
This is the same as Reg's initial post
|
|
|
Post by regoroxford on Mar 20, 2023 7:41:09 GMT -5
Also, I read that you can actually have mouse issues on Windows. So just to check out your mouse. Run this program and then left click on either of the squares and drag it about with the left mouse button held down. Dos this program work ok for you? nomainwin ' draw some objects dim obj(10,4) 'x,y,width/height, obj number = z order obj(1,1)=100 obj(1,2)=100 obj(1,3)=50
obj(2,1)=120 obj(2,2)=120 obj(2,3)=25 numObj=2
open "Panning" for graphics as #1 #1 "down ; trapclose [quit]" #1 "when leftButtonDown [select]" gosub [draw]
wait
[select] x=MouseX y=MouseY selected=0 for n=numObj to 1 step -1 if x>obj(n,1) and x<obj(n,1)+obj(n,3)then if y>obj(n,2) and y<obj(n,2)+obj(n,3) then selected=n exit for end if end if next if selected>0 then #1 "when leftButtonDown" #1 "when leftButtonMove [track]" #1 "when leftButtonUp [stop]" offsetX=x-obj(n,1) offsetY=y-obj(n,2) end if gosub [draw] wait
[track] obj(selected,1)=MouseX-offsetX obj(selected,2)=MouseY-offsetY if mix>MouseX then mix=MouseX if miy>MouseY then miy=MouseY if max<MouseX then max=MouseX if may<MouseY then may=MouseY print mix,max,miy,may gosub [draw] wait
[stop] #1 "when leftButtonDown [select]" #1 "when leftButtonMove" #1 "when leftButtonUp" selected=0 gosub [draw] wait
[draw] #1 "cls" for n= 1 to numObj if n= selected then #1 "color red" else #1 "color black" #1 "place ";obj(n,1);" ";obj(n,2) #1 "box ";obj(n,1)+obj(n,3);" ";obj(n,2)+obj(n,3) next return
[quit] close #1 end
|
|
|
Post by regoroxford on Mar 20, 2023 7:52:39 GMT -5
1. Both Lb & LBPRO freeform exhibit same mouse problem; no increase in height of rectangle. 2. Going to file explorer and left click & hold while tapping escape once before release of left mouse button did not resolve problem.(digitalcitizen mouse fix for windows) 3. A picture of properties of ffrm1309.ini is attached. The only check marks are in advanced. 4. reinstalling software from very recent LBPRO purchase did not resolve problem. 5. I can drag the boxes around just fine in the basic program sent for the test.
|
|
|
Post by Rod on Mar 20, 2023 8:01:34 GMT -5
If this is a textbox you are trying to enlarge I think it’s height is set by the font size not drag. Is it only textbox controls that don’t enlarge?
After looking at the field tool which inserts a textbox I think this is the issue. A textbox is a single line text input control. We can make it multiline with API but as it stands it is a single line control. So when we insert one in freeform we get a single line text area which does not expand when the frame is enlarged. When we save the code the textbox does have the size of the frame but the image of it in freeform is restricted to a single 25pixel high image.
That's a limitation of freeform. Your other controls probably resize as you expect.
|
|
|
Post by regoroxford on Mar 20, 2023 15:54:39 GMT -5
My ffrm3019 file doesn't change . I changed grid settings to 5 and 5 but it shows 5 and 10 still. resizing activity is not reflected in the file in the way your file shows activity. The size of boxes is not due a change in size by me.
|
|