I do remember that code you posted now that you mentioned it. I have tried the code I posted on paltalk and it works very good, but for me personally I don’t see the need for the overhead as my current method does the job, Currently I have to convert the rtf to a simple memory stream to keep the formatting when sending to paltalk, then I can use the standard WM_SETTEXT to actually send the formatted text.
procedure TPalWindow.SendPalRTF(aRichEdit: TRichedit);
var
memStream: TMemoryStream;
strList: TStringList;
begin
memStream := TMemoryStream.Create;
strList := TStringList.Create;
try
memStream.Clear;
aRichEdit.Lines.SaveToStream(memStream);
memStream.Position := 0;
strList.Clear;
strList.LoadFromStream(memStream);
SendText(AnsiString(strList.Text));
finally
memStream.Free;
strList.Free;
end;
end;