From d999a5db3b20b4541f3162cdfb0fce36eefd4645 Mon Sep 17 00:00:00 2001 From: martin Date: Tue, 10 Mar 2009 22:58:16 +0000 Subject: [PATCH] SynEdit, inconsistent handling of MouseLinks. Some code suppressed MouseLinks if shift or alt where pressed too, other code would still handle the links. Now the modifier key (ctrl or meta) has to be pressed without shift or alt. git-svn-id: trunk@18951 - --- components/synedit/synedit.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index d32918c0ac..1ded0f83a9 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -2275,7 +2275,7 @@ begin and (Y >= 0) and (Y < ClientHeight{$IFDEF SYN_LAZARUS}-ScrollBarWidth{$ENDIF}) then begin - if (Cursor <> crHandPoint) or (not (SYNEDIT_LINK_MODIFIER in Shift)) then + if (Cursor <> crHandPoint) or (Shift <> [SYNEDIT_LINK_MODIFIER]) then Cursor := crIBeam; end else @@ -2513,7 +2513,7 @@ begin {$IFDEF SYN_LAZARUS} if (eoShowCtrlMouseLinks in Options) and not(wasDragging) - and (Button=mbLeft) and (SYNEDIT_LINK_MODIFIER in Shift) + and (Button=mbLeft) and (Shift = [SYNEDIT_LINK_MODIFIER]) and assigned(FOnClickLink) then begin FOnClickLink(Self, Button, Shift, X,Y);;