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

VirtualTreeView: fix mouse cursor for panning

Browse Source
This commit is contained in:
Martin 2022-01-23 17:51:17 +01:00
parent dfa66431c4
commit 965dee4181
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -18327,7 +18327,7 @@ begin
begin begin
// Only horizontal movement allowed. // Only horizontal movement allowed.
if X < FLastClickPos.X then if X < FLastClickPos.X then
Name := 'VT_MOVEW' NewCursor := crVT_MOVEW
else else
NewCursor := crVT_MOVEE; NewCursor := crVT_MOVEE;
end end