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

Fixes compiling

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2099 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-10-28 03:54:17 +00:00
parent c1e7914dbd
commit 9bbc3015a2
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@@ -15120,14 +15120,11 @@ var
ScrollLines: DWORD; ScrollLines: DWORD;
RTLFactor: Integer; RTLFactor: Integer;
WheelFactor: Double; WheelFactor: Double;
State: TShiftState;
begin begin
//todo: rename to WM* //todo: rename to WM*
{$ifdef DEBUG_VTV}Logger.EnterMethod([lcScroll],'CMMouseWheel');{$endif} {$ifdef DEBUG_VTV}Logger.EnterMethod([lcScroll],'CMMouseWheel');{$endif}
StopWheelPanning; StopWheelPanning;
State := KeysToShiftState(Message.Button);
inherited WMMouseWheel(Message); inherited WMMouseWheel(Message);
if Message.Result = 0 then if Message.Result = 0 then