mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-30 10:50:53 +02:00
SynEdit: IDE jumps to code locations no longer remove persistent block
git-svn-id: trunk@20978 -
This commit is contained in:
parent
e6aaa72fe6
commit
df0ac93df3
@ -11279,8 +11279,6 @@ begin
|
||||
SrcEdit.EditorComponent.LogicalCaretXY:=LogCaretXY;
|
||||
SrcEdit.EditorComponent.TopLine:=TopLine;
|
||||
with SrcEdit.EditorComponent do begin
|
||||
BlockBegin:=LogCaretXY;
|
||||
BlockEnd:=LogCaretXY;
|
||||
LeftChar:=Max(LogCaretXY.X-CharsInWindow,1);
|
||||
end;
|
||||
SrcEdit.ErrorLine:=LogCaretXY.Y;
|
||||
@ -11386,8 +11384,6 @@ begin
|
||||
SrcEdit.EditorComponent.LogicalCaretXY:=LogCaretXY;
|
||||
SrcEdit.EditorComponent.TopLine:=TopLine;
|
||||
with SrcEdit.EditorComponent do begin
|
||||
BlockBegin:=LogCaretXY;
|
||||
BlockEnd:=LogCaretXY;
|
||||
LeftChar:= Math.Max(LogCaretXY.X-CharsInWindow,1);
|
||||
end;
|
||||
SrcEdit.ErrorLine:=LogCaretXY.Y;
|
||||
@ -12479,8 +12475,6 @@ begin
|
||||
with NewSrcEdit.EditorComponent do
|
||||
begin
|
||||
MoveLogicalCaretIgnoreEOL(Point(NewX,NewY));
|
||||
BlockBegin:=LogicalCaretXY;
|
||||
BlockEnd:=BlockBegin;
|
||||
TopLine:=NewTopLine;
|
||||
//DebugLn('TMainIDE.DoJumpToCodePos NewY=',dbgs(NewY),' ',dbgs(TopLine),' ',dbgs(NewTopLine));
|
||||
LeftChar:=Max(NewX-CharsInWindow,1);
|
||||
@ -12631,8 +12625,6 @@ begin
|
||||
SourceNoteBook.ShowOnTop;
|
||||
with ActiveSrcEdit.EditorComponent do begin
|
||||
LogicalCaretXY:=ErrorCaret;
|
||||
BlockBegin:=ErrorCaret;
|
||||
BlockEnd:=ErrorCaret;
|
||||
if ErrorTopLine>0 then
|
||||
TopLine:=ErrorTopLine;
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user