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

Fixes the compilation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2097 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-10-27 08:26:45 +00:00
parent af52832281
commit 3c62d5f19d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15120,12 +15120,14 @@ 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