anchor.diff:        Label_UnitDescription:TKMLabel;
         ConditionBar_Unit:TKMPercentBar;
         Image_UnitPic:TKMImage;
  +      Button_Unit_Dismiss:TKMButton;
  +
  +      Panel_Unit_Dismiss:TKMPanel;
  +         Label_Unit_Dismiss:TKMLabel;
  +         Button_Unit_DismissYes,Button_Unit_DismissNo:TKMButton;
   
         Panel_Army:TKMPanel;
           Button_Army_GoTo,Button_Army_Stop,Button_Army_Attack:TKMButton;
  
positive.code:     destructor Destroy; override;
      procedure Resize(X,Y:word);
      procedure ShowHouseInfo(Sender:TKMHouse; aAskDemolish:boolean=false);
      procedure ShowUnitInfo(Sender:TKMUnit);
      procedure MessageIssue(MsgTyp:TKMMessageType; Text:string; Loc:TKMPoint);
      procedure MenuIconsEnabled(NewValue:boolean);
      procedure UpdateMapSize(X,Y:integer);
      procedure ShowClock(aSpeed: Word);
      procedure ShowPlayMore(DoShow:boolean; Msg:TGameResultMsg);
      procedure ShowMPPlayMore(Msg:TGameResultMsg);
      procedure ShowNetworkLag(DoShow:boolean; aPlayers:TStringList; IsHost:boolean);
  
negative.code: end;
  
  
  procedure TKMGamePlayInterface.ShowUnitInfo(Sender:TKMUnit; aAskDismiss:boolean=false);
  var i:integer; Commander:TKMUnitWarrior;
  begin
    fShownUnit  := Sender;
    fShownHouse := nil;
    AskDismiss  := aAskDismiss;
  
    if (fShownUnit=nil) or (not fShownUnit.Visible) or (fShownUnit.IsDeadOrDying) then begin
      SwitchPage(nil);
  