anchor.diff:  procedure TKMPanel.Init;
   begin
     ResetFocusedControlIndex;
  -  OnControlMouseDown := ControlMouseDown;
  -  OnControlMouseUp := ControlMouseUp;
  +  //fOnControlMouseDown := ControlMouseDown;
  +  //fOnControlMouseUp := ControlMouseUp;
   end;
   
   
  
positive.code:     procedure SetVisible(aValue: Boolean); override;
      procedure SetEnabled(aValue: Boolean); override;
      procedure SetTop(aValue: Integer); override;
    public
      constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aFont: TKMFont; aStyle: TKMButtonStyle; aSelectable: Boolean = True);
      destructor Destroy; override;
  
negative.code: end;
  
  
  procedure TKMControl.FocusChanged(aFocused: Boolean);
  begin
    //Let descendants override this method
  end;
  
  
  procedure TKMControl.ControlMouseDown(Sender: TObject; Shift: TShiftState);
  begin
    //Let descendants override this method
  end;
  
  
  procedure TKMControl.ControlMouseUp(Sender: TObject; Shift: TShiftState);
  begin
    //Let descendants override this method
  end;
  
  
  procedure TKMControl.Enable;  begin SetEnabled(True);  end; //Overrides will be set too
  procedure TKMControl.Disable; begin SetEnabled(False); end;
  
  