anchor.diff:    KM_Resource, KM_ResFonts, KM_ResTexts, KM_ResKeys, KM_ResHouses, KM_ResSound, KM_ResCursors, KM_ResUnits, KM_Pics,
     KM_UnitWarrior, KM_Utils, KM_Defaults, KM_Sound, KM_CommonUtils;
   
  +const
  +  UNIT_FLAG_TEX_ID = 1159;
  +  UNIT_FLAG_TEX_ID_FRAME = 5;
  +
   
   { TKMGUIGameUnit }
   
   constructor TKMGUIGameUnit.Create(aParent: TKMPanel; aSetViewportEvent: TPointFEvent);
   begin
     fSetViewportEvent := aSetViewportEvent;
  +  fAnimStep := 0;
   
     Panel_Unit := TKMPanel.Create(aParent, TB_PAD, 44, TB_WIDTH, 400);
       Image_PlayerFlag := TKMImage.Create(Panel_Unit, 0, 19, 20, 13, 1159, rxHouses); // before unit name label
  
positive.code:   Image_PlayerFlag.FlagColor := gHands[aUnit.Owner].FlagColor;
    Image_PlayerFlag.Hint      := Format(gResTexts[TX_PLAYER_FLAG_HINT], [gHands[aUnit.Owner].OwnerName]);
  
    // Common properties
    Label_UnitName.Caption      := gRes.Units[aUnit.UnitType].GUIName;
    Image_UnitPic.TexID         := gRes.Units[aUnit.UnitType].GUIScroll;
  
negative.code: type
    TKMGUIGameUnit = class
    private
      fAnimStep: Cardinal;
      fAskDismiss: Boolean;
      fJoiningGroups: Boolean;
      fSetViewportEvent: TPointFEvent;
  