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

SynEdit Column-mode-selection: Fixed Select to editor start/end doesn't force X position(patch by Dmitry Boyarintsev) Issue #13338

Browse Source 
git-svn-id: trunk@19145 -
This commit is contained in:
martin 2009-03-28 23:27:18 +00:00
parent 8d681fd278
commit 59a8ccb9f3
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/synedit/synedit.pp
View File

@ -5723,17 +5723,17 @@ begin
(CaretXY, CaretNew, Command in [ecSelPageBottom, ecColSelPageBottom]);
Update;
end;
ecEditorTop, ecSelEditorTop, ecColSelEditorTop:
ecEditorTop, ecSelEditorTop:
begin
{$IFDEF SYN_LAZARUS}
MoveCaretAndSelectionPhysical
{$ELSE}
MoveCaretAndSelection
{$ENDIF}
(CaretXY, Point(1, 1), Command in [ecSelEditorTop, ecColSelEditorTop]);
(CaretXY, Point(1, 1), Command in [ecSelEditorTop]);
Update;
end;
ecEditorBottom, ecSelEditorBottom, ecColSelEditorBottom:
ecEditorBottom, ecSelEditorBottom:
begin
{$IFDEF SYN_LAZARUS}
CaretNew := Point(1, FFoldedLinesView.ViewPosToTextIndex(FFoldedLinesView.Count)+1);
@ -5748,9 +5748,21 @@ begin
{$ELSE}
CaretXY,
{$ENDIF}
CaretNew, Command in [ecSelEditorBottom, ecColSelEditorBottom]);
CaretNew, Command in [ecSelEditorBottom]);
Update;
end;
ecColSelEditorTop:
begin
MoveCaretAndSelectionPhysical(CaretXY, Point(CaretX, 1), true);
Update;
end;
ecColSelEditorBottom:
begin
CaretNew := Point(CaretX, FFoldedLinesView.ViewPosToTextIndex(FFoldedLinesView.Count)+1);
MoveCaretAndSelectionPhysical(CaretXY, CaretNew, true);
Update;
end;
// goto special line / column position
ecGotoXY, ecSelGotoXY:
if Assigned(Data) then begin