paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 00:01:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added insert Username and Datetime

Browse Source 
git-svn-id: trunk@2162 -
This commit is contained in:
lazarus 2002-08-17 23:41:03 +00:00
parent 4f2f914830
commit 03c4dc9b8f
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synedit.pp
View File

@ -6339,12 +6339,24 @@ begin
{begin} //mh 2000-11-20
BeginUndoBlock;
try
{$IFDEF SYN_LAZARUS}
if SelAvail then begin
fUndoList.AddChange({crSelDelete} crDelete, fBlockBegin, fBlockEnd,
GetSelText, SelectionMode);
StartOfBlock := minPoint(fBlockBegin, fBlockEnd);
EndOfBlock := maxPoint(fBlockBegin, fBlockEnd);
end else begin
StartOfBlock := CaretXY;
EndOfBlock := CaretXY;
end;
{$ELSE}
if SelAvail then begin
fUndoList.AddChange({crSelDelete} crDelete, fBlockBegin, fBlockEnd,
GetSelText, SelectionMode);
end;
StartOfBlock := minPoint(fBlockBegin, fBlockEnd);
EndOfBlock := maxPoint(fBlockBegin, fBlockEnd);
{$ENDIF}
fBlockBegin := StartOfBlock;
fBlockEnd := EndOfBlock;
LockUndo;