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

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.

Browse Source 
git-svn-id: trunk@18951 -
This commit is contained in:
martin 2009-03-10 22:58:16 +00:00
parent 7a5c870566
commit d999a5db3b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -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);;