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

* Fix some range check errors

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2189 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-12-11 13:17:25 +00:00
parent 599c2f0520
commit 82c33c64f8
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -14707,7 +14707,7 @@ begin
Result := DROPEFFECT_MOVE or DROPEFFECT_COPY;
DragOver(S, ShiftState, TDragState(ADragMessage), APosition, LongWord(Result));
FLastVCLDragTarget := FDropTargetNode;
FVCLDragEffect := Result;
FVCLDragEffect := LongWord(Result);
if (ADragMessage = dmDragLeave) and Assigned(FDropTargetNode) then
begin
InvalidateNode(FDropTargetNode);
@ -15082,9 +15082,9 @@ begin
begin
SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @ScrollLines, 0);
if ScrollLines = WHEEL_PAGESCROLL then
ScrollAmount := Trunc(WheelFactor * ClientHeight)
ScrollAmount := Integer(Trunc(WheelFactor * ClientHeight))
else
ScrollAmount := Trunc(WheelFactor * ScrollLines * FDefaultNodeHeight);
ScrollAmount := Integer(Trunc(WheelFactor * ScrollLines * FDefaultNodeHeight));
end;
SetOffsetY(FOffsetY + ScrollAmount);
end