Forráskód Böngészése

Set focus to processor list on mouse click.

Margers 1 hónapja
szülő
commit
f2a0c9049d
1 módosított fájl, 2 hozzáadás és 0 törlés
  1. 2 0
      packages/ide/wviews.pas

+ 2 - 0
packages/ide/wviews.pas

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