Clipboardinhalt unabhängig vom Typ speichern und zurück

[Hyper]

Hi ts-soft!

Wird der Speicher freigegeben? Dann wirds in der Tat schwierig. Hm, wie könnte ich dann meine Aufgabe anders lösen? Kann ich ja mal kurz darstellen, ist ja kein Geheimnis:

Aufgabe: Mehrere RTF-Strings miteinander korrekt kombinieren.
Meine derzeitige Lösung:

Code: Alles auswählen

1. Baue ein unsichtbares Fenster mit Editor_Links und Editor_Rechts
2. (Sicherung Inhalt Zwischenablage)
3.0 Beginn Durchlauf für alle RTF-Strings
3.1 Setze RTF-String in Editor_Links
3.2 Ausschneiden kompletten Inhalt von Editor_Links in Zwischenablage
3.3 Einfügen aus Zwischenablage ans Ende von Editor_Rechts
3.4 Ende Durchlauf
4. Hole kompletten RTF-Text aus Editor_Rechts
5. (Zurücksetzen Zwischenablage)

Funktioniert 100%ig. Vorteil: man bekommt einen sauberen zusammengefügten RTF-String zurück und erspart sich das Auseinandersetzen mit der RTF-Syntax. Aber man hat eben das Problem die Schritte 2. und 5. realisieren zu müssen.

Falls es hierfür eine andere und gleich gute Lösung gibt, würde ich sehr gern die Zwischenablage in Ruhe lassen.

PS: Bleibt noch zu bemerken, dass ich das deutsche und englische Forum komplett durchsucht habe, bevor ich mich für diese Lösung entschloss.

[Kiffi]

Funktioniert 100%ig.

... solange kein anderer Programmierer auf die Idee kommt, eine
Applikation zu schreiben, die genauso vorgeht wie Dein Programm.

Außerdem gibt's ja auch noch den Anwender, der das Clipboard
für seine Zwecke nutzen will.

Wie willst Du sicherstellen, dass Du mit Deinem Programm nicht dazwischenfunkst?

Grüße ... Kiffi

[Hyper]

Hi Kiffi,
nun der Anweder gibt den Befehl zum Anzeigen, in diesem Moment werden im Hintergrund die Texte zusammengestellt und vorbereitet und dann in direkter Folge ineinanderkopiert und ausgegeben.
Während des Ablaufes muss der Anwender theoretisch auf der Ergebnis warten. Praktisch geht es natürlich so schnell, dass er davon nichts mitbekommt.
Der Anwender soll ja auch das Clipboard nutzen, selbstverständlich. Dafür brauche ich ja genau dass, was ich hier angefragt habe: Speichern und Wiederherstellen des Clipboards.

Sollte es eine andere Lösung geben RTF-Texte zu kombinieren, würde ich natürlich nicht über das CP gehen, ist doch klar. Hast Du eine Idee?

[Kiffi]

Hast Du eine Idee?

sagen wir mal so: Ich habe eine Ahnung. Allerdings so ganz ohne
Code ist das ein wenig der trübe Blick in die Glaskugel.

Du kopierst eine Zeile aus einem Editorgadget in das Clipboard? Mit welchem Befehl?

Grüße ... Kiffi

[Hyper]

Hi Kiffi,
ich nutze die Windows APIs:

Code: Alles auswählen

Procedure   sy_Editor_Select_All  (i_Gadget.i)
  SendMessage_(GadgetID(i_Gadget),#EM_SETSEL, 0, -1)       
EndProcedure
Procedure   sy_Editor_Cut         (i_Gadget.i ) 
  SendMessage_(GadgetID(i_Gadget), #WM_CUT, 0, 0)
EndProcedure
Procedure   sy_Editor_Copy        (i_Gadget.i )
  SendMessage_(GadgetID(i_Gadget), #WM_COPY, 0, 0)
EndProcedure
Procedure   sy_Editor_Paste       (i_Gadget.i ) 
  SendMessage_(GadgetID(i_Gadget), #WM_PASTE, 0, 0)
EndProcedure  

Zunächst setze ich den Code in Editor_Links über SetGadgetText() rein, kopiere ihn dann mit

Code: Alles auswählen

sy_Editor_Select_All(Editor_Links)
sy_Editor_Cut(Editor_Links) 

und setze ihn mit

Code: Alles auswählen

sy_Editor_Paste (Editor_Rechts) 

an den schon vorhandenen RTF-Text im Editor_Rechts. Dann kommt der nächste Text (Ich arbeite eine LinkedList ab.) Das Hilfs-Fenster bleibt bleibt immer unsichtbar und wird ganz am Ende wieder geschlossen.

[Kiffi]

mit #EM_GETSEL kannst Du Dir den markierten Text in eine
Variable einlesen. Dann benötigst Du kein #WM_COPY und
dementsprechend auch kein Clipboard mehr.

Grüße ... Kiffi

[Hyper]

Aha, das probiere ich morgen mal. Und wie füge ich den Text dann im rechten Editor an?

[Kiffi]

Und wie füge ich den Text dann im rechten Editor an?

mit #EM_REPLACESEL

Grüße ... Kiffi

// Edit: Wieso erst morgen? Der Abend ist noch jung!

[Hyper]

Guten Morgen Kiffi,

so, die ersten Versuche sehen ganz gut aus. Aber leider wird die Formatierung nicht mit kopiert. Muss ich die extra auslesen oder mache ich hier etwas falsch?

Code: Alles auswählen

  Procedure.s RTF_GetSelectedText(i_Gadget.i)
    ;/ -----------------------------------------------------------------------------
    ;/ Copy selected Text to String
    ;/ -----------------------------------------------------------------------------  
    Protected l_marked.CHARRANGE
    Protected l_txt.s
    
    SendMessage_(GadgetID(i_Gadget), #EM_EXGETSEL  , 0, @l_marked ) 
    l_txt       = Space (1 + l_marked\cpMax - l_marked\cpMin)
    SendMessage_(GadgetID(i_Gadget), #EM_GETSELTEXT, 0, @l_txt)
    
    ProcedureReturn l_txt
    
  EndProcedure
  
  
  text$ = "{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fswiss\fprq2\fcharset0 Arial;}{\f2\fswiss\fprq2\fcharset0 Verdana;}}" 
  text$ = text$ + "{\colortbl ;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red0\green0\blue0;}" 
  text$ = text$ + "\viewkind4\uc1\pard\f0\fs20 normal \cf1 rot\cf0  \cf2 gr\'fcn\cf0  \b fett\b0  \cf3\b fettblau \cf0\b0 normal\par " 
  text$ = text$ + "Jetzt Text markieren und Fenster schließen klicken! \f1 Arial, \f2\fs28 Verdana\fs20 , \f0 Courier New\cf4\par " 
  text$ = text$ + "}" 
  
  OpenWindow(#PB_Any, 216, 0, 590, 300, "Popup Menu im Editor-Gadget" , #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar)
  
  EditorGadget(9000,  10, 10 , 280, 280)
  EditorGadget(9001, 300, 10 , 280, 280)
  
  SetGadgetText( 9000, text$ )   ;/ Text reinsetzen 
  
  ;/ Pause: Jetzt Textteile markieren 
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  
  l_sel.s = RTF_GetSelectedText( 9000 )
  
  ;/ Rechts reinsetzen [leider ohne Format]
  SetGadgetText( 9001, l_sel )
  
  ;/ Pause
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow