anchor.diff:  procedure TKMPanel.Init;
   begin
     ResetFocusedControlIndex;
  -  //fOnControlMouseDown := ControlMouseDown;
  -  //fOnControlMouseUp := ControlMouseUp;
   end;
   
   
  
positive.code: begin
    inherited;
    for I := 0 to ChildCount - 1 do
      //if Assigned(Childs[I].fOnControlMouseUp) then
      Childs[I].ControlMouseUp(Sender, Shift);
  end;
  
  
negative.code: begin
    inherited;
    for I := 0 to ChildCount - 1 do
      Childs[I].ControlMouseDown(Sender, Shift);
  end;
  
  