pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Removed unused FPanningCursor

Browse Source 
Restore cursor when Panning is stopped

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@150 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-04-23 20:28:11 +00:00
parent 49b4ab00f4
commit 9a6c72fb15
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -1860,7 +1860,6 @@ TBaseVirtualTree = class(TCustomControl)
FTotalInternalDataSize: Cardinal; // Cache of the sum of the necessary internal data size for all tree
// classes derived from this base class.
FPanningWindow: TVirtualPanningWindow; // Helper window for wheel panning
FPanningCursor: HCURSOR; // Current wheel panning cursor.
FLastClickPos: TPoint; // Used for retained drag start and wheel mouse scrolling.
{$ifdef EnableAccessible}
@ -23287,9 +23286,7 @@ begin
FPanningWindow.Stop;
DeleteObject(FPanningCursor);
FPanningCursor := 0;
LCLIntf.SetCursor(Screen.Cursors[Cursor]);
Cursor := crDefault;
end;
end;