From c9570a9b46d47832a38a5d1f132e9e83fae7fa72 Mon Sep 17 00:00:00 2001 From: martin Date: Wed, 25 Mar 2009 21:49:32 +0000 Subject: [PATCH] SynEdit: Cleanup, removed unused variables git-svn-id: trunk@19104 - --- components/synedit/synedit.pp | 2 -- components/synedit/syneditpointclasses.pas | 4 +--- 2 files changed, 1 insertion(+), 5 deletions(-) diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index 8f17243d8f..7a1060bdcb 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -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 diff --git a/components/synedit/syneditpointclasses.pas b/components/synedit/syneditpointclasses.pas index 33312065a2..2847895d11 100644 --- a/components/synedit/syneditpointclasses.pas +++ b/components/synedit/syneditpointclasses.pas @@ -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;