PureBoard

Code: Alles auswählen

EnableExplicit

XIncludeFile "..\RichEdit.pbi"
UsePNGImageDecoder()
UseJPEGImageDecoder()
UseModule RichEdit

Define.RichEdit Edit
Define.RichEdit Edit2

Macro mcDoubleText()
  Edit2\DisableRedraw(#True)
  Edit2\Clear()            
  Edit2\SetText( "{" )    
  Edit2\SetText( Mid(Edit\GetRTFText(),2))    
  Edit2\DisableRedraw(#False)
  Edit2\Redraw()
EndMacro  

If OpenWindow(0, #PB_Ignore, #PB_Ignore, 600, 250, "Test Image")
  Edit = New_RichEdit(0, 0, 600, 100)
  Edit2 = New_RichEdit(0,120,600,100)
  Edit2\SetReadonly(#True)
  Edit\SetInterface()
  Edit\SetText("This is a picture: ")
  
  LoadImage(0, OpenFileRequester("Datei öffnen","*.png","PNG (*.png)|*.png|JPG (*.jpg)|*.jpg",0))
  Edit\SetImage(ImageID(0))
  
  Edit\SetText(" in a EditorGadget!" + #CRLF$)

  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break
      Case #PB_Event_Gadget
        If EventGadget() = Edit\GetId()
          mcDoubleText()
;           
        EndIf          
      Case #WM_KEYUP
        If GetActiveGadget() = Edit\GetId()
          mcDoubleText()

        EndIf

    EndSelect
  ForEver
Else  
  Debug "Could not Open Window!"
EndIf
CloseWindow(0)
End