anchor.diff:    PopUp_ObjectsPalette.Left := 25;
     PopUp_ObjectsPalette.Top := 25;
   
  -    ObjectsPalette_Bevel := TKMBevel.Create(PopUp_ObjectsPalette, -1000,  -1000, 4000, 4000);
  -    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;
  -
  -    SetLength(ObjPaletteTable, fCountCompact);
  +    Bevel_ObjectsPalette := TKMBevel.Create(PopUp_ObjectsPalette, -1000,  -1000, 4000, 4000);
  +    Bevel_ObjectsPalette.BackAlpha := 0.7;
  +    Bevel_ObjectsPalette.EdgeAlpha := 0.9;
  +
  +    Image_ObjectsPalette := TKMImage.Create(PopUp_ObjectsPalette, 0, 0, PopUp_ObjectsPalette.Width, PopUp_ObjectsPalette.Height, 3, rxGuiMain);
  +    Image_ObjectsPalette.ImageStretch;
  +
  +    Scroll_ObjectsPalette := TKMScrollBar.Create(PopUp_ObjectsPalette, PopUp_ObjectsPalette.Width - 20, 25, 20, PopUp_ObjectsPalette.Height - 75, sa_Vertical, bsGame);
  +    Scroll_ObjectsPalette.MinValue := 0;
  +    Scroll_ObjectsPalette.Position := 0;
  +    Scroll_ObjectsPalette.OnChange := ObjectsPalette_Refresh;
  +
  +    Image_ObjectsPalette.OnMouseWheel := Scroll_ObjectsPalette.MouseWheel;
  +    Image_ObjectsPalette.OnClickShift := ObjPalette_ClickShift;
  +    Bevel_ObjectsPalette.OnMouseWheel := Scroll_ObjectsPalette.MouseWheel;
  +    Bevel_ObjectsPalette.OnClickShift := ObjPalette_ClickShift;
  +
  +    SetLength(ObjectsPaletteTable, fCountCompact);
       for I := 0 to fCountCompact - 1 do
       begin
  -      ObjPaletteTable[I] := TKMButtonFlat.Create(PopUp_ObjectsPalette, 0, 0, 64, 84, 1, rxTrees); // Left and Top will update later
  -      ObjPaletteTable[I].Tag := I; //Store ID
  -      ObjPaletteTable[I].Enable;
  -      ObjPaletteTable[I].Hide;
  -      ObjPaletteTable[I].OnMouseWheel := ObjectsPalette_Scroll.MouseWheel;
  -      ObjPaletteTable[I].OnClickShift := ObjPalette_ClickShift;
  +      ObjectsPaletteTable[I] := TKMButtonFlat.Create(PopUp_ObjectsPalette, 0, 0, 64, 84, 1, rxTrees); // Left and Top will update later
  +      ObjectsPaletteTable[I].Tag := I; //Store ID
  +      ObjectsPaletteTable[I].Enable;
  +      ObjectsPaletteTable[I].Hide;
  +      ObjectsPaletteTable[I].OnMouseWheel := Scroll_ObjectsPalette.MouseWheel;
  +      ObjectsPaletteTable[I].OnClickShift := ObjPalette_ClickShift;
       end;
   
  -    ObjectsPalette_Label := TKMLabel.Create(PopUp_ObjectsPalette, PopUp_ObjectsPalette.Center.X, 0, 'Objects palette', fnt_Outline, taCenter); //Todo translate
  -
  -    ClosePalette_Button  := TKMButton.Create(PopUp_ObjectsPalette, PopUp_ObjectsPalette.Center.X - 100, PopUp_ObjectsPalette.Bottom - 50,
  +    Label_ObjectsPalette := TKMLabel.Create(PopUp_ObjectsPalette, PopUp_ObjectsPalette.Center.X, 0, 'Objects palette', fnt_Outline, taCenter); //Todo translate
  +
  +    Button_ClosePalette  := TKMButton.Create(PopUp_ObjectsPalette, PopUp_ObjectsPalette.Center.X - 100, PopUp_ObjectsPalette.Bottom - 50,
                                                200, 30, 'Close palette', bsGame); //Todo translate
  -    ClosePalette_Button.Anchors := [anLeft,anBottom];
  -    ClosePalette_Button.OnClick := ObjectsPaletteClose_Click;
  +    Button_ClosePalette.Anchors := [anLeft,anBottom];
  +    Button_ClosePalette.OnClick := ObjectsPaletteClose_Click;
   
       ObjPalette_UpdateControlsPosition;
   end;
  
positive.code:   // Update Objects Palette scroll position
    if not (ObjIndex in [61, 255])
      and not InRange(ObjIndex,
                      ObjectsPalette_Scroll.Position*fObjPaletteTableSize.X,
                      ObjectsPalette_Scroll.Position*fObjPaletteTableSize.X + fObjPaletteTableSize.X*fObjPaletteTableSize.Y - 1) then
      ObjectsPalette_Scroll.Position := ((ObjIndex - 1) div fObjPaletteTableSize.X);
  end;
  
  
  
negative.code:       ObjectsTable: array [0..8] of TKMButtonFlat;
        ObjectsScroll: TKMScrollBar;
      PopUp_ObjectsPalette: TKMPopUpMenu;
        Bevel_ObjectsPalette: TKMBevel;
        Image_ObjectsPalette: TKMImage;
        Label_ObjectsPalette: TKMLabel;
        Button_ClosePalette: TKMButton;
        ObjectsPaletteTable: array of TKMButtonFlat;
        Scroll_ObjectsPalette: TKMScrollBar;
    public
      constructor Create(aParent: TKMPanel);
  
  