mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-24 06:48:32 +02:00
IDE: clean up
git-svn-id: trunk@21171 -
This commit is contained in:
parent
e895e701e5
commit
f044aa18f3
@ -3415,7 +3415,6 @@ end;
|
|||||||
procedure TEditorOptions.SetMarkupColor(Syn : TSrcIDEHighlighter;
|
procedure TEditorOptions.SetMarkupColor(Syn : TSrcIDEHighlighter;
|
||||||
AddHilightAttr : TAdditionalHilightAttribute; aMarkup : TSynSelectedColor);
|
AddHilightAttr : TAdditionalHilightAttribute; aMarkup : TSynSelectedColor);
|
||||||
var
|
var
|
||||||
i: Integer;
|
|
||||||
Attrib: TSynHighlighterAttributes;
|
Attrib: TSynHighlighterAttributes;
|
||||||
begin
|
begin
|
||||||
Attrib := GetSynAttributeByAha(Syn, AddHilightAttr);
|
Attrib := GetSynAttributeByAha(Syn, AddHilightAttr);
|
||||||
|
@ -167,7 +167,6 @@ var
|
|||||||
FullAbcWidth, AbcWidth: Integer;
|
FullAbcWidth, AbcWidth: Integer;
|
||||||
Attri: TSynHighlighterAttributes;
|
Attri: TSynHighlighterAttributes;
|
||||||
TextY: Integer;
|
TextY: Integer;
|
||||||
ts: TTextStyle;
|
|
||||||
AttriIdx: LongInt;
|
AttriIdx: LongInt;
|
||||||
c: TColor;
|
c: TColor;
|
||||||
Scheme: TPascalColorScheme;
|
Scheme: TPascalColorScheme;
|
||||||
|
Loading…
Reference in New Issue
Block a user