anchor.diff:      Image_ChatClose.Hint := fTextLibrary[TX_MSG_CLOSE_HINT];
       Image_ChatClose.OnClick := Chat_Close;
       Image_ChatClose.HighlightOnMouseOver := true;
  +end;
  +
  +
  +procedure TKMGamePlayInterface.Create_Controls_Page;
  +var I: Integer;
  +begin
  +  Panel_Controls := TKMPanel.Create(Panel_Main, 0, 368, 224, 400);
  +  Panel_Controls.Anchors := [akLeft, akTop];
  +
  +    //We need several of these to cover max of 1534x2560 (vertically oriented)
  +    TKMImage.Create(Panel_Controls, 0,    0, 224, 400, 404);
  +    TKMImage.Create(Panel_Controls, 0,  400, 224, 400, 404);
  +    TKMImage.Create(Panel_Controls, 0,  800, 224, 400, 404);
  +    TKMImage.Create(Panel_Controls, 0, 1200, 224, 400, 404);
  +    TKMImage.Create(Panel_Controls, 0, 1600, 224, 400, 404);
  +    TKMImage.Create(Panel_Controls, 0, 2000, 224, 400, 404);
  +
  +    //Main 4 buttons
  +    for i := 0 to 3 do begin
  +      Button_Main[i+1] := TKMButton.Create(Panel_Controls,  8+46*i, 4, 42, 36, 439+i);
  +      Button_Main[i+1].OnClick := SwitchPage;
  +    end;
  +    Button_Main[1].Hint := fTextLibrary[TX_MENU_TAB_HINT_BUILD];
  +    Button_Main[2].Hint := fTextLibrary[TX_MENU_TAB_HINT_DISTRIBUTE];
  +    Button_Main[3].Hint := fTextLibrary[TX_MENU_TAB_HINT_STATISTICS];
  +    Button_Main[4].Hint := fTextLibrary[TX_MENU_TAB_HINT_OPTIONS];
  +
  +    Button_Main[5] := TKMButton.Create(Panel_Controls, 8, 4, 42, 36, 443);
  +    Button_Main[5].OnClick := SwitchPage;
  +    Button_Main[5].Hint := fTextLibrary[TX_MENU_TAB_HINT_GO_BACK];
  +    Label_MenuTitle := TKMLabel.Create(Panel_Controls, 54, 4, 138, 36, '', fnt_Metal, taLeft);
  +
  +  Create_Build_Page;
  +  Create_Ratios_Page;
  +  Create_Stats_Page;
  +  Create_Menu_Page;
  +    Create_Save_Page;
  +    Create_Load_Page;
  +    Create_Settings_Page;
  +    Create_Quit_Page;
  +
  +  Create_Unit_Page;
  +
  +  Create_House_Page;
  +    Create_Market_Page;
  +    Create_Store_Page;
  +    Create_School_Page;
  +    Create_Barracks_Page;
  +    Create_Woodcutter_Page;
  +    //Create_TownHall_Page; //I don't want to make it at all yet
   end;
   
   
  
positive.code:     Label_UnitDescription := TKMLabel.Create(Panel_Unit,8,152,184,200,'',fnt_Grey,taLeft); //Taken from LIB resource
      Button_Unit_Dismiss   := TKMButton.Create(Panel_Unit,132,120,56,34,29);
  
    Panel_Unit_Dismiss:=TKMPanel.Create(Panel_Unit,0,160,200,400);
      Label_Unit_Dismiss             := TKMLabel.Create(Panel_Unit_Dismiss,100,16,184,30,'Are you sure?',fnt_Outline,taCenter);
      Button_Unit_DismissYes         := TKMButton.Create(Panel_Unit_Dismiss,50, 50,100,40,'Dismiss',fnt_Metal);
      Button_Unit_DismissNo          := TKMButton.Create(Panel_Unit_Dismiss,50,100,100,40,'Cancel',fnt_Metal);
      Button_Unit_DismissYes.OnClick := Unit_Dismiss;
      Button_Unit_DismissNo.OnClick  := Unit_Dismiss;
  
    Panel_Army:=TKMPanel.Create(Panel_Unit,0,160,200,400);
      //Military buttons start at 8.170 and are 52x38/30 (60x46)
      Button_Army_GoTo   := TKMButton.Create(Panel_Army,  8,  0, 56, 40, 27);
      Button_Army_Stop   := TKMButton.Create(Panel_Army, 70,  0, 56, 40, 26);
  
negative.code: {Unit page}
  procedure TKMGamePlayInterface.Create_Unit_Page;
  begin
    Panel_Unit := TKMPanel.Create(Panel_Controls, 0, 44, 196, 400);
      Label_UnitName        := TKMLabel.Create(Panel_Unit,100,16,184,30,'',fnt_Outline,taCenter);
      Image_UnitPic         := TKMImage.Create(Panel_Unit,8,38,54,100,521);
      Label_UnitCondition   := TKMLabel.Create(Panel_Unit,132,40,116,30,fTextLibrary[TX_UNIT_CONDITION],fnt_Grey,taCenter);
  