paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Opkman: Handpoint cursor for links. Request by @tudi_x.

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

8
components/onlinepackagemanager/opkman_visualtree.pas
View File

@ -1661,6 +1661,8 @@ end;
procedure TVisualTree.VSTMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
Data: PData;
begin
FHoverColumn := -1;
FHoverP.X := X;
@ -1671,6 +1673,12 @@ begin
begin
FVST.ReinitNode(FHoverNode, False);
FVST.RepaintNode(FHoverNode);
end
else if (FHoverColumn = 4) and (FHoverNode <> nil) then
begin
Data := VST.GetNodeData(FHoverNode);
if (Data^.DataType = 17) or (Data^.DataType = 18) then
FVST.Cursor := crHandPoint;
end;
end;