anchor.diff:      ObjectsPalette_Bevel.BackAlpha := 0.7;
       ObjectsPalette_Bevel.EdgeAlpha := 0.9;
   
  +    ObjectsPalette_Image := TKMImage.Create(PopUp_ObjectsPalette, 0, 0, PopUp_ObjectsPalette.Width, PopUp_ObjectsPalette.Height, 3, rxGuiMain);
  +    ObjectsPalette_Image.ImageStretch;
  +
       ObjectsPalette_Scroll := TKMScrollBar.Create(PopUp_ObjectsPalette, PopUp_ObjectsPalette.Width - 20, 25, 20, PopUp_ObjectsPalette.Height - 75, sa_Vertical, bsGame);
       ObjectsPalette_Scroll.MinValue := 0;
       ObjectsPalette_Scroll.Position := 0;
       ObjectsPalette_Scroll.OnChange := ObjectsPalette_Refresh;
   
  +    ObjectsPalette_Image.OnMouseWheel := ObjectsPalette_Scroll.MouseWheel;
  +    ObjectsPalette_Image.OnClickShift := ObjPalette_ClickShift;
       ObjectsPalette_Bevel.OnMouseWheel := ObjectsPalette_Scroll.MouseWheel;
       ObjectsPalette_Bevel.OnClickShift := ObjPalette_ClickShift;
   
  
positive.code: begin
    if ssRight in Shift then
      PopUp_ObjectsPalette.Hide
    else if ssLeft in Shift then
    begin
      PopUp_ObjectsPalette.Hide;
      ObjIndex := TKMButtonFlat(Sender).Tag;
  
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
  