Help With UnDo
Posted: Mon Jan 03, 2011 8:16 pm
Hi, I cannot undo lines added by code below:-
rve.BeginUpdate;
rve.BeginUndoGroup(rvutMiscTyping); // Tried everything ???
rve.SetUndoGroupMode(True);
rve.AddNL('', CurTextStyleNo, CurParStyleNo);
rve.CurTextStyleNo:= TextStyleNo;
rve.CurParaStyleNo:= ParStyleNo;
rve.AddNL(DateStr, TextStyleNo, ParStyleNo);
rve.CurTextStyleNo:= CurTextStyleNo;
rve.CurParaStyleNo:= CurParStyleNo;
rve.AddNL('', CurTextStyleNo, CurParStyleNo);
rve.SetUndoGroupMode(False);
rve.EndUpdate;
// Paint (will not show unless we ReFormat ???)
rve.ReFormat;
rve.BeginUpdate;
rve.BeginUndoGroup(rvutMiscTyping); // Tried everything ???
rve.SetUndoGroupMode(True);
rve.AddNL('', CurTextStyleNo, CurParStyleNo);
rve.CurTextStyleNo:= TextStyleNo;
rve.CurParaStyleNo:= ParStyleNo;
rve.AddNL(DateStr, TextStyleNo, ParStyleNo);
rve.CurTextStyleNo:= CurTextStyleNo;
rve.CurParaStyleNo:= CurParStyleNo;
rve.AddNL('', CurTextStyleNo, CurParStyleNo);
rve.SetUndoGroupMode(False);
rve.EndUpdate;
// Paint (will not show unless we ReFormat ???)
rve.ReFormat;