;Autor: neotoma

Procedure.l Twip(mm.f)
  ProcedureReturn Int(mm * (1440/25.4))
EndProcedure

Procedure Editor_Indent(Gadget)
  format.PARAFORMAT2
  format\cbSize = SizeOf(PARAFORMAT2)
  SendMessage_(GadgetID(Gadget), #EM_GETPARAFORMAT, 0, @format)
  format\dxStartIndent = Twip(10)
  format\dwMask = #PFM_OFFSETINDENT
  SendMessage_(GadgetID(Gadget), #EM_SETPARAFORMAT, 0, @format)
EndProcedure

Procedure Editor_Outdent(Gadget)
  format.PARAFORMAT2
  format\cbSize = SizeOf(PARAFORMAT2)
  SendMessage_(GadgetID(Gadget), #EM_GETPARAFORMAT, 0, @format)
  format\dxStartIndent = 0-Twip(10)
  format\dwMask = #PFM_OFFSETINDENT
  SendMessage_(GadgetID(Gadget), #EM_SETPARAFORMAT, 0, @format)
EndProcedure

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EditorGadget(1,10,10,480,200,0)
  ButtonGadget(2,10,220,100,20,"Indent")
  ButtonGadget(3,390,220,100,20,"Outdent")
 
  For a=1 To 10
    AddGadgetItem(1,-1,"Teststring",0,0)
  Next
 
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Gadget
  Select EventGadget()
    Case 2
      SendMessage_(GadgetID(1),#EM_SETSEL,0,-1)   ; Select all     
      Editor_Indent(1)
      SendMessage_(GadgetID(1),#EM_SETSEL,0,0)    ;Deselect all
    Case 3
      SendMessage_(GadgetID(1),#EM_SETSEL,0,-1)   ; Select all     
      Editor_Outdent(1)
      SendMessage_(GadgetID(1),#EM_SETSEL,0,0)    ;Deselect all     
  EndSelect
EndIf
If EventID=#PB_Event_CloseWindow
  Quit=1
EndIf
Until Quit=1
EndIf