Adding to Advmemo Undolist

VCL TMS VCL UI Pack
1

I have a function that adds "" to the beginning of selected lines. Because I am manipulating the memo contents programmatically, the undolist does not have entries for the changes. I have spent a fair amount of time looking at the the various TUndo descendents but can't figure out out to add the changes to the undo list. Can you point me in the right direction? The code for the function is below:

procedure TEditForm.CommentExecute(Sender: TObject);
var
  I, Temp, SelStart, SelEnd: Integer;
begin
  SelStart := Memo1.SelStartY;
  SelEnd := Memo1.SelEndY;
  if SelStart > SelEnd then
  begin
    Temp := SelEnd;
    SelEnd := SelStart;
    SelStart := Temp;
  end;
  for I := SelStart to SelEnd do
  begin
    Memo1.Lines := '' + Memo1.Lines;
  end;
  Memo1.ClearSelection;
end;


Also, I have some functions that use the Memo.Lines.Insert() to replace selected text. Could you also point me in the right direction on adding changes made in that manner to the undolist?

Thank you very much!
2

Directly manipulating AdvMemo.Lines is indeed not tracked by the undo buffer (by design).
To insert text tracked by the undo buffer, please use AdvMemo.InsertText()

3

Hello,

I am using version the current version of TScrMemo and it is not tracking using:
scrMemo.InsertText('some text');

Can you advise?

Mark

4

I retested this here but I cannot see an issue.

Test

procedure TForm1.Button1Click(Sender: TObject);
begin
  advmemo1.InsertText('hello');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  advmemo1.Undo;
end;

Click on button 1 to insert text and then button 2 will undo this insert.

5

Thanks for the reply.

And you tested with TScrMemo?
Did your test insert into text or a blank memo?

I will make a test project if needed.

6

I tested both inserting text in a blank memo and in a memo that contains text.

10

Yes.

I'm not sure what you mean by this? The test was described by Bruno in the post above, in Button1Click and Button2Click events.

11

If you read his response you see he replied “I tested both inserting text in a blank memo and in a memo that contains text.”

I will send a test project soon.

12

To close out my part at this point, I sent an example in, the issue has been resolved and the fix will be in the next release.

Thanks Bruno

13

This topic was automatically closed 24 hours after the last reply. New replies are no longer allowed.