anchor.diff:  
   procedure TKMMapEdPlayerColors.Show;
   begin
  -  UpdatePlayer;
  +  UpdatePlayer(True);
     Panel_Color.Show;
   end;
   
  
positive.code:   public
      constructor Create(aParent: TKMPanel);
  
      procedure UpdatePlayer;
      procedure Show;
      function Visible: Boolean;
      procedure Hide;
  
negative.code: end;
  
  
  procedure TKMMapEdPlayerColors.UpdatePlayer(aUpdateColorEdit: Boolean = False);
  var
    ColorText: UnicodeString;
  begin
  