anchor.diff:  
   implementation
   uses
  +  Math,
     KM_Game, KM_GameInputProcess, KM_HandsCollection, KM_Hand, KM_HandSpectator, KM_InterfaceGame, KM_RenderUI,
     KM_Resource, KM_ResFonts, KM_ResTexts, KM_ResKeys, KM_ResHouses, KM_ResSound, KM_ResCursors, KM_ResUnits, KM_Pics,
     KM_Units_Warrior, KM_Utils, KM_Defaults, KM_Sound, KM_CommonUtils;
  
positive.code:   Panel_Unit.Show;
  
    // Common properties
    Label_UnitName.Caption      := gRes.Units[aUnit.UnitType].GUIName;
    Image_UnitPic.TexID         := gRes.Units[aUnit.UnitType].GUIScroll;
    Image_UnitPic.FlagColor     := gHands[aUnit.Owner].FlagColor;
  
    ConditionBar_Unit.Position  := aUnit.Condition / UNIT_MAX_CONDITION;
    Label_UnitTask.Caption      := aUnit.GetActivityText;
  
    Button_Unit_Dismiss.Visible := SHOW_DISMISS_UNITS_BTN
  
negative.code:   fSetViewportEvent := aSetViewportEvent;
  
    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
      Label_UnitName        := TKMLabel.Create(Panel_Unit,0,16,TB_WIDTH,30,'',fnt_Outline,taCenter);
  
      Image_UnitPic         := TKMImage.Create(Panel_Unit,0,38,54,100,521);
  