paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:39:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better info for Undo debugging

Browse Source
This commit is contained in:
pierre 1999-11-18 13:39:24 +00:00
parent e3e66c89ea
commit b9f9185816
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/text/fpviews.pas
View File

@ -822,6 +822,9 @@ begin
for i:=0 to UndoList^.count-1 do for i:=0 to UndoList^.count-1 do
with UndoList^.At(i)^ do with UndoList^.At(i)^ do
begin begin
if is_grouped_action then
AddToolMessage('','Group '+ActionString[action]+' '+IntToStr(ActionCount)+' elementary actions',0,0)
else
AddToolMessage('',ActionString[action]+' '+IntToStr(StartPos.X)+':'+IntToStr(StartPos.Y)+ AddToolMessage('',ActionString[action]+' '+IntToStr(StartPos.X)+':'+IntToStr(StartPos.Y)+
' '+IntToStr(EndPos.X)+':'+IntToStr(EndPos.Y)+' "'+GetStr(Text)+'"',0,0); ' '+IntToStr(EndPos.X)+':'+IntToStr(EndPos.Y)+' "'+GetStr(Text)+'"',0,0);
end; end;
@ -2835,7 +2838,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.46 1999-11-10 00:44:12 pierre Revision 1.47 1999-11-18 13:39:24 pierre
* Better info for Undo debugging
Revision 1.46 1999/11/10 00:44:12 pierre
* Grouped Undo action signaled in 'Dump Undo' * Grouped Undo action signaled in 'Dump Undo'
Revision 1.45 1999/10/29 14:50:07 pierre Revision 1.45 1999/10/29 14:50:07 pierre