PureBoard

Code: Alles auswählen

Procedure RichEditCallback(hWnd, uMsg, wParam, lParam)

  Protected Range.CHARRANGE
  Protected PrevLine.l
  Protected PrevLineContent.s
  Protected Indent.s
  Protected *Pointer.Character
  
  If uMsg = #WM_CHAR And wParam = #CR
  SendMessage_(hWnd, #EM_EXGETSEL, 0, @Range)
  PrevLine = SendMessage_(hWnd, #EM_EXLINEFROMCHAR, 0, Range\cpMin) - 1
  PrevLineContent = GetGadgetItemText(#EDITOR, PrevLine)
  *Pointer = @PrevLineContent
  Indent = ""
  If Var = 1
    While *Pointer\c And (*Pointer\c = 9 Or *Pointer\c = 32)
    Indent + Chr(*Pointer\c)
    *Pointer + SizeOf(Character)
    Wend
  Else
  EndIf
  SendMessage_(hWnd, #EM_REPLACESEL, 0, @Indent)
  ProcedureReturn 0
  EndIf
  
  ProcedureReturn CallWindowProc_(GetWindowLongPtr_(hWnd, #GWLP_USERDATA), hWnd, uMsg, wParam, lParam)
EndProcedure 

Code: Alles auswählen

  If AutoCursor = 1
    Protected Range.CHARRANGE
    Protected PrevLine.l
    Protected PrevLineContent.s
    Protected Indent.s
    Protected *Pointer.Character
    
    If uMsg = #WM_CHAR And wParam = #CR
    SendMessage_(hWnd, #EM_EXGETSEL, 0, @Range)
    PrevLine = SendMessage_(hWnd, #EM_EXLINEFROMCHAR, 0, Range\cpMin) - 1
    PrevLineContent = GetGadgetItemText(#Editor_0, PrevLine)
    *Pointer = @PrevLineContent
    Indent = ""
    While *Pointer\c And (*Pointer\c = 9 Or *Pointer\c = 32)
    Indent + Chr(*Pointer\c)
    *Pointer + SizeOf(Character)
    Wend
    SendMessage_(hWnd, #EM_REPLACESEL, 0, @Indent)
    _RET 0
    EndIf
    
    _RET CallWindowProc_(GetWindowLongPtr_(hWnd, #GWLP_USERDATA), hWnd, uMsg, wParam, lParam)
  Else
    _RET 0
  EndIf

Code: Alles auswählen

Procedure.i EditGadgetSetAlignment(pbnr, wert)
   
   Protected id = GadgetID(pbnr)
   Protected format.ParaFormat2\cbSize = SizeOf(ParaFormat2)   
      
   With format
      \dwMask = #PFM_OFFSETINDENT: \dxStartIndent = wert  
         
      ;\dwMask = #PFM_STARTINDENT:  \dxStartIndent = 150
      ;\dwMask = #PFM_STARTINDENT:  \dxStartIndent = 0
      
      SendMessage_(id, #EM_SETPARAFORMAT, 0, format)
      
   EndWith

EndProcedure


Enumeration 
   #window
   #editor1
   #button1
   #button2
EndEnumeration

#winbr = 450
#winhh = 400
#wrand = 8
#edix  = #wrand
#ediy  = #wrand
#edibr = #winbr - #wrand - #wrand
#edihh = #winhh - #wrand - #wrand - 150

Define flags = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
   
OpenWindow(#window, 0, 0, #winbr, #winhh, "EditorGadget", flags)
      
EditorGadget(#editor1, #edix, #ediy, #edibr, #edihh) 
ButtonGadget(#button1, 10, #winhh - 30, 80, 20, "on")
ButtonGadget(#button2, 110, #winhh - 30, 80, 20, "off")

EditGadgetSetAlignment(#editor1, 250)

; -Event Schleife-------------------------------------

Repeat
   Define event = WaitWindowEvent()
        
   If event = #PB_Event_Gadget
       
      Define wB = EventGadget()       
      Select wb 
         Case #button1: EditGadgetSetAlignment(#editor1, 250)
         Case #button2: EditGadgetSetAlignment(#editor1, -250)
      EndSelect
               
   EndIf    
    
Until event = #PB_Event_CloseWindow