anchor.diff:    // Reset last object on RMB click
     if gCursor.Mode = cmBrush then
     begin
  -    fLastShape := hsCircle;
  -    fLastBrush := -1;
  -    fLastMagicBrush := False;
  +    ResetLastBrushes;
       aHandled := True;
     end;
   end;
  
positive.code: begin
    inherited Create;
  
    fLastShape := hsCircle;
    fLastBrush := Byte(SURFACES[0,0]);
    fLastMagicBrush := False;
  
    Panel_Brushes := TKMScrollPanel.Create(aParent, 0, 28, aParent.Width, aParent.Height - 28, [saVertical], bsMenu, ssCommon);
    Panel_Brushes.Padding.SetBottom(10);
  
negative.code:   BTN_TKIND_S = 34;
    BTN_TKIND_S_SP_X = 36;
    BTN_TKIND_S_SP_Y = 40;
    SURF_ROW_LEN = 5;
  
    SURFACES: array [0..5, 0..SURF_ROW_LEN-1] of TKMTerrainKind = (
      (tkGrass,       tkMoss,         tkPaleGrass,    tkGrassDirt,    tkDirt),
  