anchor.diff:            inc(Line);
             for i:=1 to 4 do if HouseInput[byte(Sender.GetHouseType),i] in [rt_Trunk..rt_Fish] then begin
               KMRow_Common_Resource[RowRes].Resource:=HouseInput[byte(Sender.GetHouseType),i];
  +            KMRow_Common_Resource[RowRes].Hint:=TypeToString(HouseInput[byte(Sender.GetHouseType),i]);
               KMRow_Common_Resource[RowRes].ResourceCount:=Sender.CheckResIn(HouseInput[byte(Sender.GetHouseType),i]);
               KMRow_Common_Resource[RowRes].Visible:=true;
               KMRow_Common_Resource[RowRes].Top:=Base+Line*LineAdv;
  
positive.code:   if MyPlayer.GetCanBuild(THouseType(GUIBuildIcons[i]-300)) then begin
      KMButton_Build[i].Enabled:=true;
      KMButton_Build[i].TexID:=GUIBuildIcons[i];
      KMButton_Build[i].OnClick:=BuildButtonClick;
    end else begin
      KMButton_Build[i].OnClick:=nil;
      KMButton_Build[i].TexID:=41;        
      KMButton_Build[i].Hint:=fTextLibrary.GetTextString(251); //Building not available
    end;
  end;
  
negative.code:   Build_Fill(nil);
    KMPanel_Build.Visible:=true;
    Hide4MainButtons;
    KMLabel_MenuTitle.Caption:=fTextLibrary.GetTextString(166);
    SelectRoad;
  end else
  if Sender=KMButtonMain[2] then begin
    KMPanel_Ratios.Visible:=true;
    Hide4MainButtons;
    KMLabel_MenuTitle.Caption:=fTextLibrary.GetTextString(167);
  end else
  if Sender=KMButtonMain[3] then begin
    Stats_Fill(nil);
    KMPanel_Stats.Visible:=true;
    Hide4MainButtons;
    KMLabel_MenuTitle.Caption:=fTextLibrary.GetTextString(168);
  end else
  if ((Sender=KMButtonMain[4]) or (Sender=KMButton_Quit_No)) then begin
    KMPanel_Menu.Visible:=true;
    Hide4MainButtons;
    KMLabel_MenuTitle.Caption:=fTextLibrary.GetTextString(170);
  end else
  if Sender=KMButton_Menu_Settings then begin
    KMPanel_Settings.Visible:=true;
    Hide4MainButtons;
    KMLabel_MenuTitle.Caption:=fTextLibrary.GetTextString(179);
  end else  
  if Sender=KMButton_Menu_Quit then begin
    KMPanel_Quit.Visible:=true;
    Hide4MainButtons;
  end else //If Sender is anything else - then show all 4 buttons and hide Return button
    Show4MainButtons;
  