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

SynEdit: make OnMouseLink available in CustomSynEdit. Issue #0030604

Browse Source 
git-svn-id: trunk@52974 -
This commit is contained in:
martin 2016-09-15 10:49:03 +00:00
parent da0f71ea43
commit 19f68221e5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -758,6 +758,8 @@ type
FLeftGutterArea, FRightGutterArea: TLazSynGutterArea;
FPaintArea: TLazSynSurfaceManager;
property ScreenCaret: TSynEditScreenCaret read FScreenCaret;
property OnClickLink : TMouseEvent read FOnClickLink write FOnClickLink;
property OnMouseLink: TSynMouseLinkEvent read FOnMouseLink write FOnMouseLink;
procedure Paint; override;
procedure StartPaintBuffer(const ClipRect: TRect);
@ -1235,8 +1237,8 @@ type
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnClickLink : TMouseEvent read FOnClickLink write FOnClickLink;
property OnMouseLink: TSynMouseLinkEvent read FOnMouseLink write FOnMouseLink;
property OnClickLink;
property OnMouseLink;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseWheel;