anchor.diff:    HOUSE_FLAG_TEX_ID_FRAME = 5;
     HOUSE_ORDER_ROW_MOUSEWHEEL_STEP = 5;
   
  +  RMB_SHIFT_STATES: TShiftState = [ssRight, ssShift];
     SCHOOL_CH_ORDER_TO_0_SHIFT = ssCtrl; // Shift state to change Unit order in queue to 0 in School
     SCHOOL_CH_ORDER_TO_1_SHIFT = ssAlt;  // Shift state to change Unit order in queue to 1 in School
   
  
positive.code:     Exit;
    school := TKMHouseSchool(gMySpectator.Selected);
  
    if (ssRight in Shift) and (Sender = Button_School_Left) then
      fLastSchoolUnit := 0;
    if (ssRight in Shift) and (Sender = Button_School_Right) then
      fLastSchoolUnit := High(School_Order);
  
    if (Sender = Button_School_Left) and (fLastSchoolUnit > 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
  