Richedittext nach Richedit ?

[marabu]

Hallo Vader,

die Unit TOM aus dem von mir angegebenen Archiv wurde mit D7 erstellt. Erstelle sie mit TLIBIMP für dein D6, dann sollte sie sich auch übersetzen lassen. Formatierte Texte aus verschiedenen RichEdit Controls kannst du dann so angehen:

Delphi-Quellcode:

uses
  TOM,
  RichEdit,
  RichOle;

procedure RichAppend(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;
  trSource := tdSource.Range(0, MaxInt);

  SendMessage(reTarget.Handle, EM_GETOLEINTERFACE, 0, Integer(@u));
  u.QueryInterface(IID_IRICHEDITOLE, reoTarget);
  tdTarget := reoTarget as ITextDocument;
  trTarget := tdTarget.Range(MaxInt, MaxInt);
  
  trTarget.FormattedText := trSource.FormattedText;
end;

Grüße vom marabu