paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 04:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed synedit not eoScollPastEOL

Browse Source 
git-svn-id: trunk@8569 -
This commit is contained in:
mattias 2006-01-19 23:03:13 +00:00
parent fe9a9c9db9
commit 8e7fce284d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedit.pp
View File

@ -1057,7 +1057,7 @@ type
fEvent: THookedCommandEvent;
fData: pointer;
function Equals(AEvent: THookedCommandEvent): boolean;
{$IFDEF FPC}
{$IFDEF SYN_LAZARUS}
public
{$ENDIF}
constructor Create(AEvent: THookedCommandEvent; AData: pointer);
@ -9133,14 +9133,14 @@ begin
else begin
// move to end of prev line
dec(NewCaret.Y);
s:=Lines[NewCaret.Y];
s:=Lines[NewCaret.Y-1];
PhysicalLineLen:=LogicalToPhysicalPos(Point(length(s)+1,NewCaret.Y)).X-1;
NewCaret.X:=PhysicalLineLen;
NewCaret.X:=PhysicalLineLen+1;
end;
end else if not (eoScrollPastEol in fOptions) then begin
s:=LineText;
PhysicalLineLen:=LogicalToPhysicalPos(Point(length(s)+1,CaretY)).X-1;
if NewCaret.X>PhysicalLineLen then begin
if NewCaret.X>PhysicalLineLen+1 then begin
// move to start of next line
NewCaret.X:=1;
inc(NewCaret.Y);