Thanks for adding igNone after this feature request "2317: add NotExtractPictures as new parameter of TMSFMXRichEditor.ContentAsPlainHTML". It's a good idea, but not the answer I expected. I suppose I didn't explained the case as clearly as needed.
In fact, using HTMLImages property, I need an igNoFile to obtain a correct HTML, with images tags, but without external files created or an igTobitmapContainer for a standard HTML with IMG tags and images exported to a TTMSFMXBitmapContainer.
For igNoFile, I suggest those changes in unit FMX.TMSRichEditorBase :
// adding igNoFile value
THTMLImageGeneration = (igFile, igInline, igID, igNone, igNoFile);
// changing function TTMSFMXRichEditorBase.GetContentAsHTML
case HTMLImages of
igFile:
//... begin code to add
igNoFile:
begin
imgname := 'image' + inttostr(imgidx) + '.' + imgext;
s := s + '
<img src="' + imgname + '" +="" picsz="" +="">
';
end;
//... end of code to add
igInline:
//...
With this we can use a RTE File opened in TTMSFMXRichEditor to fill a TTMSFMXHTMLText like explained in my blog post (in french) Saisir des textes avec mise en forme et les afficher tels quels grâce aux composants de TMS Software - Les trucs et astuces d'un développeur Pascal
It would be great to directly fill the TTMSFMXBitmapContainer during this loop. I didn't see how to access the BitmapContainer property of the TTMSFMXRichEditor. So if you can change it, I'll appreciate to have a THTMLImageGeneration.igTobitmapContainer value with code like this :
// changing function TTMSFMXRichEditorBase.GetContentAsHTML
case HTMLImages of
igFile:
//... begin code to add
igToBitmapContainer:
begin
imgname := 'image' + inttostr(imgidx) + '.' + imgext;
s := s + '
<img src="' + imgname + '" +="" picsz="" +="">
';
BitmapContainer.AddBitmap(imgname,TMSFMXRichEditor1.Context.Content.Items[i] as TPictureElement); // or something like that
end;
//... end of code to add
igInline:
//...