numbering font
Posted: Fri Sep 07, 2012 11:41 am
1. if i were to use rvaction for numbering, is there any property for me to allow the rvaction to follow current font when inserting a numbering? I can't find one.
2. so i tried to handle the numbering myself and below are the codes:
for nCounter := 0 to 8 do
begin
with ListLevels.Add do
begin
Font.Assign(FontInfo);
FirstIndent := 0;
LeftIndent := CS_ND_PARA_LEFT_INDENT_VALUE + nCounter * CS_ND_PARA_LEFT_INDENT_VALUE;
MarkerIndent := nCounter * CS_ND_PARA_LEFT_INDENT_VALUE;
ListType := rvlstDecimal;
FormatString := Format('%%%d:s.',[nCounter]);
end;
end;
I have tried to assign the font of the list style to current font, but only font name is following the one i have assigned, size not, any idea?
2. so i tried to handle the numbering myself and below are the codes:
for nCounter := 0 to 8 do
begin
with ListLevels.Add do
begin
Font.Assign(FontInfo);
FirstIndent := 0;
LeftIndent := CS_ND_PARA_LEFT_INDENT_VALUE + nCounter * CS_ND_PARA_LEFT_INDENT_VALUE;
MarkerIndent := nCounter * CS_ND_PARA_LEFT_INDENT_VALUE;
ListType := rvlstDecimal;
FormatString := Format('%%%d:s.',[nCounter]);
end;
end;
I have tried to assign the font of the list style to current font, but only font name is following the one i have assigned, size not, any idea?