anchor.diff:    H: TKMHouse;
     W: TKMUnitWarrior;
     OldSelected: TObject;
  +  I: Integer;
   begin
     inherited;
   
  
positive.code:     for T := Low(TKMTabButtons) to High(TKMTabButtons) do Button_Main[T].Visible := ShowEm;
      Button_Back.Visible := not ShowEm;
      Label_MenuTitle.Visible := not ShowEm;
    end;
  
  begin
  
negative.code:   //Press the button
    TKMButtonFlat(Sender).Down := true;
  
    //Reset building mode
    // and see if it needs to be changed
  
    GameCursor.Mode := cm_None;
    GameCursor.Tag1 := 0;
  
    Label_BuildCost_Wood.Caption  := '-';
    Label_BuildCost_Stone.Caption := '-';
    Label_Build.Caption := '';
  
  
    if Button_BuildCancel.Down then begin
      GameCursor.Mode:=cm_Erase;
  