VisualFBEditor - IDE for FreeBasic

[UEZ]

The tab orders are not saved when they change after exit.

Added: Saving session with tabs
https://github.com/XusinboyBekchanov/Vi ... 79f8cd144a

Now it save the tabs according its position but for unknown reason one tab is empty although it should have text in it and IDE crashes when closing the tab. Also the close icons are somehow corrupted. Test13.bas is existing 3 times.

[Xusinboy Bekchanov]

The tab orders are not saved when they change after exit.

Added: Saving session with tabs
https://github.com/XusinboyBekchanov/Vi ... 79f8cd144a

Now it save the tabs according its position but for unknown reason one tab is empty although it should have text in it and IDE crashes when closing the tab. Also the close icons are somehow corrupted. Test13.bas is existing 3 times.

Fixed: ReorderTab method of TabControl:
https://github.com/XusinboyBekchanov/My ... 3b67eef403

Thank you.

[UEZ]

It looks good now.

Thx.

[PeterHu]

May I ask,please--
Is there any examples on drag & drop within the app and ,also interact with external app/destinations like Windows explorer/Notepad.exe?

[Xusinboy Bekchanov]

May I ask,please--
Is there any examples on drag & drop within the app

Here is an example of dragging a file:

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"
	
	Using My.Sys.Forms
	
	Type Form1Type Extends Form
		Declare Sub Form_DropFile(ByRef Sender As Control, ByRef Filename As WString)
		Declare Constructor
		
	End Type
	
	Constructor Form1Type
		#if _MAIN_FILE_ = __FILE__
			With App
				.CurLanguagePath = ExePath & "/Languages/"
				.CurLanguage = My.Sys.Language
			End With
		#endif
		' Form1
		With This
			.Name = "Form1"
			.Text = "Form1"
			.Designer = @This
			.OnDropFile = Cast(Sub(ByRef Designer As My.Sys.Object, ByRef Sender As Control, ByRef Filename As WString), @Form_DropFile)
			.AllowDrop = True
			.SetBounds 0, 0, 350, 300
		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

Private Sub Form1Type.Form_DropFile(ByRef Sender As Control, ByRef Filename As WString)
	?Filename
End Sub

and ,also interact with external app/destinations like Windows explorer/Notepad.exe?

What kind of interactions do you mean?

[PeterHu]

What kind of interactions do you mean?

I mean,for example:
1. drag a filename list from windows explorer to a listbox;
2. drag a filename from the form to the widows explorer;
3. drag a text from a textbox to notepad;
4. drag a text from notepad to a textbox.

It would be much more appreciated if an example shows how to drag an image and move it in a form.
...