paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-11 01:58:12 +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; FLeftGutterArea, FRightGutterArea: TLazSynGutterArea;
FPaintArea: TLazSynSurfaceManager; FPaintArea: TLazSynSurfaceManager;
property ScreenCaret: TSynEditScreenCaret read FScreenCaret; property ScreenCaret: TSynEditScreenCaret read FScreenCaret;
property OnClickLink : TMouseEvent read FOnClickLink write FOnClickLink;
property OnMouseLink: TSynMouseLinkEvent read FOnMouseLink write FOnMouseLink;
procedure Paint; override; procedure Paint; override;
procedure StartPaintBuffer(const ClipRect: TRect); procedure StartPaintBuffer(const ClipRect: TRect);
@ -1235,8 +1237,8 @@ type
property OnMouseDown; property OnMouseDown;
property OnMouseMove; property OnMouseMove;
property OnMouseUp; property OnMouseUp;
property OnClickLink : TMouseEvent read FOnClickLink write FOnClickLink; property OnClickLink;
property OnMouseLink: TSynMouseLinkEvent read FOnMouseLink write FOnMouseLink; property OnMouseLink;
property OnMouseEnter; property OnMouseEnter;
property OnMouseLeave; property OnMouseLeave;
property OnMouseWheel; property OnMouseWheel;