anchor.diff:  
     fObjPaletteTableSize := KMPoint(ColsCnt, RowsCnt);
   
  -  EmptySpaceHeight := Max(0, PopUp_ObjectsPalette.Height - GetVisibleRowsCount*85 - 75);
  -
  -  ObjectsPalette_Label.Top := EmptySpaceHeight div 4;
  -  ClosePalette_Button.Top := PopUp_ObjectsPalette.Bottom - 50 - (EmptySpaceHeight div 4);
  +  ObjectsPalette_Image.Width := GetObjPaletteTableWidth + 100;
  +  ObjectsPalette_Image.Height := GetObjPaletteTableHeight + 150;
  +  ObjectsPalette_Image.Left := (PopUp_ObjectsPalette.Width - ObjectsPalette_Image.Width) div 2;
  +  ObjectsPalette_Image.Top := ((PopUp_ObjectsPalette.Height - ObjectsPalette_Image.Height) div 2);
  +
  +  ObjectsPalette_Label.Left := PopUp_ObjectsPalette.Center.X;
  +  ObjectsPalette_Label.Top := ObjectsPalette_Image.Top + 25;
  +
  +  ClosePalette_Button.Left := PopUp_ObjectsPalette.Center.X - 100;
  +  ClosePalette_Button.Top := ObjectsPalette_Image.Bottom - 70;
  +
  +  ObjectsPalette_Scroll.Left := ObjectsPalette_Image.Right - 50;
  +  ObjectsPalette_Scroll.Top := ObjectsPalette_Image.Top + 50;
  +  ObjectsPalette_Scroll.Height := ObjectsPalette_Image.Height - 150;
   
     ObjectsPalette_Scroll.MaxValue := ((fCountCompact - 1) div ColsCnt) + 1 - RowsCnt;
   
  
positive.code: 
      fObjPaletteTableSize: TKMPoint;
  
      function GetVisibleRowsCount: Integer;
  
      procedure CompactMapElements;
      procedure ObjectsUpdate(aObjIndex: Integer);
  
negative.code: 
  procedure TKMMapEdTerrainObjects.ObjPalette_UpdateControlsPosition;
  var
    RowsCnt, ColsCnt: Integer;
  begin
    PopUp_ObjectsPalette.Top := 25;
    PopUp_ObjectsPalette.Left := 25;
    PopUp_ObjectsPalette.Width := PopUp_ObjectsPalette.MasterParent.Width - 50;
    PopUp_ObjectsPalette.Height := PopUp_ObjectsPalette.MasterParent.Height - 50;
  
    RowsCnt := (PopUp_ObjectsPalette.Height - 80) div 85;
    ColsCnt := Min(OBJECTS_PALETTE_MAX_COLS_CNT, (PopUp_ObjectsPalette.Width) div 65); // Calc cols count without Scroll first
  