|
From: Flávio E. <et...@us...> - 2004-08-07 02:00:51
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27133/Source Modified Files: SynEdit.pas Log Message: Great. The only place crCaret and crSelection were being used I was using them wrong. Index: SynEdit.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v retrieving revision 1.383 retrieving revision 1.384 diff -u -d -r1.383 -r1.384 --- SynEdit.pas 6 Aug 2004 02:39:45 -0000 1.383 +++ SynEdit.pas 7 Aug 2004 02:00:42 -0000 1.384 @@ -8708,12 +8708,12 @@ end; BeginUndoBlock; try - SelText := w; - fUndoList.AddChange( crCaret, oldCaret, oldCaret, '', SelectionMode ); if bHadSel then - fUndoList.AddChange( crSelection, oldBlockBegin, oldBlockEnd, '', SelectionMode ) + fUndoList.AddChange(crSelection, oldBlockBegin, oldBlockEnd, '', SelectionMode) else - fUndoList.AddChange( crSelection, oldCaret, oldCaret, '', SelectionMode ); + fUndoList.AddChange(crSelection, oldCaret, oldCaret, '', SelectionMode); + fUndoList.AddChange(crCaret, oldCaret, oldCaret, '', SelectionMode); + SelText := w; finally EndUndoBlock; end; |