paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 13:51:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: remove circular dependency between SynEdit and SynEditMarkupGutterMark

Browse Source 
git-svn-id: trunk@64480 -
This commit is contained in:
ondrej 2021-02-05 13:20:26 +00:00
parent 3afd98807d
commit 3c494e28e9
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -833,6 +833,7 @@ type
function GetCanUndo: Boolean; override;
function GetCaretObj: TSynEditCaret; override;
function GetHighlighterObj: TObject; override;
function GetMarksObj: TObject; override;
function GetSelectedColor : TSynSelectedColor; override;
function GetTextViewsManager: TSynTextViewsManager; override;
procedure FontChanged(Sender: TObject); override;
@ -2872,6 +2873,11 @@ begin
Result := FCaret.LineBytePos;
end;
function TCustomSynEdit.GetMarksObj: TObject;
begin
Result := FMarkList;
end;
procedure TCustomSynEdit.SetLogicalCaretXY(const NewLogCaretXY: TPoint);
begin
FCaret.ChangeOnTouch;

6
components/synedit/syneditmarkupguttermark.pp
View File

@ -72,10 +72,6 @@ type
implementation
uses
SynEdit;
{ TSynEditMarkupGutterMark }
procedure TSynEditMarkupGutterMark.DoMarkupChanged(AMarkup: TSynSelectedColor);
@ -100,7 +96,7 @@ var
Section: PMarkSection;
x: Integer;
begin
MLine := TCustomSynEdit(SynEdit).Marks.Line[ARow];
MLine := (SynEdit.Marks as TSynEditMarkList).Line[ARow];
if MLine = nil then begin
SetLength(FRowData, 0);
exit;

2
components/synedit/syneditmiscclasses.pp
View File

@ -154,6 +154,7 @@ type
function GetReadOnly: boolean; virtual;
function GetIsBackwardSel: Boolean;
function GetHighlighterObj: TObject; virtual; abstract;
function GetMarksObj: TObject; virtual; abstract;
function GetSelText: string;
function GetSelAvail: Boolean;
function GetSelectedColor: TSynSelectedColor; virtual; abstract;
@ -320,6 +321,7 @@ type
property SelAvail: Boolean read GetSelAvail;
property Highlighter: TObject read GetHighlighterObj;
property Marks: TObject read GetMarksObj;
end;
{ TSynEditFriend }