A another code worked without MaxGUI, but not adapted.
Include "scintilla_const.bmx"
Include "scintilla_struct.bmx"
Global SCI_LIBRARY = LoadLibraryA("SciLexer.dll")
Global SCI_MSGPTR:Byte Ptr = GetProcAddress(SCI_LIBRARY,"Scintilla_DirectFunction")
Graphics 800,600
Local hWnd = GetActiveWindow()
Local hRect[]
GetClientRect(hWnd , hRect)
Global SCI_HWND = CreateWindowExA( WS_EX_CLIENTEDGE , "Scintilla" , "" , WS_CHILD | WS_VISIBLE , ..
hRect[0] , hRect[1] , hRect[2]-hRect[0] , hRect[3]-hRect[1] , ..
hWnd , 0 , GetModuleHandleA(0) , "")
SetParent_(SCI_HWND , hWnd)
SendMessageA(SCI_HWND , SCI_STYLESETFONT , STYLE_DEFAULT , "Verdana".ToInt() )
SendMessageA(SCI_HWND , SCI_STYLESETSIZE , STYLE_DEFAULT , 9 )
SendMessageA(SCI_HWND , SCI_STYLESETBOLD , STYLE_DEFAULT , True )
' BOUCLE
While Not AppTerminate()
Wend
End
|