Page 1 of 1
[HOW] Import Undo
Posted: Mon Jul 11, 2011 7:25 am
by Marsianin
Just tried to implement undo for OfficeConverters file import.
I want to import several .doc files and create undo point after each import but this seems not working:
Code: Select all
RichViewEdit1.TopLevelEditor.BeginUndoGroup(rvutInsert);
RichViewEdit1.TopLevelEditor.SetUndoGroupMode(True);
try
r:=RVOfficeConverter1.ImportRV(OpenDialog1.FileName,RichViewEdit1,OpenDialog1.FilterIndex);
finally
RichViewEdit1.TopLevelEditor.SetUndoGroupMode(False);
end;
After this code I'm getting .doc file imported and undo button enabled but pressing it does nothing just disabling
Also is there a way to import file from the cursor position?
Posted: Mon Jul 11, 2011 2:45 pm
by Sergey Tkachenko
ImportRV uses RichViewEdit.LoadRTF inside that cannot be undone.
If you want to insert at the position of caret:
Code: Select all
r:=RVOfficeConverter1.ImportRTF(OpenDialog1.FileName, OpenDialog1.FilterIndex);
if r then begin
RVOfficeConverter1.Stream.Position := 0;
RichViewEdit1.InsertRTFFromStream(RVOfficeConverter1.Stream);
end;
If you want to replace the existing content:
Code: Select all
r:=RVOfficeConverter1.ImportRTF(OpenDialog1.FileName, OpenDialog1.FilterIndex);
if r then begin
RVOfficeConverter1.Stream.Position := 0;
RichViewEdit1.SelectAll;
RichViewEdit1.InsertRTFFromStream(RVOfficeConverter1.Stream);
end;
If you want to add to the end:
Code: Select all
r:=RVOfficeConverter1.ImportRTF(OpenDialog1.FileName, OpenDialog1.FilterIndex);
if r then begin
RVOfficeConverter1.Stream.Position := 0;
ItemNo := RichViewEdit1.ItemCount-1;
RichViewEdit1.SetSelectionBounds(
ItemNo, RichViewEdit1.GetOffsAfterItem(ItemNo),
ItemNo, RichViewEdit1.GetOffsAfterItem(ItemNo));
RichViewEdit1.InsertRTFFromStream(RVOfficeConverter1.Stream);
end;