In my opinion, we have made all the necessary changes in the new version that has not yet been released.
VisualFBEditor - IDE for FreeBasic
-
- Posts: 789
- Joined: Jul 26, 2018 18:28
Re: VisualFBEditor - IDE for FreeBasic
It is amazing the following code can not compile with FBC 1.10 but it is ok compiling with FBC 1.09. Maybe Is it a bug in FBC 1.10?
PS.
I testing again. It is amazing the following code can compile with FBC 1.10!!!!!!!!
PS.
I testing again. It is amazing the following code can compile with FBC 1.10!!!!!!!!
Code: Select all
#cmdline "-s console"
Sub LoadHelp
Enum Paragraph
parStart
parSyntax
parUsage
parParameters
parReturnValue
parDescription
parExample
parDifferencesFromQB
parSeeAlso
End Enum
Dim As Paragraph Parag
Parag = Paragraph.parUsage
Print Parag
End Sub
LoadHelp
Sleep
Last edited by Avata on Mar 21, 2023 10:13, edited 1 time in total.
Re: VisualFBEditor - IDE for FreeBasic
Remove the last line 'End Sub'.
Re: VisualFBEditor - IDE for FreeBasic
Hi,the bass example and DataGrid example won't compile due to can't find -lbass or mising file mmf/sysutils.bas in 1.3.4 but ok in 1.3.3.Was I missing something?For 1.3.4,I just got it from github,your post.Xusinboy Bekchanov wrote: ↑Feb 26, 2023 5:21Fixed: Compiling with fbc 1.10.0:
https://github.com/XusinboyBekchanov/Vi ... 2f36666a26
Fixed: Compiling with fbc 1.10.0:
https://github.com/XusinboyBekchanov/My ... 16699a7993
I have now checked the font size is working.srvaldez wrote: ↑Feb 26, 2023 4:11 [edit]
viewtopic.php?p=278539#p278539I have the same problem again, am I missing something?
BTW,noticed fbc 1.1.0 was mentioned quite a while in the forum,and also here.So may I ask where can I get FBC1.1.0?
Thank you.
-
- Posts: 789
- Joined: Jul 26, 2018 18:28
Re: VisualFBEditor - IDE for FreeBasic
When compiling the bass example, I didn't find the problem. Dll files are in their folders:
VisualFBEditor.1.3.4\Examples\Bass\release32\bass.dll
And
VisualFBEditor.1.3.4\Examples\Bass\release64\bass.dll.
GridData example fixed:
Update frmGridDataTest.vfp:
https://github.com/XusinboyBekchanov/Vi ... 7907772279
Fixed: Compiling Panel without Form:
https://github.com/XusinboyBekchanov/My ... 753afd284a
fbc version 1.10.0 is located here:
https://freebasic.net/forum/viewtopic.php?t=19095
Re: VisualFBEditor - IDE for FreeBasic
Just a small disclaimer: version 1.10.0 is not officially released yet, so any such version you can get as-of now represents a preliminary, non-final development version which may and very likely will change until the final 1.10 release.Xusinboy Bekchanov wrote: ↑Mar 23, 2023 14:11 fbc version 1.10.0 is located here:
https://freebasic.net/forum/viewtopic.php?t=19095
Re: VisualFBEditor - IDE for FreeBasic
Thank you!Xusinboy Bekchanov wrote: ↑Mar 23, 2023 14:11When compiling the bass example, I didn't find the problem. Dll files are in their folders:
VisualFBEditor.1.3.4\Examples\Bass\release32\bass.dll
And
VisualFBEditor.1.3.4\Examples\Bass\release64\bass.dll.
GridData example fixed:
Update frmGridDataTest.vfp:
https://github.com/XusinboyBekchanov/Vi ... 7907772279
Fixed: Compiling Panel without Form:
https://github.com/XusinboyBekchanov/My ... 753afd284a
fbc version 1.10.0 is located here:
https://freebasic.net/forum/viewtopic.php?t=19095
Re: VisualFBEditor - IDE for FreeBasic
Appreciated for letting us know!St_W wrote: ↑Mar 23, 2023 14:51Just a small disclaimer: version 1.10.0 is not officially released yet, so any such version you can get as-of now represents a preliminary, non-final development version which may and very likely will change until the final 1.10 release.Xusinboy Bekchanov wrote: ↑Mar 23, 2023 14:11 fbc version 1.10.0 is located here:
https://freebasic.net/forum/viewtopic.php?t=19095
Re: VisualFBEditor - IDE for FreeBasic
Dear,I've just downloaded the updated package of both IDE & MyFrameWork to overwrite my local copy.Testing bass/DataGrid example,the result is as below:Xusinboy Bekchanov wrote: ↑Mar 23, 2023 14:11When compiling the bass example, I didn't find the problem. Dll files are in their folders:
VisualFBEditor.1.3.4\Examples\Bass\release32\bass.dll
And
VisualFBEditor.1.3.4\Examples\Bass\release64\bass.dll.
GridData example fixed:
Update frmGridDataTest.vfp:
https://github.com/XusinboyBekchanov/Vi ... 7907772279
Fixed: Compiling Panel without Form:
https://github.com/XusinboyBekchanov/My ... 753afd284a
fbc version 1.10.0 is located here:
https://freebasic.net/forum/viewtopic.php?t=19095
Bass example:32 bit ok,64bit missing -lbass
DataGrid example: both 32 & 64 bit compiles and runs,but console log information shows:
OPEN SQLiteDB Failure.
bad parameter or other API misuse
--using fbc1.09
-
- Posts: 789
- Joined: Jul 26, 2018 18:28
Re: VisualFBEditor - IDE for FreeBasic
It compiles fine for me in 64 bit too. Show all error messages.
Fixed: GridData example:
https://github.com/XusinboyBekchanov/Vi ... f5f81fdccc
Re: VisualFBEditor - IDE for FreeBasic
You can try the light version GRID. Griddata is not updated to the newest version mff.
frmGrid.frm
frmGrid.frm
Code: Select all
'#Region "Form"
#if defined(__FB_MAIN__) AndAlso Not defined(__MAIN_FILE__)
#define __MAIN_FILE__
#ifdef __FB_WIN32__
#cmdline "Form1.rc"
#endif
Const _MAIN_FILE_ = __FILE__
#endif
#include once "mff/Form.bi"
#include once "mff/Grid.bi"
Using My.Sys.Forms
Type Form1Type Extends Form
Declare Constructor
Dim As Grid Grid1
End Type
Constructor Form1Type
' Form1
With This
.Name = "Form1"
.Text = "Form1"
.Designer = @This
.SetBounds 0, 0, 350, 300
End With
' Grid1
With Grid1
.Name = "Grid1"
.Text = "Grid1"
.TabIndex = 0
.Anchor.Right = AnchorStyle.asAnchor
.Anchor.Bottom = AnchorStyle.asAnchor
.Anchor.Top = AnchorStyle.asAnchor
.Anchor.Left = AnchorStyle.asAnchor
.SetBounds 10, 20, 320, 240
.Columns.Add "Column 1", , 150
.Columns.Add "Column 2", , 150
.Columns[1].Tag = @"0"
.Rows.Add "Row 1 Column 1"
.Rows.Add "Row 2 Column 1"
.Rows.Add "Row 3 Column 1"
.Rows.Add "Row 4 Column 1"
Grid1[0][1].Text = "Row 1 Column 2"
Grid1[1][1].Text = "Row 2 Column 2"
.Rows[2][1].Text = "Row 3 Column 2"
.Cell(3, 1)->Text = "Row 4 Column 2"
.Rows[3].Tag = @"1"
.Designer = @This
.Parent = @This
End With
End Constructor
Dim Shared Form1 As Form1Type
#if _MAIN_FILE_ = __FILE__
App.DarkMode = True
Form1.MainForm = True
Form1.Show
App.Run
#endif
'#End Region
Re: VisualFBEditor - IDE for FreeBasic
Dear,GridData example now works in 1.3.4 both 32 bit and 64bit.Xusinboy Bekchanov wrote: ↑Mar 24, 2023 15:28It compiles fine for me in 64 bit too. Show all error messages.
Fixed: GridData example:
https://github.com/XusinboyBekchanov/Vi ... f5f81fdccc
For Bass example,managed to copy bass.a libbass.a from /release64 to bass root and now 64 bit compiles ok,but don't know why,in version 1.3.3 this example compiles directly without any modification.
-
- Posts: 789
- Joined: Jul 26, 2018 18:28
Re: VisualFBEditor - IDE for FreeBasic
If I change the compiler path to another one, it didn't compile for me either. Turns out I put the 64 bit libbass.dll.a in my compiler folder: VisualFBEditor\Compilers\FreeBASIC-1.09.0-winlibs-gcc-9.3.0\lib\win64.
Both 1.3.3 and 1.3.4 couldn't compile 64-bit either.
I have now indicated in the sources the correct path for 32-bit and 64-bit.
Fixed: Compiling Bass Example:
https://github.com/XusinboyBekchanov/Vi ... 5b08940c53
Re: VisualFBEditor - IDE for FreeBasic
Dear,now it works great.Xusinboy Bekchanov wrote: ↑Mar 25, 2023 15:41If I change the compiler path to another one, it didn't compile for me either. Turns out I put the 64 bit libbass.dll.a in my compiler folder: VisualFBEditor\Compilers\FreeBASIC-1.09.0-winlibs-gcc-9.3.0\lib\win64.
Both 1.3.3 and 1.3.4 couldn't compile 64-bit either.
I have now indicated in the sources the correct path for 32-bit and 64-bit.
Fixed: Compiling Bass Example:
https://github.com/XusinboyBekchanov/Vi ... 5b08940c53
Thank you!
Re: VisualFBEditor - IDE for FreeBasic
The light version of GRID has been updated to allow cells to be edited in both Linux and Windows.
frmGridTest.frm
frmGridTest.frm
Code: Select all
'#Region "Form"
#if defined(__FB_MAIN__) AndAlso Not defined(__MAIN_FILE__)
#define __MAIN_FILE__
#ifdef __FB_WIN32__
#cmdline "Form1.rc"
#endif
Const _MAIN_FILE_ = __FILE__
#endif
#include once "mff/Form.bi"
#include once "mff/Grid.bi"
#include once "mff/CommandButton.bi"
Using My.Sys.Forms
Type Form1Type Extends Form
Declare Static Sub _cmdRowInsert_Click(ByRef Sender As Control)
Declare Sub cmdRowInsert_Click(ByRef Sender As Control)
Declare Static Sub _cmdRowDele_Click(ByRef Sender As Control)
Declare Sub cmdRowDele_Click(ByRef Sender As Control)
Declare Static Sub _cmdColInsert_Click(ByRef Sender As Control)
Declare Sub cmdColInsert_Click(ByRef Sender As Control)
Declare Static Sub _cmdColDele_Click(ByRef Sender As Control)
Declare Sub cmdColDele_Click(ByRef Sender As Control)
Declare Constructor
Dim As Grid Grid1
Dim As CommandButton cmdRowInsert, cmdColInsert, cmdRowDele, cmdColDele
End Type
Constructor Form1Type
' Form1
With This
.Name = "Form1"
.Text = "Form1"
.Designer = @This
.SetBounds 0, 0, 350, 300
End With
' Grid1
With Grid1
.Name = "Grid1"
.Text = "Grid1"
.TabIndex = 0
.Hint = "Double Click or press space start edit, Enter Confirm input!"
.Anchor.Right = AnchorStyle.asAnchor
.Anchor.Bottom = AnchorStyle.asAnchor
.Anchor.Top = AnchorStyle.asAnchor
.Anchor.Left = AnchorStyle.asAnchor
.SetBounds 10, 20, 320, 240
.Columns.Add "No", , 50
.Columns.Add "Column 1", , 100
.Columns.Add "Column 2", , 100, , True
.Columns.Add "Column 3", , 100
.Columns.Add "Column 4", , 100
.Columns.Add "Column 5", , 100, , True
.Columns[1].Tag = @"0"
.Rows.Add "1"
.Rows.Add "2"
.Rows.Add "3"
.Rows.Add "4"
'Control's Name
Grid1[0][1].Text = "Row 1 Column 1"
Grid1[1][1].Text = "Row 2 Column 1"
Grid1[2][1].Text = "Row 3 Column 1"
Grid1[3][1].Text = "Row 4 Column 1"
'Like Array
.Rows[0][2].Text = "Row1Col2 AllowEdit"
.Rows[1][2].Text = "Row2Col2 AllowEdit"
.Rows[2][2].Text = "Row3Col2 AllowEdit"
.Rows[3][2].Text = "Row4Col2 AllowEdit"
'Cell Like ExCEL
.Cell(0, 3)->Text = "Row 1 Column 3"
.Cell(1, 3)->Text = "Row 2 Column 3"
.Cell(2, 3)->Text = "Row 3 Column 3"
.Cell(3, 3)->Text = "Row 4 Column 3"
.Rows[0][5].Text = "Row1Col5 AllowEdit"
.Rows[1][5].Text = "Row2Col5 AllowEdit"
.Rows[2][5].Text = "Row3Col5 AllowEdit"
.Rows[3][5].Text = "Row4Col5 AllowEdit"
.Rows[3].Tag = @"3"
.Designer = @This
.Parent = @This
End With
' cmdRowInsert
With cmdRowInsert
.Name = "cmdRowInsert"
.Text = "Insert one Row"
.TabIndex = 0
.SetBounds 10, 0, 75, 20
.Designer = @This
.OnClick = @_cmdRowInsert_Click
.Parent = @This
End With
' cmdColInsert
With cmdColInsert
.Name = "cmdColInsert"
.Text = "Insert one Col"
.TabIndex = 2
.ControlIndex = 1
.SetBounds 170, 0, 75, 20
.Designer = @This
.OnClick = @_cmdColInsert_Click
.Parent = @This
End With
' cmdRowDele
With cmdRowDele
.Name = "cmdRowDele"
.Text = "Dele one Row"
.TabIndex = 3
.ControlIndex = 2
.SetBounds 90, 0, 75, 20
.Designer = @This
.OnClick = @_cmdRowDele_Click
.Parent = @This
End With
' cmdColDele
With cmdColDele
.Name = "cmdColDele"
.Text = "Dele one Col"
.TabIndex = 4
.ControlIndex = 2
.SetBounds 250, 0, 75, 20
.Designer = @This
.OnClick = @_cmdColDele_Click
.Parent = @This
End With
End Constructor
Private Sub Form1Type._cmdColDele_Click(ByRef Sender As Control)
(*Cast(Form1Type Ptr, Sender.Designer)).cmdColDele_Click(Sender)
End Sub
Private Sub Form1Type._cmdColInsert_Click(ByRef Sender As Control)
(*Cast(Form1Type Ptr, Sender.Designer)).cmdColInsert_Click(Sender)
End Sub
Private Sub Form1Type._cmdRowDele_Click(ByRef Sender As Control)
(*Cast(Form1Type Ptr, Sender.Designer)).cmdRowDele_Click(Sender)
End Sub
Private Sub Form1Type._cmdRowInsert_Click(ByRef Sender As Control)
(*Cast(Form1Type Ptr, Sender.Designer)).cmdRowInsert_Click(Sender)
End Sub
Dim Shared Form1 As Form1Type
#if _MAIN_FILE_ = __FILE__
'App.DarkMode = True
Form1.MainForm = True
Form1.Show
App.Run
#endif
'#End Region
Private Sub Form1Type.cmdRowInsert_Click(ByRef Sender As Control)
Dim As Integer Curr = Grid1.SelectedRowIndex
Grid1.Rows.Insert(Curr, Str(Curr))
End Sub
Private Sub Form1Type.cmdRowDele_Click(ByRef Sender As Control)
Dim As Integer Curr = Grid1.SelectedRowIndex
Grid1.Rows.Remove(Curr)
End Sub
Private Sub Form1Type.cmdColInsert_Click(ByRef Sender As Control)
Dim As Integer Curr = Grid1.SelectedColumnIndex
Grid1.Columns.Insert(Curr, "Column " & Curr, , 100, , True)
End Sub
Private Sub Form1Type.cmdColDele_Click(ByRef Sender As Control)
Dim As Integer Curr = Grid1.SelectedColumnIndex
Grid1.Columns.Remove(Curr)
End Sub