WSWCORP
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Такое у меня тоже появляется, особенно когда проект начинает разрастаться, и действительно ребуилд помогает... Тут же вообще чудо чудное... Эврика показывает точку возникновения ошибки, то ли я совсем уж, то ли что-то такое, что я совсем не знаю... 
function TcxControl.InternalMouseWheel(Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint): Boolean;
const
ADirections: array[Boolean, Boolean] of TcxDirection = ((dirLeft, dirRight), (dirUp, dirDown));
AScrollCode: array[Boolean] of TScrollCode = (scPageUp, scPageDown);
var
I: Integer;
AScrollPos: Integer;
Место возникновения ошибки...
begin
Result := MouseWheelScrollingKind <> mwskNone;
if Result then
if Mouse.WheelScrollLines = -1 then
Scroll(sbVertical, AScrollCode[WheelDelta < 0], AScrollPos)
else
for I := 0 to Mouse.WheelScrollLines - 1 do
ScrollContent(ADirections[MouseWheelScrollingKind = mwskVertical, WheelDelta < 0]);
end;
|
