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

Restore previous behavior of draw full line selection

Browse Source
This commit is contained in:
Margers 2024-10-13 18:51:22 +00:00
parent 210cb8cb74
commit 405484df91
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/ide/weditor.pas
View File

@ -3905,9 +3905,8 @@ begin
MoveChar(B,' ',Color,Size.X);
GetDisplayTextFormat(AY,LineText,Format);
{ if FlagSet(efSyntaxHighlight) then MaxX:=length(LineText)+1
else }MaxX:=Size.X+Delta.X;
for X:=1 to Min(MaxX,Length(LineText)) do
MaxX:=Min(Delta.X+1+Size.X,MaxLineLength);
for X:=(MaxX-Size.X) to MaxX+1 do
begin
AX:=Delta.X+X-1;
if X<=length(LineText) then C:=LineText[X] else C:=' ';