paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 10:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Clean up

Browse Source 
git-svn-id: trunk@58595 -
This commit is contained in:
martin 2018-07-22 11:36:10 +00:00
parent b9173f72c0
commit 1e7998c60a
2 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditmarkupfoldcoloring.pas
View File

@ -381,8 +381,6 @@ end;
{ TSynEditMarkupFoldColors }
constructor TSynEditMarkupFoldColors.Create(pSynEdit: TSynEditBase);
var
i: Integer;
begin
inherited Create(pSynEdit);
@ -432,8 +430,6 @@ begin
end;
destructor TSynEditMarkupFoldColors.Destroy;
var
i: Integer;
begin
if Lines <> nil then
Lines.Ranges[Self] := nil;

4
components/synedit/synguttercodefolding.pp
View File

@ -385,8 +385,6 @@ begin
end;
procedure TSynGutterCodeFolding.ScalePPI(const AScaleFactor: Double);
var
m: Integer;
begin
inherited ScalePPI(AScaleFactor);
FPpiPenWidth := Max(1, Scale96ToFont(1));
@ -412,8 +410,6 @@ begin
end;
procedure TSynGutterCodeFolding.SetWidth(const AValue: integer);
var
m: Integer;
begin
if (Width=AValue) or (AutoSize) then exit;
inherited SetWidth(AValue);