BorlandTalk.com

Bob Bedford · Guest

Hi all, I've a TStringList component and print the elements of the list in a
word document.
In some cases I want the line to be printed in bold. Here is the code:

const
CR = #13#10;
....
if(ansipos(CR,(TStringList(PrintList.items[I])[J]))>0)then begin
DetR.Font.Bold := wdtoggle;
DetR.Collapse(DetDirect);
end;
DetR.InsertAfter(cr+TStringList(PrintList.items[I])[J]);
if(ansipos(CR,(TStringList(PrintList.items[I])[J]))>0)then begin
DetR.Font.Bold := wdtoggle;
DetR.Collapse(DetDirect);
end;

Using this code I only want the lines with the CR at the beginning to print
in bold. Instead it's the entire paragraph until the end of the document
that prints in bold.
How to print only this line in bold ?

Thanks for helping.

Bob

Dex · Guest

Bob Bedford wrote: >>>

Hi all, I've a TStringList component and print the elements of the
list in a word document. In some cases I want the line to be printed
in bold. Here is the code:

const
CR = #13#10;
...
if(ansipos(CR,(TStringList(PrintList.items[I])[J]))>0)then begin
DetR.Font.Bold := wdtoggle;
DetR.Collapse(DetDirect);
end;
DetR.InsertAfter(cr+TStringList(PrintList.items[I])[J]);
if(ansipos(CR,(TStringList(PrintList.items[I])[J]))>0)then begin
DetR.Font.Bold := wdtoggle;
DetR.Collapse(DetDirect);
end;

Using this code I only want the lines with the CR at the beginning to
print in bold. Instead it's the entire paragraph until the end of the
document that prints in bold. How to print only this line in bold ?

Thanks for helping.

Bob
<<<

Bob,
This may seem like stating the obvious but, have you tried set the font
back to normal after the text you want to bold?

--