Thema: Delphi Richedit Kopieren

Einzelnen Beitrag anzeigen

LuckySpacy

Registriert seit: 2. Apr 2003
Ort: Fränkisch-Crumbach
50 Beiträge
 
Delphi 10.4 Sydney
 
#1

Re: Richedit Kopieren

  Alt 9. Okt 2004, 13:18
Der oben gezeigte Quellcode funktioniert nicht zu 100%

Ich habe genau das gleiche Problem.
Ich möchte aus zwei RichEdits den Text zu einem Richedit kopieren.

Zum Testen habe ich folgendes gemacht:
Ich habe im ersten Richedit den Text RichEdit1 in rot geschrieben
und im zweiten RichEdit den Text RichEdit2 in blau geschrieben.

Um jetzt meine beiden Richedit-Texte in ein Richedit zu bekommen, habe ich oben beschriebenen
Code verwendet.

Das Ergebnis in RichEdit3 ist:
RichEdit1 (In roter Farbe)
RichEdit2 (In roter Farbe)

Da ich eigentlich RichEdit2 in blauer Farbe erwartet hätte, habe ich mir mal die Formatierung genauer angeschaut:

Formatierung in RichEdit1:
{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}
{\colortbl ;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs16 RichEdit1\cf0\f1
\par }

Formatierung in RichEdit2:
{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}
{\colortbl ;\red0\green0\blue255;}
\viewkind4\uc1\pard\cf1\f0\fs16 RichEdit2\cf0\f1
\par }

Formatierung in RichEdit3 (Das Ergebnis aus RichEdit1 + RichEdit2):
{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl {\f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}
{\colortbl ;\red255\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs16 RichEdit1\cf0\f1
\par \cf1\f0 RichEdit2\cf0\f1
\par \pard
\par }

Aussehen müsste es aber ungefähr so:
\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{ \f0\fnil\fcharset0 MS Sans Serif;}{\f1\fnil MS Sans Serif;}}
{\colortbl ;\red255\green0\blue0;\red0\green0\blue255;}
\viewkind4\uc1\pard\cf1\f0\fs16 RichEdit1\cf0
\par \cf2 RichEdit2\cf0\f1
\par }

Ich habe die wichtigen Stellen Fett hervorgehoben.
Hat jemand eine Idee, wie auch dieses Problem gelöst werden kann?
Thomas Bachmann
  Mit Zitat antworten Zitat