paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-26 10:10:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: refactor

Browse Source 
git-svn-id: trunk@34206 -
This commit is contained in:
martin 2011-12-15 13:09:20 +00:00
parent b8d236f54a
commit fb0efe6763
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditmiscclasses.pp
View File

@ -599,7 +599,7 @@ var
i: TSynFrameSide;
begin
inherited AssignFrom(Src);
if not (Src is TSynHighlighterAttributes) then exit;
if not (Src is TSynSelectedColor) then exit;
FStartX := TSynSelectedColor(Src).FStartX;
FEndX := TSynSelectedColor(Src).FEndX;
for i := low(TSynFrameSide) to high(TSynFrameSide) do begin