Ich habe ein RichEdit und möchte formatierten Text in die Zwischenablage kopieren. Das geschieht eigentlich von alleine.

Allerdings möchte ich bereits bei Keydown im wissen, wie der selektierte Bereich formatiert ist.

Das Clipboard weiß ja auch wie es unterm SelText aussieht.

Wenn ich RichEdit->PlainText auf false setze, sagt die Borlandhilfe, das man mit formatiertem Text arbeitet. Ich kriege aber immer nur reinen Text.

Ausserdem versuche ich auch bei Einfügen des formatierten Textes
per Clipboard()->AsText an den Text ranzukommen.
Ich meine auch AsText müsste formatierten Text rauskommen. RichEdit speichert ja keine Binärdaten.

Was tun?

AnsiString UnformatRichText(TRichEdit *RichEdit1)
{
    TMemoryStream *MemS    = new TMemoryStream();
    TStrings *StrL         = new TStringList;
    TRichEdit *tmpRichEdit = new TRichEdit(RichEdit1->Parent);

    RichEdit1->CopyToClipboard();

    tmpRichEdit->Visible   = false;
    tmpRichEdit->Parent    = RichEdit1->Parent;
    tmpRichEdit->PlainText = false;
    tmpRichEdit->PasteFromClipboard();
    tmpRichEdit->Lines->SaveToStream(MemS);

    MemS->Position = 0;
    StrL->LoadFromStream(MemS);
    AnsiString returnString = StrL->Text;

    delete tmpRichEdit;
    delete MemS;
    delete StrL;

    return returnString;
}

Wozu soll das gut sein was du hier tust. Wenn du unformatierten Text haben willst, sollte RichEdit->Lines->Text ausreichen.

AnsiString DerText = Clipboard()->AsText;

Das liefert Dir, unabhängig davon, ob formatierter Text eingefügt wurde, unformartierten Text.
Allerdings finde ich, dass Deine Postings sich wiedersprechen. Im ersten Posting willst Du formatierten Text in der Zwischenablage habe und beschwerst Dich, dass Du nur 'plain' Text bekommst. Der Name der von Dir geposteten Funktion deutet aber darauf hin, dass Du unformatierten Text haben willst.

Ach so, nicht vergessen, zu prüfen, ob in der Zwischenablage überhaupt etwas als 'plain' Text enthalten ist. Stichwort Clipboard()->HasFormat();

Ich möchte den RichEdit-Quelltext haben.
Also sowas

{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil MS Sans Serif;}}

Und das gegebenenfalls nur von selectiertem Text

Wenn ich aber buntgefärbten(nicht einfarbig gefärbten) Text ausschneide, und ihn woanders wieder hinsetze, kann ich die RTF-Formatieung in ,einer Liste nicht nur über den reinen Text nachvollziehen, sondern speicher den RTF-Quelltext in die Liste usw...

Funktioniert jetzt auf jeden Fall.

//==============================================================================
/*!
	 \brief   set formated text (RichText) to RTF control

	 \param   AnsiString RtfCode - formated text (RichText)
	 \retval  none
	 \return  void
*/
//==============================================================================                                         
void __fastcall TfrmCommentDialog::SetText(AnsiString RtfCode)
{
	TStringStream *pStream = new TStringStream(RtfCode);

	rtfText->Lines->LoadFromStream(pStream);
	delete pStream;
}

//==============================================================================
/*!
	 \brief   get formated text (RichText) from RTF control

	 \param   void
	 \retval  none
	 \return  AnsiString - formated text (RichText)
*/
//==============================================================================                                         
AnsiString __fastcall TfrmCommentDialog::GetText()
{
	TStringStream *pStream = new TStringStream("");
	AnsiString saRtfCode;

	rtfText->Lines->SaveToStream(pStream);
	saRtfCode = pStream->DataString;
	delete pStream;
	return saRtfCode;
}

Gruß Nighthero

siehe MDSN:

EM_GETTEXTMODE, EM_GETUNDONAME, EM_GETREDONAME, EM_SETUNDOLIMIT

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/richedit/richeditcontrols/aboutricheditcontrols.asp

Verstehe aber nur ein Viertel.
z.B CreateWindowEx? geht gar nich rein.

Erst fing es an in der Funktion
bool TRichEdit20::FindTextEx(AnsiString text, int startPos,
TFindOptions findOptions, int& foundPos, int& foundLength)

in class richedit20
Da kam es zu Zweideutigkeiten mit
FINDTEXTEX.
Ich habe dann daraus Richedit::FINDTEXTEX gemacht.

Das wurde zwar akzeptiert, aber jetzt hagelt es andere Fehler
Alles voll mit "......Typname erwartet"

Danke erst mal.