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

Opkman: Prevent handpoint cursor for empty links.

Browse Source 
git-svn-id: trunk@56386 -
This commit is contained in:
balazs 2017-11-13 12:21:57 +00:00
parent 2ded5bb2e7
commit d539582687
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -1677,7 +1677,8 @@ begin
else if (FHoverColumn = 4) and (FHoverNode <> nil) then
begin
Data := VST.GetNodeData(FHoverNode);
if (Data^.DataType = 17) or (Data^.DataType = 18) then
if ((Data^.DataType = 17) and (Trim(Data^.HomePageURL) <> '')) or
((Data^.DataType = 18) and (Trim(Data^.DownloadURL) <> '')) then
FVST.Cursor := crHandPoint;
end;
end;