anchor.diff:  
   
   procedure TKMapEdInterface.Create_Player;
  +const
  +  TabGlyph: array [TKMPlayerTab] of Word = (41, 382, 38, 327, 393);
   var
     I: Integer;
     Col: array [0..255] of TColor4;
  +  PT: TKMPlayerTab;
   begin
     Panel_Player := TKMPanel.Create(Panel_Common,0,45, TB_WIDTH,28);
  -    Button_Player[1] := TKMButton.Create(Panel_Player, SMALL_PAD_W * 0, 0, SMALL_TAB_W, SMALL_TAB_H,  41, rxGui, bsGame);
  -    Button_Player[2] := TKMButton.Create(Panel_Player, SMALL_PAD_W * 1, 0, SMALL_TAB_W, SMALL_TAB_H, 382, rxGui, bsGame);
  -    Button_Player[3] := TKMButton.Create(Panel_Player, SMALL_PAD_W * 2, 0, SMALL_TAB_W, SMALL_TAB_H,  38, rxGui, bsGame);
  -    Button_Player[4] := TKMButton.Create(Panel_Player, SMALL_PAD_W * 3, 0, SMALL_TAB_W, SMALL_TAB_H, 393, rxGui, bsGame);
  -    for I := 1 to 4 do Button_Player[I].OnClick := SwitchPage;
  +
  +    for PT := Low(TKMPlayerTab) to High(TKMPlayerTab) do
  +    begin
  +      Button_Player[PT] := TKMButton.Create(Panel_Player, SMALL_PAD_W * Byte(PT), 0, SMALL_TAB_W, SMALL_TAB_H,  TabGlyph[PT], rxGui, bsGame);
  +      Button_Player[PT].OnClick := SwitchPage;
  +    end;
   
       Panel_Goals := TKMPanel.Create(Panel_Player,0,28,TB_WIDTH,400);
         TKMLabel.Create(Panel_Goals,0,10,TB_WIDTH,0,'Goals',fnt_Outline,taCenter);
  
positive.code:       Panel_BlockHouse: TKMPanel;
          Button_BlockHouse: array [1 .. GUI_HOUSE_COUNT] of TKMButtonFlat;
          Image_BlockHouse: array [1 .. GUI_HOUSE_COUNT] of TKMImage;
        //Panel_BlockTrade: TKMPanel;
        //  Button_BlockTrade: array [1 .. GUI_HOUSE_COUNT] of TKMButtonFlat;
        //  Image_BlockTrade: array [1 .. GUI_HOUSE_COUNT] of TKMImage;
        Panel_Markers: TKMPanel;
          Button_Reveal: TKMButtonFlat;
          TrackBar_RevealNewSize: TKMTrackBar;
  
negative.code:     procedure Mission_ModeUpdate;
      procedure Mission_PlayerTypesChange(Sender: TObject);
      procedure Mission_PlayerTypesUpdate;
      procedure Player_BlockHouseClick(Sender: TObject);
      procedure Player_BlockHouseRefresh;
      procedure Player_BlockTradeClick(Sender: TObject);
      procedure Player_BlockTradeRefresh;
      procedure Player_ChangeActive(Sender: TObject);
      procedure Player_ColorClick(Sender: TObject);
      procedure Player_MarkerClick(Sender: TObject);
  