<< Нажмите, чтобы показать Содержание >> TRVStyleTemplate.ApplyToParaStyle

Изменяет свойства AParaStyle в соответствии со свойствами этого шаблона стиля.

procedure ApplyToParaStyle(AParaStyle: TCustomRVParaInfo);

Метод изменяет только те свойства AParaStyle, которые не включены в AParaStyle.ModifiedProperties.

Если требуется изменить все свойства, перед вызовом этого метода присвойте AParaStyle.ModifiedProperties = [].

Если требуется изменить только свойства, управляемые шаблонами стилей, перед вызовом этого метода вызовите UpdateModifiedParaStyleProperties.

Применение шаблона стиля означает применение свойств его ParaStyle, перечисленных в ValidParaProperties, а также свойств, унаследованных от Parent.

Свойство Kind этого шаблона стиля должно быть равно rvstkPara или rvstkParaText.

Последовательность операций:

1.Метод применяет этот шаблон стиля и его родительские шаблоны к AParaStyle. Затем он присваивает AParaStyle.StyleTemplateId = Id. Этот метод можно вызывать для nil-объекта; в этом случае он только присваивает AParaStyle.StyleTemplateId = -1.

2.После этого метод сбрасывает оставшиеся свойства AParaStyle к значениям по умолчанию.

Пример: сброс TextStyles и ParaStyles для использования в новых документах с применением шаблона стиля 'Normal'.

var StyleTemplate: TRVStyleTemplate;

begin

  RVStyle.ListStyles.Clear;

  RVStyle.TextStyles.Clear;

  RVStyle.TextStyles.Add;

  RVStyle.ParaStyles.Clear;

  RVStyle.ParaStyles.Add;

  StyleTemplate := RVStyle.StyleTemplates.NormalStyleTemplate;

  if StyleTemplate<>nil then

  begin

    RVStyle.ParaStyles[0].ModifiedProperties := [];

    StyleTemplate.ApplyToParaStyle(RVStyle.ParaStyles[0]);

    RVStyle.TextStyles[0].ModifiedProperties := [];

    TRVStyleTemplate(nil).ApplyToTextStyle(

      RVStyle.TextStyles[0], StyleTemplate);

    RVStyle.TextStyles[0].ParaStyleTemplateId := StyleTemplate.Id;

  end;

end;

См. также:

▪ApplyToTextStyle