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

Merged revision(s) 49192 #fee02222c7 from trunk:

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

git-svn-id: branches/fixes_1_4@49196 -
This commit is contained in:
maxim 2015-05-27 20:37:55 +00:00
parent 9566e8e958
commit 5c2960c762
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;
begin
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?
for i := 0 to TCustomSynEdit(SynEdit).MouseActions.Count - 1 do begin
act := TCustomSynEdit(SynEdit).MouseActions.Items[i];