PureBasic Forum

;{ ===== Module Commands =====

  ; EditEx::AddItem()                - Add text row at 'Position' (or #FirstRow / #LastRow)
  ; EditEx::AddToUserDictionary()    - Add a new word to user dictionary
  ; EditEx::AddWord()                - Add word to syntax highlighting
  ; EditEx::AttachPopup()            - Attach 'PopUpMenu' to gadget
  ; EditEx::ClearWords()             - Delete the list with the words for syntax highlighting
  ; EditEx::ClearUndo()              - Delete the list with Undo/Redo steps
  ; EditEx::Copy()                   - Copy selected text to clipboard
  ; EditEx::Cut()                    - Cut the selected text and copy it to the clipboard
  ; EditEx::DeleteSelection()        - Delete selected text (Remove selection: #True/#False)
  ; EditEx::DeleteWord()             - Delete word from syntax highlighting
  ; EditEx::EnableAutoSpellCheck()   - Activate automatic spelling correction
  ; EditEx::EnableSyntaxHighlight()  - Enable syntax highlighting (#False/#CaseSensitiv/#NoCase)
  ; EditEx::EnableUndoRedo()         - Enable 'Undo/Redo' function (#True/#False)
  ; EditEx::FreeDictionary()         - Removes the loaded dictionary from memory
  ; EditEx::GetAttribute()           - Returns value of attribute (#ReadOnly/#WordWrap/#Hyphenation/#AutoHide/#Border/#CtrlChars)
  ; EditEx::GetColor()               - Returns color of attribute (#FrontColor/#BackColor/#SyntaxColor/#SelectionColor)
  ; EditEx::GetItemText()            - Returns text row at 'Position'
  ; EditEx::GetSelection()           - Returns selected text (Remove selection: #True/#False)
  ; EditEx::GetText()                - Returns all text rows seperated by 'Seperator'
  ; EditEx::InsertText()             - Insert text at cursor position (or replace selection)
  ; EditEx::IsRedo()                 - Checks if an redo is possible
  ; EditEx::IsSelected()             - Returns whether a selection exists
  ; EditEx::IsUndo()                 - Checks if an undo is possible
  ; EditEx::LoadDictionary()         - Load the dictionary for spell checking
  ; EditEx::LoadHyphenationPattern() - Load hyphenation pattern for selected language (#Deutsch/#English/#French)
  ; EditEx::Redo()                   - Perform Redo
  ; EditEx::ReDraw()                 - Redraw the gadget
  ; EditEx::RemoveGadget()           - Releases the used memory and deletes the cursor thread
  ; EditEx::Paste()                  - Inserting text from the clipboard
  ; EditEx::SaveUserDictionary()     - Save user dictionary
  ; EditEx::SetAttribute()           - Enable/Disable attribute (#ReadOnly/#WordWrap/#Hyphenation/#AutoHide/#Border/#CtrlChars)
  ; EditEx::SetColor()               - Set or change color of attribute (#FrontColor/#BackColor/#SyntaxColor/#SelectionColor)
  ; EditEx::SetFont()                - Set or change font FontID(#Font)
  ; EditEx::SetItemText()            - Replace text row at 'Position'
  ; EditEx::SetText()                - Set or replace all text rows
  ; EditEx::SpellCheck()             - Checks the spelling of the word (returns: #True/#False)
  ; EditEx::SpellChecking()          - Check the spelling in the editor gadget (#Highlight/#WrongWords)
  ; EditEx::Undo()                   - Perform Undo
  ; -----------------------
  ; EditEx::Gadget()                 - Creates an editor gadget
  ; -----------------------

;} ===========================

Procedure.s DeleteStringPart(String.s, Position.i, Length.i=1) ; Delete string part at Position (with Length)
    If Position > 0 And Position <= Len(String)
      ProcedureReturn Left(String, Position - 1) + Mid(String, Position + Length)
    Else
      ProcedureReturn String
    EndIf
  EndProcedure

  Procedure.s DeleteStringPart(String.s, Position.i, Length.i=1) ; Delete string part at Position (with Length)
   
    If Position <= 0 : Position = 1 : EndIf
    If Position > Len(String) : Position = Len(String) : EndIf
   
    ProcedureReturn Left(String, Position - 1) + Mid(String, Position + Length)
  EndProcedure

; [23/11/18] Spellchecking & Bugfixes
; [24/11/18] WordWrap and Hyphenation revised & Bugfixes

Language = EditEx::#Deutsch  ; #Deutsch / #English / #French

;- Example
;{

EnableExplicit

Global Window_0
Global Canvas_0, Editor_0, Button_0

Declare ResizeGadgetsWindow_0()

Procedure OpenWindow_0(X = 0, Y = 0, Width = 690, Height = 470)
  Window_0 = OpenWindow(#PB_Any, X, Y, Width, Height, "MyEditor Gadget", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
  Canvas_0 = CanvasGadget(#PB_Any, 10, 10, 670, 350, #PB_Canvas_Keyboard)
  Editor_0 = EditorGadget(#PB_Any, 10, 390, 670, 70)
  Button_0 = ButtonGadget(#PB_Any, 10, 360, 130, 30, "Close Editor")
EndProcedure
Procedure ResizeGadgetsWindow_0()
  Protected FormWindowWidth, FormWindowHeight
  FormWindowWidth = WindowWidth(Window_0)
  FormWindowHeight = WindowHeight(Window_0)
  ResizeGadget(Canvas_0, 10, 10, FormWindowWidth - 20, FormWindowHeight - 120)
  ResizeGadget(Editor_0, 10, FormWindowHeight - 80, FormWindowWidth - 20, 70)
  ResizeGadget(Button_0, 10, FormWindowHeight - 110, 130, 30)
EndProcedure

Global Font_0, Font_1, Font_2, Font_3
Global Txt_1.s, txt.s, Editor, Style, i
Global sep.s = #CRLF$ ; #LF$

;Txt_1 + "x" + sep + sep
Txt_1 + sep + sep
Txt_1 + "012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789" + sep + sep
Txt_1 + "PureBasic is a high-level programming language based on established BASIC rules. It is mostly compatible with any other BASIC compiler, whether it's for the Amiga or PC format. Learning PureBasic is very easy! PureBasic has been created for beginners and experts alike. Compilation time is extremely fast. This software has been developed for the Windows operating system. We have put a lot of effort into its realization to produce a fast, reliable and system-friendly language. " + sep
Txt_1 + "The syntax is easy and the possibilities are huge with the advanced functions that have been added to this language like pointers, structures, procedures, dynamic lists and much more. For the experienced coder, there are no problems gaining access to any of the legal OS structures or Windows API objects. " + sep
Txt_1 + "PureBasic is a portable programming language which currently works on AmigaOS, Linux, MacOS X and Windows computer systems. This means that the same code can be compiled natively for the OS and use the full power of each. There are no bottlenecks like a virtual machine or a code translator, the generated code produces an optimized executable. " + sep
Txt_1 + "The main features of PureBasic" + sep
Txt_1 + "- x86, x64, 680x0 and PowerPC support" + sep
Txt_1 + "- Built-in arrays, dynamic lists, complex structures, pointers and variable definitions"  + sep
Txt_1 + "- Supported types: Byte (8-bit), Word (16-bit), Long (32-bit), Quad (64-bit), Float (32-bit), Double (64-bit) and Characters"  + sep
Txt_1 + "- User defined types (structures)"  + sep
Txt_1 + "- Built-in string types (characters), including ascii and unicode"  ;+ sep
Txt_1 + " 012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789" + sep
Txt_1 + "- Powerful macro support"  + sep
Txt_1 + "- Constants, binary and hexadecimal numbers supported " + sep
Txt_1 + "- Expression reducer by grouping constants and numeric numbers together " + sep
Txt_1 + "- Standard arithmetic support in respect of sign priority and parenthesis: +, -, /, *, and, or, <<, >> " + sep
Txt_1 + "- Extremely fast compilation " + sep
Txt_1 + "- Procedure support for structured programming with local and global variables " + sep
Txt_1 + "- All Standard BASIC keywords: If-Else-EndIf, Repeat-Until, etc " + sep
Txt_1 + "- Specialized libraries to manipulate BMP pictures, windows, gadgets, DirectX, etc " + sep
Txt_1 + "- Specialized libraries are very optimized for maximum speed and compactness " + sep
Txt_1 + "- The Win32 API is fully supported as if they were BASIC keywords " + sep
Txt_1 + "- Inline Assembler " + sep + sep
Txt_1 + "- Precompiled structures with constants files for extra-fast compilation " + sep
Txt_1 + "- Configurable CLI compiler " + sep
Txt_1 + "- Very high productivity, comprehensive keywords, online help " + sep
Txt_1 + "- System friendly, easy to install and easy to use " + sep + sep


;Txt_1 = "a " + sep + " b"
;Txt_1 = "a" +#TAB$+ "bb" +#TAB$+ "ccc" +#TAB$+ "dddd" +#TAB$+ "eeeee" +#TAB$+ "ffffff"
;Txt_1 = sep + "a"
;Txt_1 = sep + "a" + sep
;Txt_1 = "- System friendly, easy to install and easy to use " + sep + sep
;Txt_1 = sep + "x" + sep + "a" + sep + sep
;Txt_1 = "012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789"
;Txt_1 = "a " + "012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789"

;Txt_1 = ReverseString(Txt_1)
;Txt_1 = "a " + "PureBasic is a high-level programming language based on established BASIC rules. It is mostly compatible with any other BASIC compiler" + sep

;Txt_1 = "Hello said"

OpenWindow_0()

Font_0 = LoadFont(#PB_Any, "Arial", 10)
Font_1 = LoadFont(#PB_Any, "Courier New", 14 , #PB_Font_Bold|#PB_Font_Italic|#PB_Font_HighQuality)
Font_2 = LoadFont(#PB_Any, "Tahoma", 12 , #PB_Font_Bold|#PB_Font_HighQuality)
Font_3 = LoadFont(#PB_Any, "Impact", 18 , #PB_Font_HighQuality)

Canvas_0 = MyEditor::Gadget(-1, 10, 10, 670, 350)
Editor=GetGadgetData(Canvas_0)

MyEditor::SetText(Editor, Txt_1)

MyEditor::EnableSyntaxHighlight(Canvas_0)
MyEditor::AddWord(Canvas_0, "PureBasic")
MyEditor::AddWord(Canvas_0, "(64-bit)")
MyEditor::AddWord(Canvas_0, "Long", #Blue)
MyEditor::ReDraw(Canvas_0)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
  EndSelect
ForEver
;}

[02/12/18] Continuous text for hyphenation and wordwrap & Resize Handler & many Bugfixes

;- Example

XIncludeFile "EditorEx.pbi"

EnableExplicit

Global Font_0, Font_1, Font_2, Font_3
Global Txt_1.s
Global sep.s = #CRLF$

Txt_1 + sep + sep
Txt_1 + "012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789" + sep + sep
Txt_1 + "PureBasic is a high-level programming language based on established BASIC rules. It is mostly compatible with any other BASIC compiler, whether it's for the Amiga or PC format. Learning PureBasic is very easy! PureBasic has been created for beginners and experts alike. Compilation time is extremely fast. This software has been developed for the Windows operating system. We have put a lot of effort into its realization to produce a fast, reliable and system-friendly language. " + sep
Txt_1 + "The syntax is easy and the possibilities are huge with the advanced functions that have been added to this language like pointers, structures, procedures, dynamic lists and much more. For the experienced coder, there are no problems gaining access to any of the legal OS structures or Windows API objects. " + sep
Txt_1 + "PureBasic is a portable programming language which currently works on AmigaOS, Linux, MacOS X and Windows computer systems. This means that the same code can be compiled natively for the OS and use the full power of each. There are no bottlenecks like a virtual machine or a code translator, the generated code produces an optimized executable. " + sep
Txt_1 + "The main features of PureBasic" + sep
Txt_1 + "- x86, x64, 680x0 and PowerPC support" + sep
Txt_1 + "- Built-in arrays, dynamic lists, complex structures, pointers and variable definitions"  + sep
Txt_1 + "- Supported types: Byte (8-bit), Word (16-bit), Long (32-bit), Quad (64-bit), Float (32-bit), Double (64-bit) and Characters"  + sep
Txt_1 + "- User defined types (structures)"  + sep
Txt_1 + "- Built-in string types (characters), including ascii and unicode"  ;+ sep
Txt_1 + " 012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789" + sep
Txt_1 + "- Powerful macro support"  + sep
Txt_1 + "- Constants, binary and hexadecimal numbers supported " + sep
Txt_1 + "- Expression reducer by grouping constants and numeric numbers together " + sep
Txt_1 + "- Standard arithmetic support in respect of sign priority and parenthesis: +, -, /, *, and, or, <<, >> " + sep
Txt_1 + "- Extremely fast compilation " + sep
Txt_1 + "- Procedure support for structured programming with local and global variables " + sep
Txt_1 + "- All Standard BASIC keywords: If-Else-EndIf, Repeat-Until, etc " + sep
Txt_1 + "- Specialized libraries to manipulate BMP pictures, windows, gadgets, DirectX, etc " + sep
Txt_1 + "- Specialized libraries are very optimized for maximum speed and compactness " + sep
Txt_1 + "- The Win32 API is fully supported as if they were BASIC keywords " + sep
Txt_1 + "- Inline Assembler " + sep + sep
Txt_1 + "- Precompiled structures with constants files for extra-fast compilation " + sep
Txt_1 + "- Configurable CLI compiler " + sep
Txt_1 + "- Very high productivity, comprehensive keywords, online help " + sep
Txt_1 + "- System friendly, easy to install and easy to use " + sep + sep

Font_0 = LoadFont(#PB_Any, "Arial", 10)
Font_1 = LoadFont(#PB_Any, "Courier New", 14 , #PB_Font_Bold|#PB_Font_Italic|#PB_Font_HighQuality)
Font_2 = LoadFont(#PB_Any, "Tahoma", 12 , #PB_Font_Bold|#PB_Font_HighQuality)
Font_3 = LoadFont(#PB_Any, "Impact", 18 , #PB_Font_HighQuality)

Define.i QuitWindow = #False

#Win = 0
#Edit   = 1
#EditEx = 2
#Button = 3

If OpenWindow(#Win, 0, 0, 690, 470, "Test", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
 
  EditEx::Gadget(#EditEx, 10, 10, 670, 350, EditEx::#Border|EditEx::#ScrollBars)
 
  EditorGadget(#Edit, 10, 390, 670, 70)
 
  ButtonGadget(#Button, 10, 365, 135, 20, "Close Editor")
 
  EditEx::SetText(#EditEx, Txt_1)

  EditEx::EnableSyntaxHighlight(#EditEx)
  EditEx::AddWord(#EditEx, "PureBasic")
  EditEx::AddWord(#EditEx, "(64-bit)")
  EditEx::AddWord(#EditEx, "Long", #Blue)
  EditEx::ReDraw(#EditEx)
 
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow ;{ Close Window
        QuitWindow = #True
        ;}
      Case #PB_Event_Gadget      ;{ Gadgets
        Select EventGadget()
          Case #Button
            QuitWindow = #True
        EndSelect ;}
    EndSelect
  Until QuitWindow
 
EndIf

[03/12/18] Syntax highlighting revised & Bugfixes

[05/12/18] Undo/Redo feature & Copy / Cut / Paste & Bugfixes