Travaux avec Scintilla
- Progi1984
- Messages : 2659
- Inscription : mar. 14/déc./2004 13:56
- Localisation : France > Rennes
- Contact :
Travaux avec Scintilla
Je soushaite utiliser Scintilla pour un tool mais je n'y arrive pas. Personne n'aurait un code simple ?
- Progi1984
- Messages : 2659
- Inscription : mar. 14/déc./2004 13:56
- Localisation : France > Rennes
- Contact :
Personne pour me répondre ?
Librairies & Applications : https://www.purebasic.fr/french/viewtop ... f=8&t=6220
Site Web : https://rootslabs.net
Site Web : https://rootslabs.net
-
- Messages : 4312
- Inscription : mer. 28/janv./2004 20:58
- Localisation : Clermont ferrand OU Olsztyn
- Contact :
Le Soldat Inconnu a écrit :un bazar pour faire de la colorisation syntaxique
elle est utilisée dans jaPBe par exemple
essaie de regarder les sources de jaPBe



- Progi1984
- Messages : 2659
- Inscription : mar. 14/déc./2004 13:56
- Localisation : France > Rennes
- Contact :
Mon tool est un logiciel pour faire de l'algorithmie (pour ceux qui connaissent) mais je voudrais créer un document Scintilla par onglet tout en pouvant créer de nouveaux onglets. Si il ya des personnes qui souhaitent découvrir cette DLL avec moi, je suis OK! Au final, je ferais un tuto pour Scintilla.
Librairies & Applications : https://www.purebasic.fr/french/viewtop ... f=8&t=6220
Site Web : https://rootslabs.net
Site Web : https://rootslabs.net
- Progi1984
- Messages : 2659
- Inscription : mar. 14/déc./2004 13:56
- Localisation : France > Rennes
- Contact :
Exemple de code :
Code : Tout sélectionner
Procedure SciEditGadget(hwndParent,x,y,w,h)
hmod = OpenLibrary(1, "SciLexer.dll")
If (hmod) = 0
MessageRequester( "Error loading Scintilla", "The Scintilla DLL could not be loaded.", #MB_OK | #MB_ICONERROR)
Else
hInstance = GetModuleHandle_(0)
hwndScintilla = CreateWindowEx_(0, "Scintilla"," ", #WS_CHILD|#WS_VISIBLE|#WS_TABSTOP,x,y,w,h,hwndParent,0,hInstance,0)
EndIf
ProcedureReturn hwndScintilla
EndProcedure
If OpenWindow(0, 100, 100, 320,240, #PB_Window_SystemMenu ,"PureBasic Test Window")
;create Edit Gadget
SciEditGadget(WindowID(),10,10,300,200)
Repeat
EventID.l = WaitWindowEvent()
Until EventID = #PB_EventCloseWindow
EndIf
End