In der variante vom swissdelphicenter wird der smiley immer an den Anfang vom jvxrichedit gemacht. Ich möchte aber erst Text und dann den Smiley haben. Wie kann ich das machen! Es müsste so sein dass er immer am Ende eingefügt wird
(SourceStream ist das Bild und RichEdit das jvxRichEdit)
Delphi-Quellcode:
procedure PutRTFSelection(RichEdit: TMyRichEdit; SourceStream: TStream);
var
EditStream: TEditStream;
begin
with EditStream do
begin
dwCookie := Longint(SourceStream);
dwError := 0;
pfnCallback := EditStreamInCallBack;
end;
RichEdit.Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, Longint(@EditStream));
end;