paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 13:29:37 +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]); (CaretXY, CaretNew, Command in [ecSelPageBottom, ecColSelPageBottom]);
Update; Update;
end; end;
ecEditorTop, ecSelEditorTop, ecColSelEditorTop: ecEditorTop, ecSelEditorTop:
begin begin
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
MoveCaretAndSelectionPhysical MoveCaretAndSelectionPhysical
{$ELSE} {$ELSE}
MoveCaretAndSelection MoveCaretAndSelection
{$ENDIF} {$ENDIF}
(CaretXY, Point(1, 1), Command in [ecSelEditorTop, ecColSelEditorTop]); (CaretXY, Point(1, 1), Command in [ecSelEditorTop]);
Update; Update;
end; end;
ecEditorBottom, ecSelEditorBottom, ecColSelEditorBottom: ecEditorBottom, ecSelEditorBottom:
begin begin
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
CaretNew := Point(1, FFoldedLinesView.ViewPosToTextIndex(FFoldedLinesView.Count)+1); CaretNew := Point(1, FFoldedLinesView.ViewPosToTextIndex(FFoldedLinesView.Count)+1);
@ -5748,9 +5748,21 @@ begin
{$ELSE} {$ELSE}
CaretXY, CaretXY,
{$ENDIF} {$ENDIF}
CaretNew, Command in [ecSelEditorBottom, ecColSelEditorBottom]); CaretNew, Command in [ecSelEditorBottom]);
Update; Update;
end; 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 // goto special line / column position
ecGotoXY, ecSelGotoXY: ecGotoXY, ecSelGotoXY:
if Assigned(Data) then begin if Assigned(Data) then begin