anchor.diff:    Shape_Market_From.Visible := M.ResFrom <> rt_None;
     if M.ResFrom <> rt_None then
     begin
  -    Shape_Market_From.Left := 8 + ((Byte(M.ResFrom)-1) mod 6) * 30;
  -    Shape_Market_From.Top := 12 + ((Byte(M.ResFrom)-1) div 6) * 30;
  +    Shape_Market_From.Left := 8 + ((Byte(M.ResFrom)-1) mod 6) * 34;
  +    Shape_Market_From.Top := 12 + ((Byte(M.ResFrom)-1) div 6) * 34;
       Label_Market_In.Caption := 'From x' + IntToStr(M.RatioFrom) + ':';
       Button_Market_In.TexID := fResource.Resources[M.ResFrom].GUIIcon;
       Button_Market_In.Caption := IntToStr(M.CheckResIn(M.ResFrom));
  
positive.code: 
  {Market page}
  procedure TKMGamePlayInterface.Create_Market_Page;
  var i:integer;
  begin
    Panel_HouseMarket := TKMPanel.Create(Panel_House,0,76,200,400);
      for i:=0 to STORE_RES_COUNT-1 do
      begin
        Button_Market[i] := TKMButtonFlat.Create(Panel_HouseMarket, 8+(i mod 6)*30,12+(i div 6)*30,26,26,0);
        Button_Market[i].TexID := fResource.Resources[StoreResType[i+1]].GUIIcon;
        Button_Market[i].Hint := fResource.Resources[StoreResType[i+1]].Name;
        Button_Market[i].Tag := Byte(StoreResType[i+1]);
        Button_Market[i].OnClickEither := House_MarketSelect;
      end;
    Shape_Market_From := TKMShape.Create(Panel_HouseMarket, 0, 0, 26, 26, 27);
    Shape_Market_From.LineColor := $FF00B000;
    Shape_Market_From.LineWidth := 2;
    Shape_Market_From.Hitable := False;
    Shape_Market_From.Hide;
    Shape_Market_To := TKMShape.Create(Panel_HouseMarket, 0, 0, 26, 26, 27);
    Shape_Market_To.LineColor := $FF0000B0;
    Shape_Market_To.LineWidth := 2;
    Shape_Market_To.Hitable := False;
    Shape_Market_To.Hide;
  
    Label_Market_In  := TKMLabel.Create(Panel_HouseMarket, 12,155+6,90,30,'From:',fnt_Grey,kaLeft);
    Label_Market_Out := TKMLabel.Create(Panel_HouseMarket,144,155+6,90,30,'To:',fnt_Grey,kaLeft);
  
    Button_Market_In  := TKMButtonFlat.Create(Panel_HouseMarket,  12, 180, 36, 40, 0);
    Button_Market_Out := TKMButtonFlat.Create(Panel_HouseMarket, 144, 180, 36, 40, 0);
  
    ResRow_Market_Out := TKMResourceOrderRow.Create(Panel_HouseMarket, 60,190,64,20);
    ResRow_Market_Out.RxID := 4;
    ResRow_Market_Out.OrderAdd.OnClickEither := House_MarketOrderClick;
    ResRow_Market_Out.OrderRem.OnClickEither := House_MarketOrderClick;
    ResRow_Market_Out.Disable;
  end;
  
  
negative.code:               ResRow_Order[i].ResourceCount := Sender.CheckResOut(fResource.HouseDat[Sender.HouseType].ResOutput[i]);
                ResRow_Order[i].OrderCount := Sender.CheckResOrder(i);
                ResRow_Order[i].Show;
                ResRow_Order[i].Top := Base+Line*LineAdv;
                inc(Line);
              end;
  