paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +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

6
components/synedit/synedit.pp
View File

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

4
lcl/include/control.inc
View File

@ -1892,7 +1892,9 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
function TControl.AutoSizeCanStart: boolean; 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 It returns false if
- AutoSize=false - AutoSize=false
- or the control is currently autosizing - or the control is currently autosizing