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

SynEdit: ecChar for future bidi support

Browse Source 
git-svn-id: trunk@39053 -
This commit is contained in:
martin 2012-10-11 23:23:26 +00:00
parent 6ecde652c7
commit d879b778b0
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synedit.pp
View File

@ -6402,16 +6402,11 @@ begin
Temp := '' *) Temp := '' *)
FTheLinesView.EditInsert(CaretX, LogCaretXY.Y, (*Temp +*) AChar); FTheLinesView.EditInsert(CaretX, LogCaretXY.Y, (*Temp +*) AChar);
{$ELSE} {$ELSE}
(*if Len < LogCaretXY.X - 1 then begin
Temp := StringOfChar(' ', LogCaretXY.X - 1 - Len);
LogCaretXY.X := Len + 1;
end
else
temp := '';*)
FTheLinesView.EditInsert(LogCaretXY.X, LogCaretXY.Y, (*Temp +*) AChar); FTheLinesView.EditInsert(LogCaretXY.X, LogCaretXY.Y, (*Temp +*) AChar);
{$ENDIF} {$ENDIF}
CaretX := CaretX + 1; //CaretX := CaretX + 1;
FCaret.BytePos := LogCaretXY.X + 1;
if CaretX >= LeftChar + CharsInWindow then if CaretX >= LeftChar + CharsInWindow then
LeftChar := LeftChar + Min(25, CharsInWindow - 1); LeftChar := LeftChar + Min(25, CharsInWindow - 1);
finally finally

4
components/synedit/syneditpointclasses.pas
View File

@ -624,7 +624,9 @@ end;
procedure TSynEditCaret.SetBytePos(const AValue: Integer); procedure TSynEditCaret.SetBytePos(const AValue: Integer);
begin begin
CharPos := FLines.LogicalToPhysicalPos(Point(AValue, LinePos)).X; CharPos := FLines.LogicalToPhysicalPos(Point(FLines.LogicPosAdjustToChar
(LineText, AValue, FAdjustToNextChar or (FForceAdjustToNextChar > 0)),
LinePos)).X;
end; end;
function TSynEditCaret.GetLineBytePos: TPoint; function TSynEditCaret.GetLineBytePos: TPoint;