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

fixed synedit overwriting characters after end of line

Browse Source 
git-svn-id: trunk@7582 -
This commit is contained in:
mattias 2005-08-27 16:37:21 +00:00
parent c943808130
commit 0c75ccdc82
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedit.pp
View File

@ -7817,8 +7817,12 @@ begin
//utf8bidi.insert(Temp,AChar,CaretNew.X);
CaretX := CaretNew.X;
{$ELSE}
Temp:=copy(Temp,1,LogCaretXY.X-1)+AChar
+copy(Temp,LogCaretXY.X+Counter,length(Temp));
Len := Length(Temp);
if LogCaretXY.X<=Len then
Temp:=copy(Temp,1,LogCaretXY.X-1)+AChar
+copy(Temp,LogCaretXY.X+Counter,length(Temp))
else
Temp:=Temp+StringOfChar(' ', LogCaretXY.X-1-Len)+AChar;
{$ENDIF}
CaretNew := Point((CaretX + 1), CaretY);
TrimmedSetLine(CaretY - 1, Temp);

4
lcl/include/control.inc
View File

@ -1892,7 +1892,9 @@ end;
{------------------------------------------------------------------------------
function TControl.AutoSizeCanStart: boolean;
Returns true if DoAutoSize can start.
Returns true if DoAutoSize can start. That means, it tests the minimum
requirements to start. Some controls need even more.
It returns false if
- AutoSize=false
- or the control is currently autosizing