anchor.diff:      Exit;
     school := TKMHouseSchool(gMySpectator.Selected);
   
  -  if (ssRight in Shift) and (Sender = Button_School_Left) then
  +  if (RMB_SHIFT_STATES * Shift <> []) and (Sender = Button_School_Left) then
       fLastSchoolUnit := 0;
  -  if (ssRight in Shift) and (Sender = Button_School_Right) then
  +  if (RMB_SHIFT_STATES * Shift <> []) and (Sender = Button_School_Right) then
       fLastSchoolUnit := High(School_Order);
   
     if (Sender = Button_School_Left) and (fLastSchoolUnit > 0) then
  
positive.code:   Image_TH_Right.FlagColor := gHands[townHall.Owner].FlagColor;
    Image_TH_Train.FlagColor := gHands[townHall.Owner].FlagColor;
  
    if (Sender = Button_TH_Left) and (ssRight in Shift) then
      fLastTHUnit := 0;
    if (Sender = Button_TH_Right) and (ssRight in Shift) then
      fLastTHUnit := High(TownHall_Order);
  
    if (Sender = Button_TH_Left) and (fLastTHUnit > 0) then
  
negative.code:   Image_Barracks_NotAcceptRecruit.Visible := barracks.NotAcceptRecruitFlag;
  
  
    if (Sender = Button_Barracks_Left) and (RMB_SHIFT_STATES * Shift <> []) then
      fLastBarracksUnit := 0;
    if (Sender = Button_Barracks_Right) and (RMB_SHIFT_STATES * Shift <> []) then
      fLastBarracksUnit := High(Barracks_Order);
  
    if (Sender = Button_Barracks_Left)and(fLastBarracksUnit > 0) then
  