paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:41:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: clean up

Browse Source 
git-svn-id: trunk@40615 -
This commit is contained in:
mattias 2013-03-21 23:10:14 +00:00
parent faeff278b9
commit bef5514dd1
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synbeautifier.pas
View File

@ -40,7 +40,7 @@ unit SynBeautifier;
interface interface
uses uses
Classes, SysUtils, math, LCLProc, SynEditMiscClasses, SynEditMiscProcs, LazSynEditText, SynEditPointClasses, Classes, SysUtils, LCLProc, SynEditMiscClasses, SynEditMiscProcs, LazSynEditText, SynEditPointClasses,
SynEditKeyCmds, SynHighlighterPas, SynEditHighlighterFoldBase, SynRegExpr; SynEditKeyCmds, SynHighlighterPas, SynEditHighlighterFoldBase, SynRegExpr;
type type

2
components/synedit/syneditmarks.pp
View File

@ -733,8 +733,6 @@ end;
function TSynEditMarkLineList.GetOrAddMarkLine(LineNum: Integer; function TSynEditMarkLineList.GetOrAddMarkLine(LineNum: Integer;
AddIfNotExist: Boolean; UseNext: Boolean = False): TSynEditMarkLine; AddIfNotExist: Boolean; UseNext: Boolean = False): TSynEditMarkLine;
var var
rStartPosition: Integer;
p: TSynEditMarkLine;
d1, d2: Integer; d1, d2: Integer;
begin begin
if AddIfNotExist then if AddIfNotExist then