TRichView.com

The following is the simple piece of code i am having trouble with.
Its simply print out line by line from a data source

Finaldata is the scalerichview component

My issue is that , the changes made to RvsHeading, RvsSubHeading etc in Rvstyle is not reflected in the report. Also, I find that the application, when used from other systems, shows the expected changes. I checked the fonts in my system, which is Ok. Is there anything which is fundmentally wrong. The application behaves wrongly on a development system and perfectly on user systems

Kindly help.


FinalData.RichViewEdit.Style := RvStyle1;

FinalData.Clear;

FinalData.ReadOnly := False;

FinalData.RichViewEdit.LoadRVF('C:\BMH-CURRENT\CCP\MASTER HEALTH CHECK-UP.rvf');
FinalData.RichViewEdit.Reformat;

if Trim(PatName.Text) <> '' then
Search_And_Replace_RV(FinalData.RichViewEdit,'<PatientName>', Trim(PatName.Text));

if Trim(PatAge.Text) <> '' then
Search_And_Replace_RV(FinalData.RichViewEdit,'<PatientAge>', Patgender.text + '/' + PatAge.Text);

if Trim(HospitalId.Text) <> '' then
Search_And_Replace_RV(FinalData.RichViewEdit,'<PatId>', HospitalId.Text);

if Trim(PatAdd1.Text) <> '' then
Search_And_Replace_RV(FinalData.RichViewEdit,'<Address1>', Trim(PatAdd1.Text));

if Trim(PatAdd2.Text) <> '' then
Search_And_Replace_RV(FinalData.RichViewEdit,'<Address2>', Trim(PatAdd2.Text));

if Trim(PatAdd3.Text) <> '' then
Search_And_Replace_RV(FinalData.RichViewEdit,'<Address3>', Trim(PatAdd3.Text));

if Trim(PhoneNos.Text) <> '' then
Search_And_Replace_RV(FinalData.RichViewEdit,'<PatientPhone>', Copy(Trim(PhoneNos.Text),1,10));

if Trim(PhoneNos.Text) <> '' then
Search_And_Replace_RV(FinalData.RichViewEdit,'<Mhcdate>', cMhcdate);

FinalData.RichViewEdit.AddTextNL(' ',rvsNormal,0,0);


FinalData.RichViewEdit.Reformat;

FinalData.RichViewEdit.AddTextNL(' ',rvsNormal,0,0);

if Trim(PresComp.Lines.Text) <> '' then begin
FinalData.RichViewEdit.AddTextNL('PRESENTING COMPLAINTS ',rvsHeading,0,0);
FinalData.RichViewEdit.AddTextNL(Trim(PresComp.Lines.Text),rvsNormal,0,0);
end;

if Trim(SurgHist.Lines.Text) <> '' then begin
FinalData.RichViewEdit.AddTextNL(' ',rvsNormal,0,0);
FinalData.RichViewEdit.AddTextNL('Surgical History',rvsHeading,0,0);
FinalData.RichViewEdit.AddTextNL(Trim(SurgHist.Lines.Text),rvsNormal,0,0);
end;

if Trim(MedHist.Lines.Text) <> '' then begin
FinalData.RichViewEdit.AddTextNL(' ',rvsNormal,0,0);
FinalData.RichViewEdit.AddTextNL('Medications',rvsHeading,0,0);
FinalData.RichViewEdit.AddTextNL(Trim(MedHist.Lines.Text),rvsNormal,0,0);
end;

....

....
FinalData.RichViewEdit.Reformat;

Reformat should be used only if content is not changed (i.e. after changing margins, indents, font size).
Call Finaldata.Format instead (yes, for ScaleRichView, you should call Finaldata.Format instead of Finaldata.RichViewEdit.Format)

Thanks Sergey,
I think , I figured out from where the issue came.

This line.
FinalData.RichViewEdit.LoadRVF('C:\BMH-CURRENT\CCP\MASTER HEALTH CHECK-UP.rvf');
I am loading the RVF file.
Here I am replacing the Tags with the values. When I blocked this loading and replace process, The formatting is back properly. What could be the reason. I am attaching the RVF for reference. I created the RVF separately and saved it.

I use this for search and replace

function Search_And_Replace_RV(RichEdit: TRichViewEdit;SearchData, ReplaceText: string): Boolean;
begin
with RichEdit do begin
SetSelectionBounds(0, GetOffsBeforeItem(0), 0, GetOffsBeforeItem(0));
while SearchText(SearchData, [rvseoDown,rvseoWholeWord]) do InsertText(ReplaceText);
Format;
end;
end;

Regards,

Can you explain what's exactly wrong? This code is not optimal, but it works fine for me
(the only exception is not replacing <PatientAge> because it consists of two items ('<' with font size = 9, and 'PatientAge>' with font size = 11). It can be fixed by applying the same font attributes to it, or by including rvseoMultiItem in the Options parameter of SearchText.

Otherwise, I do not see problems with formatting.

But maybe you assume that formatting (text and paragraph styles) from RVStyle1 will be used when you call AddTextNL? It's wrong: formatting from 'MASTER HEALTH CHECK-UP.rvf' will be used instead, because RVF loading replaces the existing formatting.

There are several ways to solve this problem.

1) Use With this code, existing text and paragraph formatting in RVStyle will not be replaced.

2) You can construct text styles having necessary properties in code (see this topic for examples: https://www.trichview.com/forums/viewto ... f=2&t=8537 )

PS: Do not assign FinalData.RichViewEdit.Style. The correct way for changing RVStyle is FinalData.ExternalRVStyle := RVStyle1.
PPS: Format is not needed in Search_And_Replace_RV, because InsertText reformats the changed paragraphs itself.
PPS: Using SearchText+InsertText for field replacing is very inefficient. See here for the examples that show how to do it efficiently: https://www.trichview.com/forums/viewtopic.php?f=3&t=8 . The most appropriate demo there is MailMerge-Text3, the only difference is using {} instead of <>.

Thanks Sergey.

I made the mistake as you have mentioned.
Assuming that formatting (text and paragraph styles) from RVStyle1 will be used when I call AddTextNL. Also, about
formatting from 'MASTER HEALTH CHECK-UP.rvf'.

Now everthing is fine.

Thanks once again for the explanation

Regards,