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

SynEdit: Fixed Option for MouseLink (when not using MouseActions)

Browse Source 
git-svn-id: trunk@49192 -
This commit is contained in:
martin 2015-05-27 20:13:33 +00:00
parent 5d0a5d2225
commit fee02222c7
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/syneditmarkupctrlmouselink.pp
View File

@ -172,6 +172,13 @@ var
i: Integer; i: Integer;
begin begin
Result := False; Result := False;
if not (emUseMouseActions in TCustomSynEdit(SynEdit).MouseOptions) then begin
Result := (emShowCtrlMouseLinks in TCustomSynEdit(SynEdit).MouseOptions) and
(AShift * [ssShift, ssCtrl, ssAlt] = [ssCtrl]);
exit;
end;
// todo: check FMouseSelActions if over selection? // todo: check FMouseSelActions if over selection?
for i := 0 to TCustomSynEdit(SynEdit).MouseActions.Count - 1 do begin for i := 0 to TCustomSynEdit(SynEdit).MouseActions.Count - 1 do begin
act := TCustomSynEdit(SynEdit).MouseActions.Items[i]; act := TCustomSynEdit(SynEdit).MouseActions.Items[i];