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

Fixed Mouse action for SynMemo issue #13902

Browse Source 
git-svn-id: trunk@20387 -
This commit is contained in:
martin 2009-06-03 23:25:06 +00:00
parent 74c1e17f0b
commit 6f5ec9cb32
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -2528,7 +2528,7 @@ procedure TCustomSynEdit.HandleMouseAction(Button: TMouseButton;
begin
Handled := False;
inherited DoContextPopup(Point(X, Y), Handled);
if not Handled then
if (PopupMenu <> nil) and not Handled then
PopupMenu.PopUp;
end;
else

2
components/synedit/synmemo.pas
View File

@ -145,6 +145,8 @@ type
property InsertCaret;
property InsertMode;
property Keystrokes;
property MouseActions;
property MouseSelActions;
property Lines;
property MaxLeftChar;
property MaxUndo;