anchor.diff:      function GetMaxLength: Word; override;
       function IsCharValid(Key: WideChar): Boolean; override;
       procedure ValidateText; override;
  +    procedure FocusChanged(aFocused: Boolean); override;
       function KeyEventHandled(Key: Word; Shift: TShiftState): Boolean; override;
  +    procedure ControlMouseDown(Sender: TObject; Shift: TShiftState); override;
     public
       ValueMin: Integer;
       ValueMax: Integer;
  
positive.code: procedure TKMPanel.ControlMouseDown(Sender: TObject; Shift: TShiftState);
  var I: Integer;
  begin
    for I := 0 to ChildCount - 1 do
      if Assigned(Childs[I].fOnControlMouseDown) then
        Childs[I].fOnControlMouseDown(Sender, Shift);
  end;
  
  
  procedure TKMPanel.ControlMouseUp(Sender: TObject; Shift: TShiftState);
  var I: Integer;
  begin
    for I := 0 to ChildCount - 1 do
      if Assigned(Childs[I].fOnControlMouseUp) then
        Childs[I].fOnControlMouseUp(Sender, Shift);
  end;
  
  
  
negative.code: 
      if aCtrl <> nil then
      begin
        aCtrl.FocusChanged(True);
        if Assigned(aCtrl.fOnFocusChange) then
          aCtrl.fOnFocusChange(True);
        aCtrl.Parent.FocusedControlIndex := aCtrl.ControlIndex; //Set Parent Panel FocusedControlIndex to new focused control
      end;
    end;
  