Von RichEdit1 in RichEdit2 formatierten Text einfügen!!!

[samson]

Hallo.

Ich habe zwei RichEdit Steuerlemente auf meinem Formular. In beidem befindet sich ein formatierter Text. Jetzt möchte ich den Formatierten und selektierten Text von RichEdit1 in RichEdit2 (Cursorposition) einfügen.

Meine Frage ist. Geht das überhaupt??? Irgendwie sitze ich seit Stunden daran und komme nicht darauf. Ziel ist es ein Baukastenprinzip in meiner Software zu bauen, wo ich auch die Möglichkeit haben soll, den Text entsprechend zu formatieren.

Kennt sich da jemand aus? Hat das einer schonmal gemacht?

Danke für jede Antwort.

Gruss


Samson

[fkerber]

Hi!

Ich glaube ich verstehe nicht so ganz was du meinst!
Eventuell hilft dir dieser einfache Ausdruck (was ich nicht glaube):

Delphi-Quellcode:

Richedit2.Text:=Richedit1.SelText;

Ciao fkerber

[tHeRiAn]

hi

hast dus schon mit versucht....

Delphi-Quellcode:

RichEdit2.Lines:=RichEdit1.Lines;

oder hab ich da was falsches verstanden.....


mfg therian

[samson]

Hallo.

Ich glaube ich habe mich nen bisschen Falsch ausgedrückt.

Ich habe ein RichEdit1 in dem befindet sich z. B. der Text: "Nicht Vergessen!!!" In Roter Schrift und Fett und in Schriftart Arial 14.

So. Jetzt habe ich einen zweiten RichEdit2 mit dem Text: Irgendwas, Irgendwas, Irgendwas .... in der Formatierung: Arial 12 und Kursiv.

Nehmen wir an, der Cursor steht in RichEdit2 hinter dem ersten Irgendwas, .

Jetzt möchte ich den Text von RichEdit1 "Mit der vordefinierten Formatierung" in RichEdit2 einfügen.

Das geht irgendwie nicht! Er übernimmt nicht die Formatierung aus RichEdit1.

Hmpf...

Danke für Eure weiter Hilfe.


Gruss


Samson

[fkerber]

Hi!

Nur mal so als Idee:
Kopier den Inhalt von Richedit1 in die Zwischenablage und füg es dann in Richedit2 ein.

Ciao fkerber

[Christian Seehase]

Moin Samson,

der von fkerber vorgeschlagene Weg wird mit Sicherheit funktionieren, aber ich persönlich halte ihn für unsauber, da hierbei, ohne dass der Anwender dies will, oder gar mitbekommt, der Inhalt der Zwischenablage zerstört wird.
Das Thema als solches hatten wir schon einmal.
Du könntest alle Formatierungen für jedes Zeichen einzeln auslesen, und mit übertragen, indem Du sie mit SelAttributes ausliest, und am Ziel wieder setzt, während Du Zeichen selber ausliest.
Wenn sichergestellt wäre, dass die Formatierungen, im gesamten zu übertragenden Text gleich sind, müsstest Du natürlich nicht zeichenweise vorgehen.

[scp]

Wenn der Text, der rüberkopiert werden soll, in einer durchgehenden Formatierung ist, gehts so:

Delphi-Quellcode:

begin
  RichEdit1.SelectAll;

  RichEdit2.SelLength := 0;
  RichEdit2.SelText := RichEdit1.Text;
  RichEdit2.SelStart := RichEdit2.SelStart-length(RichEdit1.Text);
  RichEdit2.SelLength := length(RichEdit1.Text);
  RichEdit2.SelAttributes := RichEdit1.SelAttributes;

  RichEdit2.SelLength := 0;
  RichEdit1.SelLength := 0;
end;