TCustomRichViewEdit.SetIntPropertyEd, SetStrPropertyEd, SetFloatPropertyEd

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

TCustomRichViewEdit.SetIntPropertyEd, SetStrPropertyEd, SetFloatPropertyEd

Методы, реализующие операции редактирования, изменяющие свойства документа.

procedure SetIntPropertyEd(Prop: TRVIntProperty;

  Value: Integer;  AutoReformat: Boolean);
procedure SetStrPropertyEd(Prop: TRVStrProperty;

  const Value: TRVUnicodeString; AutoReformat: Boolean);
procedure SetFloatPropertyEd(Prop: TRVFloatProperty;

  Value: TRVLength; AutoReformat: Boolean);

Параметры:

Prop задаёт свойство, значение которого будет изменено. Если свойство перечисляемого типа, используйте Ord(). Если свойство типа Boolean, любое ненулевое значение означает True.

Value новое значение свойства.

Если AutoReformat=True, метод переформатирует документ (если это необходимо) и вызовет Change. Обычно эти методы следует вызывать с AutoReformat=True, если вам нужно изменить только одно свойство. Если нужно изменить несколько свойств, вызовите методы для каждого свойства, затем переформатируйте документ (если это необходимо) и вызовите Change самостоятельно.

 

Тип метода: editstyle редактирование документа. (в отличие от прямого присваивания значения свойствам).

 

Пример 1: вызов для свойства перечисляемого типа (используя Ord):

MyRichViewEdit.SetIntPropertyEd(rvipBackgroundStyle, Ord(bsTiled), True);

Пример 2: вызов для свойства типа Boolean (ненулевое значение означает True):

MyRichViewEdit.SetIntPropertyEd(rvipDPMirrorMargins, 1, True);

Пример 3: вызов для нескольких свойств:

//var NewMargins: TRect

if MyRichViewEdit.CanChange then

begin
  MyRichViewEdit.BeginUndoGroup(rvutLayout);
  MyRichViewEdit.SetUndoGroupMode(True);
  MyRichViewEdit.SetIntPropertyEd(rvipLeftMargin,   NewMargins.Left,

    False);
  MyRichViewEdit.SetIntPropertyEd(rvipTopMargin,    NewMargins.Top,

    False);
  MyRichViewEdit.SetIntPropertyEd(rvipRightMargin,  NewMargins.Right,

    False);
  MyRichViewEdit.SetIntPropertyEd(rvipBottomMargin, NewMargins.Bottom,

    False);
  MyRichViewEdit.SetUndoGroupMode(False);
  MyRichViewEdit.Reformat;
  MyRichViewEdit.Change;
end;

См. также методы:

SetBackgroundImageEd;

SetBackgroundPropertyEd.