paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 14:22:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Cleanup, removed unused variables

Browse Source 
git-svn-id: trunk@19104 -
This commit is contained in:
martin 2009-03-25 21:49:32 +00:00
parent 5bb8ad3f37
commit c9570a9b46
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -5643,7 +5643,6 @@ var
s: string;
{$ENDIF}
counter: Integer;
InsDelta: integer;
LogCounter: integer;
LogCaretXY: TPoint;
CY: Integer;
@ -5986,7 +5985,6 @@ begin
Temp2 := Temp; //LineText;
// This is sloppy, but the Right Thing would be to track the column of markers
// too, so they could be moved depending on whether they are after the caret...
InsDelta := Ord( (CaretX = 1) AND (Command = ecLineBreak) );
LogCaretXY:=PhysicalToLogicalPos(CaretXY);
Len := Length(Temp);
if LogCaretXY.X > Len + 1 then

4
components/synedit/syneditpointclasses.pas
View File

@ -595,9 +595,8 @@ var
procedure DeleteSelection;
var
y, l, r, xb, xe, MarkOffset: Integer;
y, l, r, xb, xe: Integer;
begin
MarkOffset := 0;
case ActiveSelectionMode of
smNormal:
begin
@ -655,7 +654,6 @@ var
if BE.Y >= BB.Y then
FLines.EditLinesDelete(BB.Y, BE.Y - BB.Y + 1);
FCaret.LineCharPos := Point(1, BB.Y);
MarkOffset := 1;
end;
end;
end;