MDIScintilla Example

[chunmingwang]

Example for VisualFBEditor

MDIScintilla like text editor based on the Scintilla project.

[chunmingwang]

Is it possible to develop Scintilla and Lexilla into VFBE controls?

[XusinboyBekchanov]

A very good example. I will add a Scintilla control. Thank you.

[XusinboyBekchanov]

Added: ScintillaControl, Fixed: Designing Controls with libraries:
6216472

[chunmingwang]

Add ScintillaControl Example
#420

[XusinboyBekchanov]

Merged. Thank you. Good Example.

[chunmingwang]

thanks.

[chunmingwang]

Update MDIScintilla Example

[XusinboyBekchanov]

Very good.

[chunmingwang]

Please help check that Scintilla is in mff, and Tab or Shift+Tab cannot be used as indent function

[XusinboyBekchanov]

ScintillaControl is not in mff, but this control uses mff. It is a separate control. ScintillaControl is not included in mff because it has an additional library. In my opinion, not everyone needs this additional library, so this control should be separate, as it is now. By Tab or Shift+Tab they solved the problem themselves, I think.

[chunmingwang]

ScintillaControl is not in mff, but this control uses mff. It is a separate control. ScintillaControl is not included in mff because it has an additional library. In my opinion, not everyone needs this additional library, so this control should be separate, as it is now. By Tab or Shift+Tab they solved the problem themselves, I think.

Yes, but however, the Scintilla control is in the Form of mff.
if not in the form of mff, then the Tab & Shift+Tab are normal as shown in the following code.

#include once "ScintillaControl.bi"

Declare Function WinMain ( ByVal HINSTANCE As HINSTANCE, ByVal hPrevInstance As HINSTANCE, ByVal szCmdLine As String, ByVal iCmdShow As Integer ) As Integer

Dim Shared As Any Ptr hSci
Dim Shared As Any Ptr pLibScintilla

#ifdef __FB_WIN32__
	pLibScintilla = DyLibLoad("Scintilla32.dll")
#else
	pLibScintilla = DyLibLoad("Scintilla64.dll")
#endif

WinMain(GetModuleHandle(NULL), NULL, Command(), SW_NORMAL)

DyLibFree(pLibScintilla)

Function WndProc ( ByVal hWnd As HWND, ByVal wMsg As UINT, ByVal wParam As WPARAM, ByVal lParam As LPARAM ) As LRESULT
	Select Case( wMsg )
	Case WM_CREATE
		Dim rt As Rect
		GetClientRect(hWnd, @rt)
		hSci = CreateWindowEx(0, "Scintilla", "", WS_CHILD Or WS_VISIBLE Or WS_BORDER, 0, 0, rt.Right - rt.Left, rt.Bottom - rt.Top, hWnd, NULL, 0, 0)
	Case WM_SIZE
		Dim rt As Rect
		GetClientRect(hWnd, @rt)
		MoveWindow(hSci, 0, 0, rt.Right - rt.Left, rt.Bottom - rt.Top, True)
	Case WM_DESTROY
		PostQuitMessage( 0 )
		Exit Function
	End Select
	Function = DefWindowProc(hWnd, wMsg, wParam, lParam)
End Function

Function WinMain ( ByVal HINSTANCE As HINSTANCE, ByVal hPrevInstance As HINSTANCE, ByVal szCmdLine As String, ByVal iCmdShow As Integer ) As Integer
	Dim wMsg As MSG
	Dim wcls As WNDCLASS
	Dim hWnd As HWND
	Dim classname As Any Ptr
	Dim cname As String
	classname = @"FreeBasic Scintilla"
	
	With wcls
		.style         = CS_HREDRAW Or CS_VREDRAW
		.lpfnWndProc   = @WndProc
		.cbClsExtra    = 0
		.cbWndExtra    = 0
		.hInstance     = HINSTANCE
		.hIcon         = LoadIcon( NULL, IDI_APPLICATION )
		.hCursor       = LoadCursor( NULL, IDC_ARROW )
		.hbrBackground = GetStockObject( WHITE_BRUSH )
		.lpszMenuName  = NULL
		.lpszClassName = classname
	End With
	
	If ( RegisterClass( @wcls ) = False ) Then
		MessageBox( NULL, "Failed to register wcls", "Error", MB_ICONERROR )
		Exit Function
	End If

	If pLibScintilla = NULL Then 
		MessageBox( NULL, "Failed to load Scintilla.dll", "Error", MB_ICONERROR )
		Exit Function
	End If
	
	hWnd = CreateWindowEx( 0, classname, "FreeBasic Scintilla", WS_OVERLAPPEDWINDOW, 100, 100, 600, 400, NULL, NULL, HINSTANCE, NULL)

	ShowWindow(hWnd, iCmdShow)
	UpdateWindow(hWnd)
	
	While(GetMessage(@wMsg, NULL, 0, 0 ) <> False)
		TranslateMessage( @wMsg )
		DispatchMessage( @wMsg )
	Wend
	
	Function = wMsg.wParam
End Function

[XusinboyBekchanov]

Fixed: Tab messages:
XusinboyBekchanov/MyFbFramework@b819278

[chunmingwang]

Thanks you!