Paste To EditorGadget

[electrochrisso]

Is it possible when pasting to the EditorGadget to not have the rich formatting and be like the StringGadget and stay in the same font originally set for the gadget. I can use StringGadget multiline and extra flags, but I like the EditorGadget better for what I want to use it for.

[IdeasVacuum]

...Instead of offering the User only a 'Paste' option, you can, say, have two options on the Menu/PopUp - 'Paste' and 'Paste Unformatted'.

If the User selects 'Unformatted', simply paste into a hidden string gadget first, then copy from that (GetGadgetText) into the active Editor gadget.

[jesperbrannmark]

What you mean? Editorgadget doesnt support formatted text (RTF or HTML)... no bold, italics, fontsize, colors etc...

[IdeasVacuum]

...yes, it does support RTF on Windows. There are a lot of posts about that, look for Rich Edit.

[RASHAD]

You can switch between RTF and Plain Text at any time

Code: Select all

If OpenWindow(0, 0, 0, 400, 290, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  EditorGadget(0, 10,10, 380, 240)
  ButtonGadget(1, 10, 260, 80, 20, "RTF")
  ButtonGadget(2, 100, 260, 80, 20, "Pain Text")
Repeat
  Select WaitWindowEvent()
      
       Case #PB_Event_CloseWindow
          Quit = 1       
     
      Case #PB_Event_Gadget
          Select EventGadget()
           Case 1
               SetGadgetText(0,"")
               SendMessage_(GadgetID(0), #EM_SETTEXTMODE, #TM_RICHTEXT, 0)
               SetActiveGadget(0)

           Case 2
               SetGadgetText(0,"")
               SendMessage_(GadgetID(0), #EM_SETTEXTMODE, #TM_PLAINTEXT, 0)
               SetActiveGadget(0)
                        
          EndSelect
  EndSelect
Until Quit = 1

EndIf

[electrochrisso]

Thanks RASHAD, just what I need.