|
<< Нажмите, чтобы показать Содержание >> TCustomRVData.Edit |
Инициализирует редактор этого объекта RVData.
function Edit: TCustomRVData;
Для RVData редактора (основного редактора или редактора ячейки) метод не выполняет никаких действий.
Для ячейки таблицы метод создаёт редактор ячейки и возвращает его свойство RVData.
Если нужно выделить часть документа в ячейке таблицы, перед вызовом SetSelectionBounds или SelectAll вызовите Cell.Edit или table.EditCell.
Метод необходимо вызывать после форматирования документа.
Возвращаемое значение:
GetRVData для указанного RVData после инициализации редактирования.
В этом примере из rve: TRichViewEdit удаляются все компоненты. Действие выполняется как операция редактирования, которую пользователь может отменить и повторить.
В этом примере все ссылки на методы и свойства TCustomRVFormattedData ведут к соответствующим методам и свойствам TRichView. TCustomRVFormattedData имеет все эти методы и свойства с тем же назначением.
procedure DeleteAllControls(RVData: TCustomRVData;
rve: TCustomRichViewEdit);
var i,r,c: Integer;
table: TRVTableItemInfo;
begin
i := 0;
while i<RVData.ItemCount do
begin
case RVData.GetItemStyle(i) of
begin
RVData := RVData.Edit;
TCustomRVFormattedData(RVData).SetSelectionBounds(i, 0, i, 1);
rve.DeleteSelection;
i := rve.TopLevelEditor.CurItemNo-1;
end;
begin
table := TRVTableItemInfo(RVData.GetItem(i));
for r := 0 to table.RowCount-1 do
for c := 0 to table.ColCount-1 do
if table.Cells[r,c]<>nil then
DeleteAllControls(table.Cells[r,c].GetRVData, rve);
end;
end; // case
inc(i);
end; // while
end;
Вызов:
DeleteAllControls(rve.RVData, rve);