paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 19:20:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: removed old unused colors on TSourceMark. IDE is now using aha "additional highlighter attribute" settings

Browse Source
This commit is contained in:
Martin 2025-06-22 13:26:19 +02:00
parent 95eaa30d4e
commit bced136d21
2 changed files with 0 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/sourceeditor.pp
View File

@ -5065,17 +5065,6 @@ begin
// check highlight attribute
aha := CurMarks[i].LineColorAttrib;
if aha <> ahaNone then Break;
// check custom colors
CurFG := CurMarks[i].LineColorForeGround;
CurBG := CurMarks[i].LineColorBackGround;
if (CurFG <> clNone) or (CurBG <> clNone) then
begin
Markup.Foreground := CurFG;
Markup.Background := CurBG;
Special := True;
break;
end;
end;
// clean up
FreeMem(CurMarks);

26
ide/sourcemarks.pas
View File

@ -141,8 +141,6 @@ type
private
FIsBreakPoint: boolean;
FLineColorAttrib: TAdditionalHilightAttribute;
FLineColorBackGround: TColor;
FLineColorForeGround: TColor;
protected
procedure DoChange(AChanges: TSynEditMarkChangeReasons); override;
procedure AddHandler(HandlerType: TSourceMarkHandler;
@ -153,8 +151,6 @@ type
procedure SetData(const AValue: TObject); virtual;
procedure SetIsBreakPoint(const AValue: boolean); virtual;
procedure SetLineColorAttrib(const AValue: TAdditionalHilightAttribute); virtual;
procedure SetLineColorBackGround(const AValue: TColor); virtual;
procedure SetLineColorForeGround(const AValue: TColor); virtual;
procedure SetColumn(const Value: Integer); override;
procedure SetLine(const Value: Integer); override;
@ -188,10 +184,6 @@ type
public
property LineColorAttrib: TAdditionalHilightAttribute read FLineColorAttrib
write SetLineColorAttrib;
property LineColorForeGround: TColor read FLineColorForeGround
write SetLineColorForeGround;
property LineColorBackGround: TColor read FLineColorBackGround
write SetLineColorBackGround;
public
property IsBreakPoint: boolean read FIsBreakPoint write SetIsBreakPoint;
end;
@ -329,22 +321,6 @@ begin
Changed;
end;
procedure TSourceMark.SetLineColorBackGround(const AValue: TColor);
begin
if FLineColorBackGround=AValue then exit;
FLineColorBackGround:=AValue;
DoLineUpdate;
Changed;
end;
procedure TSourceMark.SetLineColorForeGround(const AValue: TColor);
begin
if FLineColorForeGround=AValue then exit;
FLineColorForeGround:=AValue;
DoLineUpdate;
Changed;
end;
procedure TSourceMark.SetLineColorAttrib(
const AValue: TAdditionalHilightAttribute);
begin
@ -422,8 +398,6 @@ begin
inherited Create(TSynEdit(TheOwner.EditorControl));
FData:=TheData;
FLineColorAttrib:=ahaNone;
FLineColorBackGround:=clNone;
FLineColorForeGround:=clNone;
TSynEdit(TheOwner.EditorControl).Marks.Add(Self);
end;