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

SynEdit: fix ctrl mouse link. broken in 33972

Browse Source 
git-svn-id: trunk@33981 -
This commit is contained in:
martin 2011-12-05 19:21:07 +00:00
parent 949ffedc46
commit 500ee16db6
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/synedit/syneditmarkupctrlmouselink.pp
View File

@ -175,6 +175,26 @@ begin
then
exit(True);
end;
for i := 0 to TCustomSynEdit(SynEdit).MouseTextActions.Count - 1 do begin
act := TCustomSynEdit(SynEdit).MouseTextActions.Items[i];
if (act.Command = emcMouseLink) and
( (act.Option = emcoMouseLinkShow) or (not OnlyShowLink) ) and
act.IsMatchingShiftState(AShift)
then
exit(True);
end;
if not TCustomSynEdit(SynEdit).SelAvail then exit;
for i := 0 to TCustomSynEdit(SynEdit).MouseSelActions.Count - 1 do begin
act := TCustomSynEdit(SynEdit).MouseSelActions.Items[i];
if (act.Command = emcMouseLink) and
( (act.Option = emcoMouseLinkShow) or (not OnlyShowLink) ) and
act.IsMatchingShiftState(AShift)
then
exit(True);
end;
end;
constructor TSynEditMarkupCtrlMouseLink.Create(ASynEdit: TSynEditBase);