anchor.diff:      procedure Player_UpdateColors;
       procedure ShowHouseInfo(Sender:TKMHouse);
       procedure ShowUnitInfo(Sender:TKMUnit);
  -    property ShowPassability:byte read fShowPassability;
       procedure SetMinimap;
       procedure SetMapName(const aName:string);
       procedure RightClick_Cancel;
  
positive.code: type
    TKMapEdInterface = class (TKMUserInterface)
    private
      fShowPassability:byte;
      PrevHint:TObject;
      StorehouseItem:byte; //Selected ware in storehouse
      BarracksItem:byte; //Selected ware in barracks
  
negative.code: procedure TKMapEdInterface.View_Passability(Sender: TObject);
  begin
    SHOW_TERRAIN_WIRES := (TKMTrackBar(Sender).Position <> 0);
    SHOW_TERRAIN_PASS := TKMTrackBar(Sender).Position;
  
    if TKMTrackBar(Sender).Position <> 0 then
      Label_Passability.Caption := GetEnumName(TypeInfo(TPassability), SHOW_TERRAIN_PASS)
    else
      Label_Passability.Caption := 'Off';
  end;
  