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; |