Seite 1 von 1

Wie bekomme ich Copy & Paste mit Text vom Editor Gadget?

Verfasst: 11.11.2005 02:55
von guruk
so wie im String Gadget. Jedes andere Gadget (Listview) z.b. ist mir auch recht, solange chr(13)+chr(10) (also RET) mitverarbeitet wird.

Kann es auch gerne selbst auslesen und in den entsprechenden Speicher schicken, wenn ich nur wuesste welcher das ist (Copy hier und Paste in jeder anderen Textapplication)

Gruss
Christian

-
Ich weiss ich kann mich auf euch verlassen ... und wenn nicht heute, dann ein ander Mal, ganz gewiss.

Verfasst: 11.11.2005 03:11
von ts-soft

Code: Alles auswählen

SendMessage_(GadgetID(#Gadget),#WM_COPY,0,0)
SendMessage_(GadgetID(#Gadget),#WM_PASTE,0,0)
Sollte gehen, nicht getestet, oder so:

Code: Alles auswählen

Procedure Editor_GetSelLength(Gadget)
  sel.CHARRANGE
  SendMessage_(GadgetID(Gadget),$0434,0, @sel)
  ProcedureReturn sel\cpMax - sel\cpMin
EndProcedure
Procedure.s Editor_GetSelText(Gadget)
  Text.s = Space(Editor_GetSelLength(Gadget) + 1)
  SendMessage_(GadgetID(Gadget), $043E, 0,@Text.s)
  ProcedureReturn Text.s
EndProcedure

SetClipboardText(Editor_GetSelText(Gadget))
Einfach mal testen, was besser klappt :wink:

PS: Ich finde es eigentlich nicht so schön in allen Foren dieselben Fragen nochmal zu lesen, stelle Deine Frage doch einfach entweder im englischem Forum oder hier. Sollte Deine Frage unbeantwortet bleiben, kannst immer noch im anderen Forum fragen.

Verfasst: 11.11.2005 03:33
von guruk
Danke.

eigentlich habe ich immer nur dieses SetClipboardText(Editor_GetSelText(Gadget)) gesucht. Ich wusste da gabs was..

Danke fuer den Remember.

Gruss
Christian