anchor.diff:        Label_Passability:TKMLabel;
         Button_PlayerSelect:array[0..MAX_PLAYERS-1]of TKMFlatButtonShape; //Animals are common for all
         Label_Stat,Label_Hint:TKMLabel;
  +      Bevel_HintBG: TKMBevel;
         Label_MatAmount: TKMLabel;
         Shape_MatAmount: TKMShape;
         Label_DefenceID: TKMLabel;
  
positive.code:   begin
      GameCursor.SState := []; //Don't do real-time elevate when the mouse is over controls, only terrain
      Exit;
    end;
  
    fGame.UpdateGameCursor(X,Y,Shift);
    if GameCursor.Mode = cm_None then
  
negative.code: begin
    if (fPrevHint = Sender) then exit; //Hint didn't changed
  
    if (Sender=nil) or (TKMControl(Sender).Hint = '') then
    begin
      Label_Hint.Caption := '';
      Bevel_HintBG.Hide;
    end
    else
    begin
      Label_Hint.Caption := TKMControl(Sender).Hint;
      Bevel_HintBG.Show;
      Bevel_HintBG.Width := 8+fResource.ResourceFont.GetTextSize(Label_Hint.Caption, Label_Hint.Font).X;
    end;
  
    fPrevHint := Sender;
  end;
  