anchor.diff:      procedure Army_Issue_Order(Sender: TObject);
       procedure ShowDismissBtn;
       procedure Unit_Scroll_Click(Sender: TObject);
  +    procedure Show_Common(aUnit: TKMUnit);
     protected
       Panel_Unit: TKMPanel;
  +      Image_PlayerFlag: TKMImage;
         Label_UnitName: TKMLabel;
         Label_UnitCondition: TKMLabel;
         Label_UnitTask: TKMLabel;
  
positive.code: 
  implementation
  uses
    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;
  
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);
  