From 9ca4e6bd3931cac09ed3b6ee972646128a01f93f Mon Sep 17 00:00:00 2001 From: martin Date: Mon, 15 Dec 2008 23:34:42 +0000 Subject: [PATCH] SynEdit: Fix LogicalToPhysical on end of Line (or empty line) whit trim-spaces. This caused Tabs to misbehave git-svn-id: trunk@17844 - --- components/synedit/synedit.pp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index b5576c2d92..0d9fe8aa0a 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -9906,7 +9906,7 @@ end; {$IFDEF SYN_LAZARUS} function TCustomSynEdit.LogicalToPhysicalPos(const p: TPoint): TPoint; begin - Result := TSynEditStrings(fLines).LogicalToPhysicalPos(p); + Result := TSynEditStrings(Lines).LogicalToPhysicalPos(p); end; {$ELSE} function TCustomSynEdit.LogicalToPhysicalPos(p: TPoint): TPoint; @@ -9940,7 +9940,7 @@ end; function TCustomSynEdit.LogicalToPhysicalCol(const Line: string; LogicalPos: integer): integer; begin - Result := TSynEditStrings(fLines).LogicalToPhysicalCol(PChar(Pointer(Line)), + Result := TSynEditStrings(Lines).LogicalToPhysicalCol(PChar(Pointer(Line)), length(Line),LogicalPos,1,1); end; @@ -9948,7 +9948,7 @@ function TCustomSynEdit.LogicalToPhysicalCol(Line: PChar; LineLen: integer; LogicalPos, StartBytePos, StartPhysicalPos: integer): integer; // Note: LogicalPos, StartBytePos, StartPhysicalPos start at 1 begin - Result := TSynEditStrings(fLines).LogicalToPhysicalCol(Line, LineLen, LogicalPos, + Result := TSynEditStrings(Lines).LogicalToPhysicalCol(Line, LineLen, LogicalPos, StartBytePos, StartPhysicalPos); end; @@ -9963,19 +9963,19 @@ end; function TCustomSynEdit.PhysicalToLogicalPos(const p: TPoint): TPoint; begin - Result := TSynEditStrings(fLines).PhysicalToLogicalPos(p); + Result := TSynEditStrings(Lines).PhysicalToLogicalPos(p); end; function TCustomSynEdit.PhysicalToLogicalCol(const Line: string; PhysicalPos: integer): integer; begin - Result := TSynEditStrings(fLines).PhysicalToLogicalCol(Line,PhysicalPos,1,1); + Result := TSynEditStrings(Lines).PhysicalToLogicalCol(Line,PhysicalPos,1,1); end; function TCustomSynEdit.PhysicalToLogicalCol(const Line: string; PhysicalPos, StartBytePos, StartPhysicalPos: integer): integer; begin - Result := TSynEditStrings(fLines).PhysicalToLogicalCol(Line, PhysicalPos, + Result := TSynEditStrings(Lines).PhysicalToLogicalCol(Line, PhysicalPos, StartBytePos, StartPhysicalPos); end;