K
@Malcolm17,
um es dir etwas zu erleichtern, in Ergänzung zu akaris Post noch ein Code-Schnippel.
Da das Memo leider nicht über die Eigenschaft SetAttributes verfügt, müsstest du die Formatierungen aus dem Font
des betreffenden Memos ermitteln.
Nachfolgend mal, wie so was ginge:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Alle Memos erfassen
TMemo* Memo[6] = {Memo1, Memo2, Memo3, Memo4, Memo5, Memo6};
for (int i = 0; i < 6; i++) {
TFont* Font = Memo[i]->Font;
RichEdit1->SelAttributes->Color = Font->Color;
RichEdit1->SelAttributes->Name = Font->Name;
RichEdit1->SelAttributes->Height = Font->Height;
RichEdit1->SelAttributes->Style = Font->Style;
RichEdit1->SelAttributes->Size = Font->Size;
RichEdit1->Lines->Add(Memo[i]->Text);
}
}
mfg
kpeter
