Keep the style of the text when using InputTextFieldName

Hello.

My problem seems really simple, but I'm stuck.
In the following code, during a merge I add a field "NUMPAGES" or text as appropriate.

void __fastcall ConvertirModele::OnMergeGetTextEvent(System::TObject * Sender, const System::UnicodeString inspname, TWPMMInsertTextContents * Contents)
	{
	if (inspname=="NUM_PAGE")
		{
		Contents->InputTextFieldName("NUMPAGES");
		}
	else	if (inspname=="TEXTE"))
		{
		Contents->StringValue = "Texte";
		}
	}

In case I use the InputTextFieldName function, the font of the variable is not resumed. The result is always in Arial, Size 11, Color Black.
When I assign my text to the StringValue property, the original font is always preserved.

How to apply the original font to the new field created ?

Thank you for your reply.

You can do this:

WPRichText1.WritingAttr.Assign(Contents.MergeAttr);
WPRichText1.InputTextFieldName('NUMPAGES');

instead.

Hello.

Thank you.

This is not the ideal solution for me because I do not have direct access to the TWPRichText in my OnMergeGetTextEvent function. I would have liked to see access to it using the parameters of the function but I will go through global variables to solve the problem.

WritingAttr is accessible through

TParagraph.RTFData.DataCollection.DefaultAttr