|
<< Нажмите, чтобы показать Содержание >> 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 самостоятельно.
Тип метода:
редактирование документа. (в отличие от прямого присваивания значения свойствам).
Пример 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;
См. также методы: