Inhalt von TRichEdit ohne Verlust von DefAttributes kopieren

[smart]

Wenn man 1 TRichEdit und 1 TDBRichEdit auf einer Form hat und möchte den Text vom TRichEdit in dem TDBRichEdit kopieren, wie macht man das ohne die DefAttributes zu verlieren.

Delphi-Quellcode:

TDBRichEdit1.Text := RichEdit2.Text;

geht nicht. Alle DefAttributes gehen verloren.

[Sharky]

Hai Heike,

meinst Du so etwas: ?

Delphi-Quellcode:

Procedure CopyRichEdit (aSource, aDestination : TRichEdit);
var
  RichStream : TMemoryStream;
begin
  RichStream := TMemoryStream.Create;
  try
    aSource.Lines.SaveToStream(RichStream);
    RichStream.Position := 0;
    aDestination.Lines.LoadFromStream(RichStream);
  finally
    RichStream.Free;
  end;
end;

[smart]

Sorry, Ich habe es falsch dargestellt. Den Text von einem TRichEdit in einem TDBRichEdit kopieren, ohne dass farbiger Text usw. verloren geht.

[Sharky]

Geht das nicht mit dem Code oben wenn Du aDestitination nicht als TRichEdit sondern TDBRichEdit deklarierst?

[shmia]

Schon versucht: ??

Delphi-Quellcode:

TDBRichEdit1.lines.Assign(RichEdit2.Lines);

[smart]

Zitat:

Zitat von shmia

Schon versucht: ??

Delphi-Quellcode:

TDBRichEdit1.lines.Assign(RichEdit2.Lines);

Ja, habe ich versucht. Geht aber leider auch nicht.

[smart]

Zitat:

Zitat von Sharky

Geht das nicht mit dem Code oben wenn Du aDestitination nicht als TRichEdit sondern TDBRichEdit deklarierst?

Dann bekomme ich eine Fehlermeldung, dass die Typen nicht gleich sind.

[shmia]

Dann hier noch eine weitere Variante:

Delphi-Quellcode:

Procedure CopyRichEditLines(aSource, aDestination : TStrings); 
var 
  RichStream : TMemoryStream; 
begin 
  RichStream := TMemoryStream.Create; 
  try 
    aSource.SaveToStream(RichStream); 
    RichStream.Position := 0; 
    aDestination.LoadFromStream(RichStream); 
  finally 
    RichStream.Free; 
  end; 
end;

Anwendung:

Delphi-Quellcode:

Query1.Edit;  // wir müssen im Edit-Mode sein
CopyRichEditLines(RichEdit1.Lines, DBRichEdit1.Lines);

[smart]

Zitat:

Zitat von shmia

Dann hier noch eine weitere Variante:

Vielen Dank für Deine Mühe. Klappt aber auch nicht.

[Sharky]

Zitat:

Zitat von smart

..Klappt aber auch nicht.

Kannst Du mal ein kurzes Demoprojekt anhängen?

[smart]

Wenn ich es per Hand, mit kopieren und einfügen mache klappt es, aber sobald ich es mit:

Delphi-Quellcode:

RichEdit1.SelectAll;
RichEdit.CopyToClipboard;
DBRichEdit1.PasteFromClipboard;

klappt es nicht mehr.

[marabu]

Hallo Heike,

es gibt keinen so richtig einfachen Weg zum Kopieren von formatierten Texten zwischen zwei RichEdit controls. Ich verwende folgende Prozedur:

Delphi-Quellcode:

uses
  TOM,
  RichEdit,
  RichOle;

procedure RichCopy(reSource, reTarget: TRichEdit);
var
  u: IUnknown;
  reoSource, reoTarget: IRichEditOle;
  tdSource, tdTarget: ITextDocument;
  trSource, trTarget: ITextRange;
begin
  SendMessage(reSource.Handle, EM_GETOLEINTERFACE, 0, Integer(@u));
  u.QueryInterface(IID_IRICHEDITOLE, reoSource);
  tdSource := reoSource as ITextDocument;

  SendMessage(reTarget.Handle, EM_GETOLEINTERFACE, 0, Integer(@u));
  u.QueryInterface(IID_IRICHEDITOLE, reoTarget);
  tdTarget := reoTarget as ITextDocument;

  tdTarget.Selection.FormattedText := tdSource.Selection.FormattedText;
end;

Das angehängte Archiv enthält eine bei SourceForge gehostete Delphi Portierung von RichOle.h und TOM habe ich mit TLIBIMP aus RICHED20.DLL erstellt. TOM habe ich als (unsichtbare) Komponente in Delphi installiert.

Nutzen kannst du es dann so:

Delphi-Quellcode:

begin
  RichEdit1.SelectAll;
  RichEdit2.SelectAll;
  RichCopy(RichEdit1, RichEdit2);
end;

Alternativ kann man den etwas traditionelleren Weg über das stream interface der rich edit controls gehen. nicoDE hat dazu etwas bei den Schweizern abgeladen.

Grüße vom marabu

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Sonstige Fragen zu Delphi" nach "VCL / WinForms / Controls" verschoben.
Ich habe es (auf anregung *g*) mal nach VCL verschoben. Hätte ich aber auch früher machen sollen.

[Flocke]

Es sollte auch mit den Meldungen EM_STREAMOUT und EM_STREAMIN gehen. Zwei Beiträge dazu findest du hier und hier.

//EDIT: @marabu: Sorry, deinen Verweis auf das Stream-Interface hatte ich überlesen.

[marabu]

Hallo Heike,

Zitat:

Zitat von smart

Wenn ich es per Hand, mit kopieren und einfügen mache klappt es, aber sobald ich es mit:

Delphi-Quellcode:

RichEdit1.SelectAll;
RichEdit.CopyToClipboard;
DBRichEdit1.PasteFromClipboard;

klappt es nicht mehr.

ich unterstelle mal, dass der abweichende Komponentenname in der zweiten Code-Zeile ein Schreibfehler von dir ist. Das Kopieren über das ClipBoard funktioniert so - und zwar korrekt. Voraussetzung ist, dass sich der deinem DBRichEdit1 unterliegende DataSet im Edit-Modus befindet.

Allerdings gehört die Zwischenablage dem Benutzer und darf eigentlich nur auf seinen speziellen Wunsch hin von deinem Programm befüllt werden.

marabu


@Flocke: Warum sorry? Deine Fundstellen sind doch auch einen Beitrag wert. Da aber alle streamen wollte ich mit dem Text Object Model eine Alternative zeigen.

[smart]

Zitat:

Zitat von marabu

ich unterstelle mal, dass der abweichende Komponentenname in der zweiten Code-Zeile ein Schreibfehler von dir ist.

War nur ein Schreibfehler!

Zitat:

Zitat von marabu

Das Kopieren über das ClipBoard funktioniert so - und zwar korrekt. Voraussetzung ist, dass sich der deinem DBRichEdit1 unterliegende DataSet im Edit-Modus befindet.

Genau das war das Spiel, jetzt klappt es nämlich.

Zitat:

Zitat von marabu

Allerdings gehört die Zwischenablage dem Benutzer und darf eigentlich nur auf seinen speziellen Wunsch hin von deinem Programm befüllt werden.

Hast Recht, war auch nur ein Test.

Vielen Dank für Deine (Eure) Hilfe.