anchor.diff:            
     //Show Demand
     Label_Common_Demand_WS.Show;
  -  Label_Common_Demand_WS.Top := Base+Line*LineAdv+6;
  +  Label_Common_Demand_WS.Top := Base+Line*LINE_HEIGHT+6;
     inc(Line);
   
     for I := 1 to 2 do
  
positive.code:     ResRow_Common_Resource_WS[RowRes].Caption := gRes.Wares[gRes.HouseDat[aHouse.HouseType].ResInput[I]].Title;
      ResRow_Common_Resource_WS[RowRes].Hint := gRes.Wares[gRes.HouseDat[aHouse.HouseType].ResInput[I]].Title;
      ResRow_Common_Resource_WS[RowRes].WareCount := aHouse.CheckResIn(gRes.HouseDat[aHouse.HouseType].ResInput[I]);
      ResRow_Common_Resource_WS[RowRes].Top := Base + Line * LineAdv;
      ResRow_Common_Resource_WS[RowRes].Show;
      inc(Line);
      inc(RowRes);
  
negative.code:     begin
        Label_Common_Offer.Show;
        Label_Common_Offer.Caption := gResTexts[TX_HOUSE_DELIVERS]+'(x'+inttostr(gRes.HouseDat[aHouse.HouseType].ResProductionX)+'):';
        Label_Common_Offer.Top := Base+Line*LINE_HEIGHT+6;
        inc(Line);
  
        for I := 1 to 4 do
  