paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 15:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_IPro: Add event OnHotURL which provides the URL in the mouse-over-hyperlink hint window.

Browse Source 
git-svn-id: trunk@64995 -
This commit is contained in:
wp 2021-04-14 17:44:42 +00:00
parent ca6d5a9984
commit 34fc70c20f
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/turbopower_ipro/iphtml.pas
View File

@ -2580,10 +2580,13 @@ type
{ TIpHtmlCustomPanel }
TIpHtmlHotURLEvent = procedure (Sender: TObject; const URL: String) of object;
TIpHtmlCustomPanel = class(TCustomPanel)
private
FHotChange : TNotifyEvent;
FHotClick : TNotifyEvent;
FHotURLEvent: TIpHtmlHotURLEvent;
FControlClick : TIpHtmlControlEvent;
FControlClick2 : TIpHtmlControlEvent2;
FControlOnEditingDone : TIpHtmlControlEvent;
@ -2733,6 +2736,7 @@ type
property OnDocumentOpen: TNotifyEvent read FDocumentOpen write FDocumentOpen;
property OnHotChange: TNotifyEvent read FHotChange write FHotChange;
property OnHotClick: TNotifyEvent read FHotClick write FHotClick;
property OnHotURL: TIpHtmlHotURLEvent read FHotURLEvent write FHotURLEvent;
property CurURL: string read GetCurUrl;
property WantTabs: Boolean read FWantTabs write FWantTabs default True;
published
@ -2787,6 +2791,7 @@ type
property OnExit;
property OnHotChange;
property OnHotClick;
property OnHotURL;
end;
TIpHtmlCustomScanner = class(TComponent)
@ -13401,6 +13406,8 @@ begin
HintWindow.ActivateWithBounds(Rect(Sc.X + 6, Sc.Y + 16 - 6,
Sc.X + Tw + 18, Sc.Y + Th + 16 + 6),
NewHint);
if Assigned(HtmlPanel.OnHotURL) then
HtmlPanel.OnHotURL(HtmlPanel, NewHint);
end else
HideHint;
CurHint := NewHint;