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

tp ipro: clean u

Browse Source 
git-svn-id: trunk@34687 -
This commit is contained in:
mattias 2012-01-09 16:52:48 +00:00
parent d56af331dd
commit 4b50c275ac
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/turbopower_ipro/design/ipidehtmlcontrol.pas
View File

@ -191,15 +191,15 @@ procedure TLazIPHtmlControl.IPHTMLPanelHotClick(Sender: TObject);
var
HotNode: TIpHtmlNode;
HRef: String;
Target: String;
//Target: String;
begin
HotNode:=FIPHTMLPanel.HotNode;
if HotNode is TIpHtmlNodeA then begin
HRef := TIpHtmlNodeA(HotNode).HRef;
Target := TIpHtmlNodeA(HotNode).Target;
//Target := TIpHtmlNodeA(HotNode).Target;
end else begin
HRef := TIpHtmlNodeAREA(HotNode).HRef;
Target := TIpHtmlNodeAREA(HotNode).Target;
//Target := TIpHtmlNodeAREA(HotNode).Target;
end;
//debugln(['TLazIPHtmlControl.IPHTMLPanelHotClick HRef="',HRef,'" Target="',Target,'"']);
IDEProvider.OpenURLAsync(HRef);