|
@@ -2403,6 +2403,8 @@ procedure TScrollerRadioButtons.HandleEvent (Var Event: TEvent);
|
|
VAR I: Sw_Integer; Mouse: TPoint;
|
|
VAR I: Sw_Integer; Mouse: TPoint;
|
|
LinesScroll : sw_integer;
|
|
LinesScroll : sw_integer;
|
|
begin
|
|
begin
|
|
|
|
+ TView.HandleEvent(Event); { Call TView, skip TCluster }
|
|
|
|
+ { Set focus to this view }
|
|
If ((Options AND ofSelectable) <> 0) Then
|
|
If ((Options AND ofSelectable) <> 0) Then
|
|
begin
|
|
begin
|
|
If (Event.What = evMouseWheel) Then Begin { Mouse wheel event }
|
|
If (Event.What = evMouseWheel) Then Begin { Mouse wheel event }
|